用VB写个模拟按键程序当敲击键盘tab时候,自动输入"abcdefg"

发布网友发布时间：2024-05-28 18:17

共3个回答

热心网友时间：2024-07-13 07:32

提供两种方法：
1、Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 9 Then Text1.Text = "abcdefg" 'Tab键的Ascii码=9
End Sub

2、利用API函数：
'使用GetAsyncKeyState函数可以获得键盘的动作。
'GetAsyncKeyState函数根据虚拟键表判断按键的类型，返回值为一个16位的二进制数，如果被按下则最高位为1，即返回-32767
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyResult = GetAsyncKeyState(9)
If KeyResult = -32767 Then Text1.Text = "abcdefg"
End Sub

热心网友时间：2024-07-13 07:33

借助sendkeys方法
Private Function Form1_Keypress(KeyAscii as Integer)
If KeyAscii = 9 Then
sendkeys "abcdefg"
End If
End Function

热心网友时间：2024-07-13 07:33

拉入两个文本框，在代码框了写Private Sub Text1_LostFocus()
Text1.Text = "abcdefg"
End Sub

用VB写个模拟按键程序 当敲击键盘tab时候,自动输入"abcdefg"

用VB写个模拟按键程序当敲击键盘tab时候,自动输入"abcdefg"