2

私は次のコードを持っています:

Private Sub myGrid_KeyDown(ByVal sender As System.Object, ByVal e As    System.Windows.Forms.KeyEventArgs) Handles myGrid.KeyDown
    If e.KeyCode = Keys.Divide AndAlso e.Control Then
        Dim response = MsgBox("are you sure to delete a record?", vbYesNo)
        If response = vbYes Then
            //Delete the record
        End If
    End If
End Sub

これは(Ctrl+の場合/)機能しますが、問題は、これが。とは異なる任意のキーに対して機能することです-。キーコードがKeys.Subtract(Ctrl+を使用するため-)であると指定した場合、それは決してキャッチされません!

4

1 に答える 1

0

「-」の KeyCode は ですKeys.OemMinusDebug.WriteLine(e.KeyCode.ToString())押しているキーをテストするために使用します。以下は私にとってはうまくいきます:

Private Sub myGrid_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles myGrid.KeyDown
    If e.KeyCode = Keys.OemMinus AndAlso e.Control Then
        Dim response = MsgBox("are you sure to delete a record?", vbYesNo)
        If response = vbYes Then
            '//Delete the record
        End If
    End If
    Debug.WriteLine(e.KeyCode.ToString())
End Sub
于 2012-04-28T01:14:30.897 に答える