110,541
社区成员
发帖
与我相关
我的任务
分享
Dim strKeys As String'所有被按下的键值
Private Sub Form2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
Dim strNowKey As String = e.KeyChar '获取当前被按下的键值
strKeys = strKeys & strNowKey
End Sub
Private Sub Form2_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
MessageBox.Show(strKeys)
strKeys = Nothing
End Sub
代码是直接触发窗体KeyPress事件.
var code = GetVirtualKeyCode(Key.A);
if ((array[code] & 0x80) != 0) {
// It's pressed
} else {
// It's not pressed
}
仔细读读啊,都已经告诉你了,你需要通过这个来判断,在这里你要判断那个键就按照这个来执行就可以了,如果要判断所有的,那就循环处理吧