VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 做出分隔线
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9790, 日期:2000-11-03


当我们想将一些讯息分门别类时,最常使用的控制项就是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