Liste déroulante a la souris

Commenter

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

S'inscrire maintenant

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.

Du même auteur (VNathanael)