做出类似Frame边框的那种有凹凸质感的分割线

Tesla.Angela

刚学VB的时候特别想做出这种分割线，可是当时不知道怎么做，昨晚经过搜索终于知道了。。。
为方便后人，特地封装成函数：

1. 
   
2. Private Sub DrawDisabledLine(ByRef LineMain As Line, ByRef LineHelp As Line)
   
3.     LineMain.BorderColor = &H808080
   
4.     With LineHelp
   
5.         .BorderColor = vbWhite
   
6.         .BorderWidth = 2
   
7.         .X1 = LineMain.X1
   
8.         .X2 = LineMain.X2
   
9.         .Y1 = LineMain.Y1 + 20
   
10.         .Y2 = .Y1
    
11.     End With
    
12.     LineMain.ZOrder 0
    
13. End Sub
    

复制代码

事先准备：首先放两个Line控件，一个（LineMain）放在你要划线的位置，另外一个（LineHelp）随便放。
使用方法：DrawDisabledLine LineMain, LineHelp