Ctrl + Click TRES URGENT
Sky182
Messages postés
17
Date d'inscription
mercredi 26 juin 2002
Statut
Membre
Dernière intervention
27 février 2007
-
23 juil. 2002 à 11:52
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 23 juil. 2002 à 12:32
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 23 juil. 2002 à 12:32
2 réponses
cs_dido
Messages postés
41
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
17 janvier 2003
23 juil. 2002 à 12:05
23 juil. 2002 à 12:05
Salut,
il faut mettre ds evenement MouseUp ou MouseDown du controle le code suivant :
If Shift = 2 Then '2=CTRL, 1=SHIFT,0=aucune touche
MsgBox "message que tu veux, ou execution de ta routine"
End If
Vala
il faut mettre ds evenement MouseUp ou MouseDown du controle le code suivant :
If Shift = 2 Then '2=CTRL, 1=SHIFT,0=aucune touche
MsgBox "message que tu veux, ou execution de ta routine"
End If
Vala
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
23 juil. 2002 à 12:32
23 juil. 2002 à 12:32
Dim ShiftTest As Integer
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
ShiftTest = Shift And 7
Select Case ShiftTest
Case 1 ' ou vbShiftMask
Print "Vous avez appuyé sur la touche MAJ."
Case 2 ' ou vbCtrlMask
Print "Vous avez appuyé sur la touche CTRL."
Case 4 ' ou vbAltMask
Print "Vous avez appuyé sur la touche ALT."
Case 3
Print "Vous avez appuyé sur les touches" _
& " MAJ et CTRL."
Case 5
Print "Vous avez appuyé sur les touches" _
& " MAJ et ALT."
Case 6
Print "Vous avez appuyé sur les touches" _
& " CTRL et ALT."
Case 7
Print "Vous avez appuyé sur les touches" _
& " MAJ,CTRL et ALT."
End Select
End Sub
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
ShiftTest = Shift And 7
Select Case ShiftTest
Case 1 ' ou vbShiftMask
Print "Vous avez appuyé sur la touche MAJ."
Case 2 ' ou vbCtrlMask
Print "Vous avez appuyé sur la touche CTRL."
Case 4 ' ou vbAltMask
Print "Vous avez appuyé sur la touche ALT."
Case 3
Print "Vous avez appuyé sur les touches" _
& " MAJ et CTRL."
Case 5
Print "Vous avez appuyé sur les touches" _
& " MAJ et ALT."
Case 6
Print "Vous avez appuyé sur les touches" _
& " CTRL et ALT."
Case 7
Print "Vous avez appuyé sur les touches" _
& " MAJ,CTRL et ALT."
End Select
End Sub
