龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

如何用Line控件做出分隔线

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
当我们想将一些讯息分门别类时,最常使用的控制项就是Frame;不过我们也可利用两个 Line控制项来做出分隔线,以将讯息分类。其效果有点类似网路上常看到的Horizontal Line ,或是微软

当我们想将一些讯息分门别类时,最常使用的控制项就是Frame;不过我们也可利用两个 Line控制项来做出分隔线,以将讯息分类。其效果有点类似网路上常看到的Horizontal Line ,或是微软产品的 /说明/关於.../中的那个分隔线。例如以下程式码可产生如下图的效果:

请先加入两个 Line 控制项到表单上

Private Sub Form_Load()
With Line1
.BorderColor = &H808080
.X1 = 0
.X2 = 5000
.Y1 = 1100
.Y2 = .Y1
End With
With Line2
.BorderColor = vbWhite
.BorderWidth = 2
.X1 = Line1.X1
.X2 = Line1.X2
.Y1 = Line1.Y1 + 20
.Y2 = .Y1
End With
Line1.ZOrder 0
End Sub

精彩图集

赞助商链接