Gruppe
Ereignis
Problem
Wie kann ich feststellen, ob eine Tabellenblattschaltfläche mit oder ohne gehaltene Hochschalttaste gedrückt wurde?
ClassModule: Tabelle1
Private Sub cmdVerzweigung_MouseDown( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If Shift = 0 Then Call Meldung1 Else Call Meldung2
End Sub
Sub Meldung1()
MsgBox "Shift-Taste nicht gedrückt!"
End Sub
Sub Meldung2()
MsgBox "Shift-Taste gedrückt!"
End Sub