Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
18.04.2024 16:33:24
Anzeige
Archiv - Navigation
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Maustaste in UF

Maustaste in UF
Lorenz
Hallo Excelianer
Ist es in einer Userform (in diesem Fall bei Label1) möglich so nach dem Motto:
Private Sub Label1_Click()
If Button = 1 Then (linksklick)
mach was
ElseIf Button = 3 Then (rechtsklick)
mach was anderes
End if
Hat jemand ´ne Idee?
Danke Lorenz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Maustaste in UF
12.12.2011 15:48:10
Hajo_Zi
Halo Lorenz,
Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
If Button = 1 Then
MsgBox "Linke Maustaste"
ElseIf Button = 2 Then
MsgBox "rechte Maustaste"
End If
End Sub


AW: Maustaste in UF
12.12.2011 20:18:23
Lorenz
Danke Hajo
AW: Maustaste in UF
12.12.2011 15:54:19
Rudi
Hallo,
siehe MouseDown-Ereignis.
Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
Select Case Button
Case xlPrimaryButton:   MsgBox "links"
Case xlSecondaryButton: MsgBox "rechts"
End Select
End Sub

Gruß
Rudi
Anzeige
AW: Maustaste in UF
12.12.2011 20:18:51
Lorenz
Danke Rudi

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige