MouseButton Enum

Definitie

Definieert waarden die de knoppen op een muisapparaat opgeven.

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

Velden

Name Waarde Description
Left 0

De linkermuisknop.

Middle 1

De middelste muisknop.

Right 2

De rechtermuisknop.

XButton1 3

De eerste uitgebreide muisknop.

XButton2 4

De tweede uitgebreide muisknop.

Voorbeelden

In het volgende voorbeeld wordt een MouseDown gebeurtenis-handler gemaakt die gebruikmaakt van de MouseButton opsomming om te bepalen welke knop is ingedrukt. Afhankelijk van welke knop is ingedrukt, wordt de achtergrond van het besturingselement dat de gebeurtenis heeft geactiveerd, gewijzigd.

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

Van toepassing op

Zie ook