當前位置:編程學習大全網 - 網站源碼 - vb6.0模擬按鍵,比如按abc,123,tab,enter之類的

vb6.0模擬按鍵,比如按abc,123,tab,enter之類的

不能準確理解妳的意思,僅提供下面模擬鍵盤按鍵事件的代碼供參考或修改:

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

'判斷函數調用時指定虛擬鍵的狀態

Private Sub Command1_Click()

Label1.Caption = ""

End Sub

Private Sub Form_Load()

Timer1.Interval = 1

End Sub

Private Sub Timer1_Timer()

If MyHotKey(vbKeyV) And MyHotKey(vbKeyB) Then Label1.Caption = "歡迎與我交流VB"

'If MyHotKey(vbKeyF11) Then Label1.Caption = "歡迎與我交流VB"

End Sub

Private Function MyHotKey(vKeyCode) As Boolean

MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)

End Function

  • 上一篇:妳好的,看到妳回答了好多關於聲卡的問題的。想請問妳艾肯聲卡的6nano怎麽區分新舊款的?
  • 下一篇:南寧網站建設如何做好企業的品牌官方網站建設?
  • copyright 2024編程學習大全網