My.Computer.Mouse-Objekt

Článek
08/20/2008

Aktualisiert: November 2007

Stellt Eigenschaften zum Abrufen von Informationen über das Format und die Konfiguration der auf dem lokalen Computer installierten Maus bereit.

Hinweise

Das My.Computer.Mouse-Objekt ermöglicht die Suche nach Informationen über die Maus des Computers, z. B. ob die Funktionen der Maustasten vertauscht sind und Angaben zum Bildlaufrad der Maus.

Beispiel

In diesem Beispiel wird mithilfe der My.Computer.Mouse.WheelExists-Eigenschaft und der My.Computer.Mouse.WheelScrollLines-Eigenschaft bestimmt, ob die Maus über ein Bildlaufrad verfügt und wie umfangreich der Bildlauf beim Drehen des Bildlaufrads ist.

If My.Computer.Mouse.WheelExists Then
    Dim lines As Integer = My.Computer.Mouse.WheelScrollLines
    If lines > 0 Then
        MsgBox("Application scrolls " & _
            lines & " line(s) for each wheel turn.")
    Else
        MsgBox("Application scrolls " & _
            (-lines) & " page(s) for each wheel turn.")
    End If
Else
    MsgBox("Mouse has no scroll wheel.")
End If