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"
        Next i
end sub

 

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
      Select Case ButtonMenu.Index
        Case 1
              MsgBox "Press   the   button."
        Case 2
              MsgBox "Offer   some   option"
        End Select

End Sub

同原來的代碼比較，只改了生命 btn 的部分，作者可能在論壇隨意寫，或者引用不同的原因，作者聲明爲“button”，結果出錯。應該改該 acticex 控件內部的 button 類型。