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
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.