Question

我有以下代码：

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 + / ），但问题是这适用于任何不同于-的密钥。如果我指定Keycode是Keys.Subtract（要使用 Ctrl + - ），它永远不会被捕获！

Answer 1

“ - ”的KeyCode是Keys.OemMinus。使用Debug.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

短按Ctrl + - 不工作vb

1 个答案: