Ctrl + Click TRES URGENT

Signaler
Messages postés
17
Date d'inscription
mercredi 26 juin 2002
Statut
Membre
Dernière intervention
27 février 2007
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
Bonjour a tous.

Je souhaiterais gérer un evenement Ctrl+Click.

Pour afficher par exemple un menu caché en faisant ctrl+click sur un étiquette.

g bien essayé de faire ca dans du code mais c'est un peu la merdouille.

Si quelqu'un à une soluce, merci d'avance et bon dev

2 réponses

Messages postés
41
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
17 janvier 2003

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
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
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
0