用消息方式如何实现点toolbar中的按钮

Question

用消息方式如何实现点toolbar中的按钮
能不能用vb实现，

Answer 1

public Sub ClickToolBarButton(oToolBar As MSComctlLib.Toolbar,lButtonIndex as long)
    Dim hToolBarLib         As Long 
    Dim lButtonID           As Long
    If Not oToolBar Is Nothing Then 
        hToolBarLib = FindWindowEx(oToolBar.hWnd, 0, "msvb_lib_toolbar", vbNullString) 
        lButtonID=IDFromIndex(hToolBarLib,lButtonIndex)
        call sendMessage(hToolBarLib,WM_COMMAND,0,byval lButtonID)
    End If end sub'/* 根据按钮的索引获取按钮的内部ID值 
Public Function IDFromIndex(ByVal hToolBar As Long, ByVal lButtonIndex As Long) As Long 
    Dim lRetCode                As Long 
    Dim tButton                 As TBBUTTON 
         
    lRetCode = SendMessage(hToolBar, TB_GETBUTTON, lButtonIndex, tButton) 
    If CBool(lRetCode) Then 
        IDFromIndex = tButton.idCommand 
    Else 
        IDFromIndex = -1 
    End If 
End Function 
只是凭印象写的，看一下是否可以使用。