Udostępnij za pośrednictwem

Jak modyfikować zdarzenia klawiszy klawiatury (Windows Forms .NET)

  • Artykuł

Formularze systemu Windows umożliwiają używanie i modyfikowanie danych wejściowych klawiatury. Użycie klucza odnosi się do obsługi klucza w metodzie lub procedurze obsługi zdarzeń, tak aby inne metody i zdarzenia dalej w kolejce komunikatów nie odbierały wartości klucza. Modyfikowanie klucza odnosi się do modyfikowania wartości klucza, tak aby metody i procedury obsługi zdarzeń dalej w kolejce komunikatów odbierały inną wartość klucza. W tym artykule pokazano, jak wykonać te zadania.

Zużycie klucza

W programie obsługi zdarzeń KeyPress ustaw właściwość Handled klasy KeyPressEventArgs na true.

-lub-

W programie obsługi zdarzeń KeyDown ustaw właściwość Handled klasy KeyEventArgs na true.

Notatka

Ustawienie właściwości Handled w obiekcie obsługi zdarzenia KeyDown nie zapobiega generowaniu zdarzeń KeyPress i KeyUp dla bieżącego naciśnięcia klawisza. W tym celu użyj właściwości SuppressKeyPress.

Poniższy przykład obsługuje zdarzenie KeyPress w celu korzystania z kluczy znaków A i a. Tych kluczy nie można wpisać w polu tekstowym:

private void textBox1_KeyPress(object sender, KeyPressEventArgs e)
{
    if (e.KeyChar == 'a' || e.KeyChar == 'A')
        e.Handled = true;
}

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs)
    If e.KeyChar = "a"c Or e.KeyChar = "A"c Then
        e.Handled = True
    End If
End Sub

Modyfikowanie standardowego klucza znaku

W programie obsługi zdarzeń KeyPress ustaw właściwość KeyChar klasy KeyPressEventArgs na wartość nowego klucza znaku.

Poniższy przykład obsługuje zdarzenie KeyPress, aby zmienić wszystkie klucze znaków A i a na !:

private void textBox2_KeyPress(object sender, KeyPressEventArgs e)
{
    if (e.KeyChar == 'a' || e.KeyChar == 'A')
    {
        e.KeyChar = '!';
        e.Handled = false;
    }
}

Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs)
    If e.KeyChar = "a"c Or e.KeyChar = "A"c Then
        e.KeyChar = "!"c
        e.Handled = False
    End If
End Sub

Modyfikowanie klucza nieliterowego

Możesz modyfikować naciśnięcia klawiszy niebędących znakami, dziedzicząc po kontrolce i przesłaniając metodę PreProcessMessage. Ponieważ Message danych wejściowych są wysyłane do kontrolki, są przetwarzane przed zdarzeniami podnoszenia kontrolek. Możesz przechwycić te komunikaty, aby je modyfikować lub blokować.

W poniższym przykładzie kodu pokazano, jak użyć właściwości WParam z parametru Message w celu zmiany wciśniętego klawisza. Ten kod wykrywa klucz z F1 przez F10 i tłumaczy klucz na klucz liczbowy, począwszy od 0 przez 9 (gdzie F10 mapuje się na 0).

public override bool PreProcessMessage(ref Message m)
{
    const int WM_KEYDOWN = 0x100;

    if (m.Msg == WM_KEYDOWN)
    {
        Keys keyCode = (Keys)m.WParam & Keys.KeyCode;

        // Detect F1 through F9.
        m.WParam = keyCode switch
        {
            Keys.F1 => (IntPtr)Keys.D1,
            Keys.F2 => (IntPtr)Keys.D2,
            Keys.F3 => (IntPtr)Keys.D3,
            Keys.F4 => (IntPtr)Keys.D4,
            Keys.F5 => (IntPtr)Keys.D5,
            Keys.F6 => (IntPtr)Keys.D6,
            Keys.F7 => (IntPtr)Keys.D7,
            Keys.F8 => (IntPtr)Keys.D8,
            Keys.F9 => (IntPtr)Keys.D9,
            Keys.F10 => (IntPtr)Keys.D0,
            _ => m.WParam
        };
    }

    // Send all other messages to the base method.
    return base.PreProcessMessage(ref m);
}

Public Overrides Function PreProcessMessage(ByRef m As Message) As Boolean

    Const WM_KEYDOWN = &H100

    If m.Msg = WM_KEYDOWN Then
        Dim keyCode As Keys = CType(m.WParam, Keys) And Keys.KeyCode

        Select Case keyCode
            Case Keys.F1 : m.WParam = CType(Keys.D1, IntPtr)
            Case Keys.F2 : m.WParam = CType(Keys.D2, IntPtr)
            Case Keys.F3 : m.WParam = CType(Keys.D3, IntPtr)
            Case Keys.F4 : m.WParam = CType(Keys.D4, IntPtr)
            Case Keys.F5 : m.WParam = CType(Keys.D5, IntPtr)
            Case Keys.F6 : m.WParam = CType(Keys.D6, IntPtr)
            Case Keys.F7 : m.WParam = CType(Keys.D7, IntPtr)
            Case Keys.F8 : m.WParam = CType(Keys.D8, IntPtr)
            Case Keys.F9 : m.WParam = CType(Keys.D9, IntPtr)
            Case Keys.F10 : m.WParam = CType(Keys.D0, IntPtr)
        End Select
    End If

    Return MyBase.PreProcessMessage(m)
End Function

Zobacz też