Capture-Funktion die Tasten F1..F12 in VB.NET

Kann ich nicht erfassen, die Funktionstasten F1..F12 für meine Anwendung. Ich bin in der Lage zu erfassen reguläre Tasten und Modifikatoren wie shift, Strg, alt, etc..

Diese Frage empfiehlt KeyPreview = True aber das scheint nicht zu funktionieren für meine Anwendung. Was mache ich falsch?

Private Sub Main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Me.KeyPreview = True
    AddHandler Me.KeyDown, AddressOf KeyDownsHandler
    AddHandler Me.KeyUp, AddressOf KeyUpHandler
End Sub

Private Sub KeyUpHandler(ByVal o As Object, ByVal e As KeyEventArgs)
    e.SuppressKeyPress = True
    If e.KeyCode = Keys.F1 Then
        txtMain.AppendText("F1 was pressed!" & Environment.NewLine)
    End If
    txtMain.AppendText( _
        String.Format("'{0}' '{1}' '{2}' '{3}' {4}", e.Modifiers, e.KeyValue, e.KeyData, e.KeyCode, Environment.NewLine))
End Sub

Private Sub KeyDownHandler(ByVal o As Object, ByVal e As KeyEventArgs)
    e.SuppressKeyPress = True
    txtMain.AppendText( _
        String.Format("'{0}' '{1}' '{2}' '{3}' {4}", e.Modifiers, e.KeyValue, e.KeyData, e.KeyCode, Environment.NewLine))
End Sub
User Error :(... ich bin mit einem MicrosoftKeyboard und es erfordert, dass die Taste F-Taste auf.
Das ist Genial. Haha, das passiert uns allen.

InformationsquelleAutor | 2011-01-07

  1. 1

    Dein code funktioniert bei mir mit der Ausnahme, dass Sie haben einen Tippfehler in Ihrem Event-Handler-Deklaration. Ändern:

    AddHandler Me.KeyDown, AddressOf KeyDownsHandler

    zu

    AddHandler Me.KeyDown, AddressOf KeyDownHandler

    Capture-Funktion die Tasten F1..F12 in VB.NET

    Vielen Dank für die überprüfung meines Codes. Ich Durcheinander. Ich bin mit einem Microsoft-Tastatur, und es verlangt Sie die Taste F-Taste auf.

    InformationsquelleAutor theChrisKent

  2. 4

    Zur Erfassung von keys (einschließlich der Funktions-Tasten) habe ich angefangen, zu verwenden Sie dieses Muster, was Recht gut funktioniert:

        Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
        Select Case keyData
            Case Keys.F2
                ' Do something 

            Case Keys.F3
                ' Do more

            Case Keys.Escape
                ' Crap

            Case Else
                Return MyBase.ProcessCmdKey(msg, keyData)

        End Select

        Return True
    End Function

    Diese wird automatisch zu unterdrücken, jeder Taste, die Sie behandeln, in der Select - Anweisung. Wenn Sie möchten, verwenden Sie Kombinationen mit Shift -, Alt-oder Strg-du musst nur Or. Natürlich funktioniert dies auf einem sehr niedrigen Form Niveau, das macht es unabhängig von jedem Steuerelement auf das Formular. Es wird auch trigger komisch Verhalten, wenn Sie nicht wissen, wie Fokus-Sprünge oder schlecht Verhalten Steuert.

    InformationsquelleAutor Bobby

Schreibe einen Kommentar