Pour afficher un menu avec le clic droit
Source / Exemple :
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Label_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
sgL = Me.Left
sgT = Me.Top
sgX = x
sgY = y
blMove = True
ElseIf Button = 2 Then
' Bouton droit --> Affichage du menu
PopupMenu Menu.mnuPopup
End If
End Sub
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Sub mnuCouleur_Click()
Dialog1.ShowColor
End Sub
Private Sub mnuImprimer_Click()
Dialog1.ShowPrinter
End Sub
Private Sub mnuOuvrir_Click()
'Ouvre la boite de dialogue...
Dialog1.ShowOpen
End Sub
Private Sub mnuQuitter_Click()
' Ferme les fenêtres...
Unload Form1
Unload Me
End Sub
Private Sub mnuSauver_Click()
Dialog1.ShowSave
End Sub
Conclusion :
Pour l'instant je n'ai réussi a le faire fonctionner que dans un label?
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.