用代码实现toolbar弹出ButtonMenus(VB)

代码如下：

Option Explicit

Private Type TBBUTTON

    iBitmap As Long

    idCommand As Long

    fsState As Byte

    fsStyle As Byte

    bReserved1 As Byte

    bReserved2 As Byte

    dwData As Long

    iString As Long

End Type

Private Type NMHDR

    hwndFrom As Long

    idfrom As Long

    code As Long

End Type

Private Type NMTOOLBAR

    hdr As NMHDR

    iItem As Long

    tbBtn As TBBUTTON

    cchText As Long

    lpszString As Long

End Type

Private Const TBN_FIRST = -700&

Private Const TBN_DROPDOWN = (TBN_FIRST - 10)

Private Const WM_USER = &H400

Private Const TB_GETBUTTON As Long = (WM_USER + 23)

Private Const WM_NOTIFY As Long = &H4E&

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

    If Button.Index = 4 Then '假如toolbar上的第4个按钮有buttonmenu，同时其样式为5

        showbuttonmenu Toolbar1, Button.Index - 1

    End If

End Sub

Private Sub showbuttonmenu(Toolbar1 As MSComctlLib.Toolbar, ByVal Buttonindex As Long)       

    'buttonindex从0开始

    Dim tButton As TBBUTTON

    Dim tNotify As NMTOOLBAR

    Dim lResult As Long

    Dim mhwnd As Long

    Dim lCommandId As Long

    mhwnd = FindWindowEx(Toolbar1.hwnd, 0, "msvb_lib_toolbar", vbNullString)

    lResult = SendMessage(mhwnd, TB_GETBUTTON, Buttonindex, tButton)

    lCommandId = tButton.idCommand

    With tNotify

        .hdr.code = TBN_DROPDOWN

        .hdr.hwndFrom = mhwnd

        .iItem = lCommandId

    End With

    lResult = SendMessage(Toolbar1.hwnd, WM_NOTIFY, 0, tNotify)

End Sub

 

本文转自：http://rainstormmaster.cnblogs.com/archive/2006/03/24/357795.html