Ajouter un élément au menu

Voila, j'ai créer un menu vb avec "menu editor", j'ai créer un menu "police" et qui à comme nom: "pol"

Si je clique dessus j'obtiens ça:

Private Sub pol_Click()
End Sub

Et j'aimerai bien que ce menu contienne tout les polices de mon pc.
Donc je devrais avoir un code qui ressemble à ça mais qui marche:

Private Sub pol_Click()
For i = 0 To Printer.FontCount - 1
Menu.AddItem (Printer.Fonts(i))
Next i
End Sub

++

Il faut passer par les fonctions API pour ajoutter un menu de façon dynamique, ou alors utiliser les groupes de contrôles (je te conseille les api tout de même : plus complexes certes mais plus pratique quand on a compris leurs manipulations).

Pour ton problème, voilà les fonctions dont tu as besoin :

Declare Function InsertMenuItem Lib "user32.dll" Alias "InsertMenuItemA" (ByVal hMenu As Long, ByVal uItem As Long, ByVal fByPosition As Long, lpmii As MENUITEMINFO) As Long

et :
Private Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long

Pour plus d'info sur ces api, va voir la rubrique API du site www.ProgOtoP.com

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]