菜单与工具条的分割线和工具按钮间的分割线是怎么做的？？？谢谢

Question

需要空件Line1 line2,pictool(picturebox)
Private Sub Form_Resize()
On Error Resume NextIf Me.WindowState <> vbMinimized Then
Dim pTop&, pHeight&
    picTools.Move 0, 0, Me.ScaleWidth
     
    Line1.X1 = 0
    Line1.Y1 = 2
    Line1.X2 = picTools.ScaleWidth
    Line1.Y2 = 2
    Line2.X1 = 0
    Line2.Y1 = 3
    Line2.X2 = picTools.ScaleWidth
    Line2.Y2 = 3
End Sub

Answer 1

如果手工制作分割线，方法是这样的：
使用line，在窗体中设置一个line1,然后复制该线，作为控件数组，line1(0),line1(1)
设置二者的位置x1,x2,y1,y2，之间的位置略有交错，即可形成立体效果。
如：
with Line1(1)
   .x1=225
   .x2=5450
   .y1=2430
   .y2=2430 
   .borderwidth=1
   .bordercordor=&H00808080&
   .borderstyle=6
end with
with Line1(0)
   .x1=240
   .x2=5450
   .y1=2445
   .y2=2445 
   .borderwidth=2
   .bordercordor=&H00FFFFFF&
   .borderstyle=1
end with

Answer 2

不用这么复杂，用VB自带的CoolBar控件+Toolbar控件就解决了

Answer 3

Toolbar上的分割线可以先插入一个Button,然后选择其属性为tbrPlaceholder

Answer 4

Coolbar是VB6自带的控件，可以作为ToolBar的容器
你选控件的时候，选Microsoft common controls-3就有了