Icones dans menu vb6

[Résolu]
Signaler
Messages postés
47
Date d'inscription
samedi 19 novembre 2005
Statut
Membre
Dernière intervention
26 janvier 2010
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
Comment mettre des icones sur les lignes de mes menus sous vb6
merci de la réponse.

1 réponse

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonsoir,

Pour réaliser cet exemple, crée trois sous-menu, place trois PictureBox
avec une image BITMAP dans leur propriété picture, mets AutoSize à True
et leur propriété visible à False. (dans l'exemple les PictureBox sont
nommés,( PicEnregistrer, PicOuvrir et PicStop)



'Dans un Module.



Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

Public Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As
Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal
hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long



Public Const M_BITMAP = 4&



'Dans la Form



Private Sub Form_Load()

Dim hMenu As Long

Dim hSousMenu As Long

Dim ID As Long



' le premier sousmenu a pour index 2, le suivant 3 etc...



hMenu = GetMenu(Me.hwnd)

' Premier sous-menu <ouvrir>



ID = 2

SetMenuItemBitmaps hMenu, ID, M_BITMAP, PicOuvrir.Picture, PicOuvrir.Picture

'Deuxième Sous-Menu <Enregistrer>



ID = 3

SetMenuItemBitmaps hMenu, ID, M_BITMAP, PicEnregistrer.Picture, PicEnregistrer.Picture



ID = 5

SetMenuItemBitmaps hMenu, ID, M_BITMAP, PicStop.Picture, PicStop.Picture

End Sub



Private Sub mnuQuitter_Click()

End

End Sub



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci