日期:2014-05-17 浏览次数:21051 次
Quote: 引用: 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 a = a & e.KeyCode这句有点不明白 &是加 还是啥?
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