Udostępnij za pośrednictwem

Modyfikowanie zdarzeń 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.

Korzystanie z klucza

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

— lub —

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

Uwaga

Handled Ustawienie właściwości w procedurze KeyDown obsługi zdarzeń nie uniemożliwia KeyPress wywoływanie zdarzeń i KeyUp dla bieżącego naciśnięcia. SuppressKeyPress Użyj właściwości w tym celu.

W poniższym przykładzie KeyPress zdarzenie jest obsługiwane w celu korzystania z A kluczy znaków 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 procedurze obsługi zdarzeń KeyPress ustaw KeyChar właściwość KeyPressEventArgs klasy na wartość nowego klucza znaku.

Poniższy przykład obsługuje KeyPress zdarzenie, aby zmienić dowolne A klucze znaków 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 innego niż znak

Naciśnięcia innego niż znak można modyfikować tylko przez dziedziczenie po kontrolce i zastępowanie PreProcessMessage metody. Gdy dane wejściowe Message 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ć WParam właściwości parametru Message w celu zmiany naciśnięcia. Ten kod wykrywa klucz od F1 do F10 i tłumaczy klucz na klucz liczbowy od 0 do 9 (gdzie F10 mapuje 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ż