如何：VB程序自动按组合键

Question

点击窗体上按钮1相当于同时按下 ctrl+alt+shift+a 四个键，怎么实现

Answer 1

Private Sub Command1_Click()
SendKeys "^%+a"
End Sub

Answer 2

Private Sub Command1_Click()
   SendKeys "^%+(a)"
End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Dim ShiftDown, AltDown, CtrlDown, Txt
   ShiftDown = (Shift And vbShiftMask) > 0
   AltDown = (Shift And vbAltMask) > 0
   CtrlDown = (Shift And vbCtrlMask) > 0
   If KeyCode = vbKeyA Then   ' 显示键组合.
      If ShiftDown And CtrlDown And AltDown Then
         Txt = "SHIFT+CTRL+ALT+A."
      ElseIf ShiftDown And AltDown Then
         Txt = "SHIFT+ALT+A."
      ElseIf ShiftDown And CtrlDown Then
         Txt = "SHIFT+CTRL+A."
      ElseIf CtrlDown And AltDown Then
         Txt = "CTRL+ALT+A."
      ElseIf ShiftDown Then
         Txt = "SHIFT+A."
      ElseIf CtrlDown Then
      Txt = "CTRL+A."
      ElseIf AltDown Then
         Txt = "ALT+A."
      ElseIf Shift = 0 Then
         Txt = "A."
      End If
      Text1.Text = "You pressed " & Txt
   End If
      
End SubPrivate Sub Form_Load()
  Form1.KeyPreview = True
     
End Sub