Sdílet prostřednictvím


MouseButton Výčet

Definice

Definuje hodnoty, které určují tlačítka na zařízení myši.

public enum class MouseButton
public enum MouseButton
type MouseButton = 
Public Enum MouseButton
Dědičnost
MouseButton

Pole

Left 0

Levé tlačítko myši.

Middle 1

Prostřední tlačítko myši.

Right 2

Pravé tlačítko myši

XButton1 3

První rozšířené tlačítko myši.

XButton2 4

Druhé rozšířené tlačítko myši.

Příklady

Následující příklad vytvoří obslužnou rutinu MouseDown události, která pomocí výčtu MouseButton určí, které tlačítko bylo stisknuto. V závislosti na tom, které tlačítko bylo stisknuto, se změní pozadí ovládacího prvku, který událost aktivoval.

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

Platí pro

Viz také