vb6自带 toolbar 的下来菜单样式按钮的代码操作

使用这个而不是直接布置界面的好处：vb6 的界面没看到流布局，因此如果窗体尺寸调整，界面会变得很难看。看 vb6 时代的软件，一般把命令一类写道 toolbar 、菜单，这样就不受窗体尺寸影响。

 

使用 toolbar 需要先引入“部件”，应当是 windows_common_6；

 

toolbar 可放入普通按钮、下拉菜单，可以在设计时通过右键“属性”，“按钮”调整；

 

重点：

一个常用的用法是代码操作 toolbar 的菜单按钮，  这样可以提供设计时未知的项目；在网上找到一段代码：

Private Sub Form_Load()

        Dim i As Integer

        Dim btn As MSComctlLib.Button '这里是关键：找到的代码直接声明为 button ，这是错误，需要这样才行
         
        '   添加五个   Button   对象到   Toolbar   控件。
        For i = 1 To 5
              Set btn = Toolbar1.Buttons.Add(Caption:=i, style:=tbrDropdown)
              '   添加两个   ButtonMenu   对象到每一个Button。
                    btn.ButtonMenus.Add Text:="Help"
                    btn.ButtonMenus.Add Text:="Options"