MouseButton Enumeração

Definição

Define valores que especificam os botões num dispositivo rato.

public enum class MouseButton
public enum MouseButton
type MouseButton = 
Public Enum MouseButton
Herança
MouseButton

Campos

Name Valor Description
Left 0

O botão esquerdo do rato.

Middle 1

O botão do meio do rato.

Right 2

O botão direito do rato.

XButton1 3

O primeiro botão estendido do rato.

XButton2 4

O segundo botão estendido do rato.

Exemplos

O exemplo seguinte cria um MouseDown gestor de eventos que usa a MouseButton enumeração para determinar qual botão foi pressionado. Dependendo do botão pressionado, o fundo do controlo que disparou o evento muda.

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

Aplica-se a

Ver também