MouseButton Enum

Definition

Definierar värden som anger knapparna på en musenhet.

public enum class MouseButton
public enum MouseButton
type MouseButton = 
Public Enum MouseButton
Arv
MouseButton

Fält

Name Värde Description
Left 0

Vänster musknapp.

Middle 1

Musknappen i mitten.

Right 2

Höger musknapp.

XButton1 3

Den första utökade musknappen.

XButton2 4

Den andra utökade musknappen.

Exempel

I följande exempel skapas en MouseDown händelsehanterare som använder MouseButton uppräkningen för att avgöra vilken knapp som trycktes på. Beroende på vilken knapp som trycktes på ändras bakgrunden för kontrollen som utlöste händelsen.

private void MouseButtonDownHandler(object sender, MouseButtonEventArgs e)
{
    Control src = e.Source as Control;

    if (src != null)
    {
        switch (e.ChangedButton)
        {
            case MouseButton.Left:
                src.Background = Brushes.Green;
                break;
            case MouseButton.Middle:
                src.Background = Brushes.Red;
                break;
            case MouseButton.Right:
                src.Background = Brushes.Yellow;
                break;
            case MouseButton.XButton1:
                src.Background = Brushes.Brown;
                break;
            case MouseButton.XButton2:
                src.Background = Brushes.Purple;
                break;
            default:
                break;
        }
    }
}
Private Sub MouseButtonDownHandler(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
    Dim src As Control = TryCast(e.Source, Control)

    If src IsNot Nothing Then
        Select Case e.ChangedButton
            Case MouseButton.Left
                src.Background = Brushes.Green
            Case MouseButton.Middle
                src.Background = Brushes.Red
            Case MouseButton.Right
                src.Background = Brushes.Yellow
            Case MouseButton.XButton1
                src.Background = Brushes.Brown
            Case MouseButton.XButton2
                src.Background = Brushes.Purple
            Case Else
        End Select
    End If
End Sub

Gäller för

Se även