(多个问题,100)怎么摸拟鼠标单击toolbar的按钮事件(在线等待)

Question

用api的 shenmessage 具體的操作自己找

Answer 1

有没以高手呀,怎么都是江湖呀,谁都知道用api能实现

Answer 2

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Dim aa As Button
  Case 116 'f5
    Set aa = Toolbar1.Buttons(1)
     Toolbar1_ButtonClick aa
  Case 117 'f6
 End Select
End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
MsgBox "df"
End Select
End Sub你看可以麼 可以的話 給點回報 分

Answer 3

有没以高手呀,怎么都是江湖呀,谁都知道用api能实现
???????????????????
!!!!!!!!!!!!!!!!!!!!!111

Answer 4

在窗体的FORM_KEYDOWN中实现如： 'F5保存
   If KeyCode = vbKeyF5 Then
      Toolbar1_ButtonClick Toolbar1.Buttons("ButSave")
   End If

Answer 5

Sub 快捷键事件过程序()
  call 按钮按下事过程序
End sub