UC知道VB窗体上的键盘事件
来源：百度知道 编辑：UC知道 时间：2024/05/15 07:54:50
我要按 F1到F12 Text1.text 显示不同的文字
必须是在form1上的事件.
最好是按 其他的键没什么的
以下的是按任何键都有反映的.而且是text1_KeyDown
我不要这个!有那个哥哥姐姐帮帮,写个更好的来么?谢谢!
Private Sub text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim keyname As String
keyas = Hex(KeyCode)
Select Case keyas
Case 70
keyname = "F1"
Case 71
keyname = "F2"
Case 72
keyname = "F3"
Case 73
keyname = "F4"
Case 74
keyname = "F5"
Case 75
keyname = "F6"
Case 76
keyname = "F7"
Case 77
keyname = "F8"
Case 78
keyname = "F9"
Case 79
keyname = "10"
End Select
Text1.Text = keyname
End Sub
以下要是按非F键则执行当前按下值,键盘类似这样的操作还有其他的什么方法吗?都列举来说说好么,谢谢!
必须是在form1上的事件.
最好是按 其他的键没什么的
以下的是按任何键都有反映的.而且是text1_KeyDown
我不要这个!有那个哥哥姐姐帮帮,写个更好的来么?谢谢!
Private Sub text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim keyname As String
keyas = Hex(KeyCode)
Select Case keyas
Case 70
keyname = "F1"
Case 71
keyname = "F2"
Case 72
keyname = "F3"
Case 73
keyname = "F4"
Case 74
keyname = "F5"
Case 75
keyname = "F6"
Case 76
keyname = "F7"
Case 77
keyname = "F8"
Case 78
keyname = "F9"
Case 79
keyname = "10"
End Select
Text1.Text = keyname
End Sub
以下要是按非F键则执行当前按下值,键盘类似这样的操作还有其他的什么方法吗?都列举来说说好么,谢谢!
Select Case keyas
Case 70
keyname = "F1"
'增加你的执行代码，例如：
Text1.ForeColor= Hff
'文本框字体颜色，每个判断下面都应该有执行代码的
'或文本框显示内容,下同。
Text1.Text ="F1"
Case 71
keyname = "F2"
Case 72
keyname = "F3"
Case 73
keyname = "F4"
Case 74
keyname = "F5"
Case 75
keyname = "F6"
Case 76
keyname = "F7"
Case 77
keyname = "F8"
Case 78
keyname = "F9"
Case 79
keyname = "10"
End Select
那干脆这样算了
'添加窗体Form1,文本框Text1,按钮Command1,然后添加如下代码:
Private Sub Form_Load()
Text1.Enabled = False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
keyas = Hex(KeyCode)