在command1中怎样模拟成功command2_click()事件？急！！

Question

Private Sub Command1_Click()
Command2_Click
end sub

Answer 1

触发Command2_Click()事件：Private Sub Command1_Click()
Command2.setfocus
sendkeys "{Enter}"
end sub

Answer 2

“命令组”是指什么？如果是指控件数组，这样写：
call commandgroup1_click(2)

Answer 3

触发Command2_Click()事件：Private Sub Command1_Click()
call commandgroup1_click(2)
end sub

Answer 4

把按钮数传入command_click()里就可以了

Answer 5

引用：
Private Sub Command1_Click()
call commandgroup1_click(2)
end sub

Answer 6

不用这么繁的啦，如果要调用另一个按钮的click事件，设另一个按钮的名字是cmd,只要 cmd.value=true 就可以了。

Answer 7

我的是工具栏按钮，我作了如下调用，却报错说：tpye mismatch.
Call Toolbar1_ButtonClick(2)
是不是工具栏比较特殊呀？我想用工具栏的第二个按钮，该怎样在command1_click过程中调用正确。
Private Sub Command1_Click()
call Toolbar1_ButtonClick(2)
end sub
上面这样连编译都通不过,那个括号里的参数该是什么?

Answer 8

方便又实用
Private Sub Command1_Click()
   Command2_Click
end sub

Answer 9

问题是在调用工具栏的按钮一直报错。编译不通过
Private Sub Command1_Click()
call Toolbar1_ButtonClick(2)
end sub
或：
Private Sub Command1_Click()
Toolbar1_ButtonClick(2)
end sub
都不行的！

Answer 10

当然不行了，你看看Toolbar1_ButtonClick事件的参数就知道了，你需要传入ByVal Button As MSComctlLib.Button这样的参数。具体怎么传我也不知道：）不过我遇到这样的问题都是用一个子程序来完成。
Private Sub Sub1()
'.......
End SubPrivate Sub Sub2()
'.......
End Sub
Private Sub Sub3()
'.......
End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Index
  Case 1
    Call Sub1
  Case 2
    Call Sub2
  Else
    Call Sub3
  End Select
End SubPrivate Sub Command1_Click()
  Call Sub1
End Sub
也就是说在Toolbar1_ButtonClick事件中不写真正的代码，只是调用一个子程序，然后在别的地方如果想实现这个功能只需要调用同一个子程序就行了。

Answer 11

Toolbar1_ButtonClick Toolbar1.ListItems(1)