110,533
社区成员
发帖
与我相关
我的任务
分享
Dim a As String
Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
a = a & e.KeyCode
If (a = "6870" Or a = "7068") Then 'D 和 F同时按下
MessageBox.Show(a)
End If
End Sub
Private Sub Form1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
a = Nothing
End Sub