Liste déroulante a la souris

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 619 fois - Téléchargée 39 fois

Contenu du snippet

Ce code permet de faire des listes déroulante sur les boutons de la souris

Source / Exemple :


''Toto est le nom de la forme

'' Crée la lsite avec l'éditeur de menu
menu01 (non visible)
....menu02(visible)
....menu03(visible)
....menu04(visible)
....menu05(visible)
............menu06(visible)

''ENsuite dans la form
Private Sub TOTO_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   
  Select case Button
    case is = vbRightButton Then '' sur le bouton droit
        PopupMenu TOTO.popup_menu
    case is = vbleftButton Then '' sur le bouton gauche
    
    case is = vbcenterButton Then '' bouton centrale
      
   case else
    
    End Sub

A voir également

Ajouter un commentaire

Commentaires

Guidelor
Messages postés
236
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
18 août 2006
-
MERCIIIII !!!
Nighto
Messages postés
1
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
15 janvier 2004
-
Je voudrais savoir comment faire une liste deroulante mais dans le Word or Excell...Merci
manu44000
Messages postés
2
Date d'inscription
mardi 16 décembre 2003
Statut
Membre
Dernière intervention
7 mars 2006
-
voilà un code qui m'a bien dépanné !

merci !
lhoussin2006
Messages postés
6
Date d'inscription
mercredi 2 août 2006
Statut
Membre
Dernière intervention
9 août 2006
-
Excuse moi ca marche pas!
j'ai jammais vu qqch comme: case is=variable then;
merci en tout cas je vais essayer de chercher d'ailleur en se basant sur votre aidée.
merci.
lhoussin,
MaBooL
Messages postés
3
Date d'inscription
dimanche 17 septembre 2006
Statut
Membre
Dernière intervention
3 juin 2007
-
pfft.
Je suis débutant (depuis un moment !) donc j'ai rien compris !
La forme TOTO elle doit avoir quelle tête ?
J'ai pas compris comment on faisait pour éditer les menus (même avec l'aide en ligne de Microsoft) ?
Bref, c'est dommage, parce que je crois que c'est pile poil ce que je cherchais à faire...
Commenter la réponse de cs_Womby

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.