vb設置快捷鍵模擬鼠標點擊

在窗體上加入控件text1，復制下面代碼，運行即可：

Option Explicit

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Const MOUSEEVENTF_LEFTDOWN = &H2

Const MOUSEEVENTF_LEFTUP = &H4

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyF3 Then

Dim i As Integer

For i = 1 To Val(Text1.Text)

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

Next

End If

End Sub

上一篇:java定義Circle類，radius:double toString():返回radius 些測試在main中，實例化Circle類，輸出對象信息

下一篇:學習Python要了解的編程特色是什麽?