MouseButton Перечисление

Определение

Определяет значения, задающие кнопки на устройстве мыши.

public enum class MouseButton
public enum MouseButton
type MouseButton = 
Public Enum MouseButton
Наследование
MouseButton

Поля

Left 0

Левая кнопка мыши.

Middle 1

Средняя кнопка мыши.

Right 2

Правая кнопка мыши.

XButton1 3

Первая расширенная кнопка мыши.

XButton2 4

Вторая расширенная кнопка мыши.

Примеры

В следующем примере создается MouseDown обработчик событий, который использует перечисление MouseButton для определения нажатой кнопки. В зависимости от того, какая кнопка была нажата, изменяется фон элемента управления, который активировал событие.

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

Применяется к

См. также раздел