Soyez le premier à donner votre avis sur cette source.
Vue 9 539 fois - Téléchargée 1 813 fois
Option Explicit Private WithEvents AfMenu As AfCls_PopupMenu ' Private Sub Form_Load() Set AfMenu = New AfCls_PopupMenu AfMenu.ParentHandle = Me.hWnd AfMenu.AddItem 101, "Ouvrir" AfMenu.AddItem 102, "Enregistrer sous", False, False AfMenu.AddSeparator AfMenu.AddItem 103, "[X] Quitter" ' OUBIEN AfMenu.CreateEasyMenu "Ouvrir;Enregistrer sous;;[X] Quitter" End Sub ' Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then AfMenu.DisplayMenu End Sub ' Private Sub Form_Unload(Cancel As Integer) Set AfMenu = Nothing End Sub ' Private Sub AfMenu_Clicked(ByVal ID As Long, ByVal Caption As String, ByVal Checked As Boolean, ByVal Tag As Variant, ByVal IsChild As Boolean) Debug.Print "MENU CLICKé : " & ID & " " & Caption & " " & Checked End Sub
De toutes façons, ta classe reste utile quand on ne peut pas créer le menu à la création : création dynamique au moment de l'exécution quand par exemple on ne sait pas le nom ou le nombre des items, ...
cela dit on est alors obligé de supprimer le caption, or on peut en avoir besoin pour afficher la fenêtre dans la barre des tâches. bref en classe c'est toujours pratique non?
++ ;)
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.