Menu :clic droit----------------
Url     : http://codes-sources.commentcamarche.net/source/400-menu-clic-droitAuteur  : pitrackDate    : 07/08/2013
Licence :
=========

Ce document intitul  Menu :clic droit  issu de CommentCaMarche
(codes-sources.commentcamarche.net) est mis  disposition sous les termes de
la licence Creative Commons. Vous pouvez copier, modifier des copies de cette
source, dans les conditions fixes par la licence, tant que cette note
apparat clairement.

Description :
=============

Pour afficher un menu avec le clic droit
<br /><a name='source-exemple'></a><h2
> Source / Exemple : </h2>

<br /><pre class='code' data-mode='basic'>
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 The
n
' Bouton droit --&gt; Affichage du menu
    PopupMenu Menu.mnuPopup
End If


End Sub

Option Explicit

Private Declare Function SetWindowPos Lib &quot;u
ser32&quot; (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, ByVal x A
s 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.S
howColor
End Sub

Private Sub mnuImprimer_Click()
Dialog1.ShowPrinter
End S
ub

Private Sub mnuOuvrir_Click()
'Ouvre la boite de dialogue...
Dialog1.Sho
wOpen
End Sub

Private Sub mnuQuitter_Click()
' Ferme les fentres...
Unloa
d Form1
Unload Me
End Sub

Private Sub mnuSauver_Click()
Dialog1.ShowSave

End Sub
</pre>
<br /><a name='conclusion'></a><h2> Conclusion : </h2>

<br />
Pour l'instant je n'ai r&eacute;ussi a le faire fonctionner que dans un label?
