MouseButton Enum

Definisi

Menentukan nilai yang menentukan tombol pada perangkat mouse.

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

Bidang

Left 0

Tombol kiri mouse.

Middle 1

Tombol mouse tengah.

Right 2

Tombol kanan mouse.

XButton1 3

Tombol mouse yang diperluas pertama.

XButton2 4

Tombol mouse yang diperluas kedua.

Contoh

Contoh berikut membuat MouseDown penanganan aktivitas yang menggunakan MouseButton enumerasi untuk menentukan tombol mana yang ditekan. Bergantung pada tombol mana yang ditekan, latar belakang kontrol yang mengaktifkan peristiwa diubah.

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

Berlaku untuk

Lihat juga