| |
Visual-Basic EinsteigerClick auf Label - links oder rechts | | | Autor: crosstravel | Datum: 05.12.19 20:17 |
| Hallo,
wie kann ich bei einem Klick auf ein Label feststellen, ob die linke oder die rechte Mouse-Taste gedrückt wurde?
Ich fange das Click-Ereignis auf ein Label so ab:
Private Sub Label1_Click(Index As Integer)
....
End Sub Das funktioniert natürlich bestens. Nun muss ich aber noch feststellen, ob die linke (1) oder die rechte (2) Taste der Maus gedrückt wurde. Damit habe ich nun Probleme. Ich finde hier kein passendes Case-Konstrukt.
Danke
Rainer
Beitrag wurde zuletzt am 05.12.19 um 20:42:34 editiert. | |
Re: Click auf Label - links oder rechts | | | Autor: Zardoz | Datum: 05.12.19 21:50 |
| Hallo Rainer,
das geht mit dem MouseDown oder dem MouseUp-Event:
Private Sub Label1_MouseUp(Index As Integer, Button As Integer, Shift As _
Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
MsgBox "Linke Maustaste"
ElseIf Button = vbRightButton Then
MsgBox "Rechte Maustaste"
End If
End Sub Gruss,
Zardoz | |
Re: Click auf Label - links oder rechts | | | Autor: crosstravel | Datum: 05.12.19 22:02 |
| Hallo Zardoz,
komme ich da nicht in Konflikt mit dem Index vom Label-Click (Index des geklickten Labels) oder muss ich den Button zuerst auswerten?
Würde dann das Resultat in einer Variablen dem Label-Click-Ereignis zur Verfügung stellen. Voraussetzung wäre natürlich, dass das
MouseUp vor dem Label_Click erfolgt. Oder sehe ich was falsch? | |
Re: Click auf Label - links oder rechts | | | Autor: Zardoz | Datum: 05.12.19 22:35 |
| Hallo Rainer,
ich sehe im Moment keinen Konflikt. Du kannst das Click-Event
weglassen und dessen Code im Mouseup-Event einsetzen. Folgendes
geht auch:
Private LastButton As Integer
Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As _
Integer, X As Single, Y As Single)
LastButton = Button
End Sub
Private Sub Label1_Click(Index As Integer)
If LastButton = vbLeftButton Then
MsgBox "Linke Maustaste"
ElseIf LastButton = vbRightButton Then
MsgBox "Rechte Maustaste"
End If
End Sub Gruss,
Zardoz | |
Re: Click auf Label - links oder rechts | | | Autor: crosstravel | Datum: 06.12.19 05:50 |
| Guten Morgen Zardoz,
es hat bestens geklappt. Vielen Dank.
Gruss
Rainer | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevPopUp 2.0
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|