Creer un menu popup (menu du clic droit!)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 28 960 fois - Téléchargée 65 fois

Contenu du snippet

creez 2 forms:
form1 & form2
mettez un control sur form1
et creez un menu avec descendance sur form2.
nommez l'entete du menu "monmenu"
choisissez l'action MouseDown ou MouseUp
de votre control et mettez ce code:

Source / Exemple :


Private Sub CONTROL_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu Form2.monmenu
End If
End Sub

Conclusion :


Voila!
ça marche meme sur les richtextbox!!!

A voir également

Ajouter un commentaire

Commentaires

[Je ne casse pas][c'est juste un conseil]

ça marche aussi avec une seule form en mettant le le point le plus haut de ton sous menu en invisible, le fait de le popuper le rend visible ou tu veux mais pas dans la barre supérieur. C'est y pas merveilleux?
Pour une fois que tu fais pas chier...
*
Merde, en + t'as raison!
Mémère a raison ! mais euh... mémère t un mec ou une fille ? svp répond moi par mail =)
excusez moi.....c'est encore le newbie...eske..

COMMENT SA MARCHEEE!!!????
j'aimerai trop savoir paske c tro interessant...mai les module c nouveau pour moi
Almandric
Messages postés
31
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
12 août 2003
-
Une p'tite explication sur la ligne :
'If Button = 2 Then'
Tu peux remplacer '2' par des constantes, c'est plus facile à comprendre :
vbLeftButton = 1
vbRightButton = 2
vbMiddleButton = 4

Voila c'est tout....

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.