下拉按钮菜单,默认按下是调用什么事件?

Question

Private Sub mnuSite_Click(Index As Integer)
'navigate to the site
Dim strSearch As String
Dim strUrl As String'get the search string
strSearch = cboSearch.Text
strUrl = mnuSite(Index).Tag
'replace in url
strUrl = Replace(strUrl, "<searchstring>", strSearch)
'do it
m_IE.Navigate strUrl
End Sub只能调用下拉里面的 默认点击怎么调用

Answer 1

Call mnuSite_Click(aaa)  'aaa为你传递进入的index

Answer 2

http://www.njcyw.com/aaa.gif
红色标记处

Answer 3

不选择下拉 默认点击按钮//被你打败了
Private Sub Command1_Click()
call  mnuSite_Click(aaa)  'aaa为你传递进入的index
End Sub这下明白了？？？？为什么我要写aaa，那是因为你的菜单是同名的。
自己看你的代码
Private Sub mnuSite_Click(Index As Integer)‘----看见这里是不是有参数了-_-你要调用哪个菜单就传哪个参数，我怎么知道你设置的index是多少如果你不是同名菜单，那么你就只需要call 菜单句_Click就可以了

Answer 4

如果你不知道每个菜单项对应的Index，运行一下，每个都点一下，把他们的Index值打印出来就知道了：Private Sub mnuSite_Click(Index As Integer)
    Debug.Print Index
'    'navigate to the site
'    Dim strSearch As String
'    Dim strUrl As String
'
'    'get the search string
'    strSearch = cboSearch.Text
'    strUrl = mnuSite(Index).Tag
'    'replace in url
'    strUrl = Replace(strUrl, "<searchstring>", strSearch)
'    'do it
'    m_IE.Navigate strUrl
End Sub

Answer 5

既然是toolbar，我不知道你处理mnuSite_Click的意义何在，你应该处理的是toolbar的ButtonMenuClick事件：
Option ExplicitPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
    Case 4 '注意这里的4 是指拥有下拉菜单的button的index,你要根据实际情况进行更改
    '假如想默认点击第2条菜单，则
        Toolbar1_ButtonMenuClick Button.ButtonMenus(2)
    End Select
End SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
    Select Case ButtonMenu.Index
    Case 1
        MsgBox "hello" '换成你的代码
    Case 2
        MsgBox "默认点击第2条菜单" '换成你的代码
    End Select
End Sub

Answer 6

是啊。楼主用的不错。用select case