title image


Smiley Visual Basic in 21 Tagen rät...
Anhand des Shift-Werts erkennen Sie, welche Taste der Benutzer in Verbindung mit einem Mausereignis gedrückt hat1: Private Sub imgMouse_MouseDown(intButton As Integer, intShift As _Integer, sngX As Single, sngY As Single)2: Dim intShiftState As Integer3: intShiftState = intShift And 7 ' Spezielles bitweises Und4: Select Case intShiftState5: Case 16: ' Code für Shift-Kombinationen7: Case 28: ' Code für Strg-Kombinationen9: Case 310: ' Code für Alt-Kombinationen11: Case 412: ' Code für Shift+Strg-Kombinationen13: Case 514: ' Code für Shift+Alt-Kombinationen15: Case 616: ' Code für Strg+Alt-Kombinationen17: Case 718: ' Code for Shift+Strg+Alt-Kombinationen19: End Select20: End Sub Der spezielle Und-Vergleich in Zeile 3 wertet ein internes Bit-Flag aus, um festzustellen, welche Taste der Benutzer zusammen mit dem Mausereignis gedrückt hat.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: