je arrive pas a mettre mes icons dans mon menu

Question

voila le code que j'ai mais il a pas de icon devant je comprend pas



Option Explicit

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private 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

Private Const MF_BITMAP = &H4&

Private Sub Form_Load()
'----------------------
'| Fichier | Edition |
'----------------------
'-Quitter
'Menu 0 Niveau 0
SetMenuBitmap Me, Array(0, 0), 2, Picture1.Picture
'----------------------
'| Fichier | Edition |
'----------------------
'---------- Copier
'Menu 1 Niveau 0
SetMenuBitmap Me, Array(1, 0), 4, Picture2.Picture
'----------------------
'| Fichier | Edition |
'----------------------
'---------- Copier
'---------- Mnu
'---------- |-> Test
'Menu 1 Niveau 1 Sous Menu 0
SetMenuBitmap Me, Array(1, 1, 0), 6, Picture3.Picture
End Sub

Public Sub SetMenuBitmap(ByVal Frm As Form, ByVal item_numbers As Variant, ByVal NumMenu As Integer, ByVal pic As Picture)
Dim hMenu As Long
Dim Boucle As Integer

'Cherche le handle du menu choisi
hMenu = GetMenu(Frm.hwnd)
For Boucle = LBound(item_numbers) To UBound(item_numbers) - 1
hMenu = GetSubMenu(hMenu, item_numbers(Boucle))
Next

SetMenuItemBitmaps hMenu, NumMenu, MF_BITMAP, pic.Handle, pic.Handle

End Sub



merci de votre aide

BasicInstinct · Answer

Je sais pas si ca va t'aider, mais j'ai un prog qui utilise le meme type de code que toi, il tourne tres bien sous 98, mais pas sous Xp (pas de plantage, mais pas d'icones)

cs_laulaut · Answer

moi je suis sur 2000 peut tu me envoye tes code ou ta source pour que vois pourquoi ca marche pas

BasicInstinct · Answer

je suis parti de cette source la au depart

http://www.vbfrance.com/article.aspx?Val=429

aminelgaout · Answer

voici mon email "Votre texte ICI
" j'ai besoin de cherger un eicon sous un menu 
Votre texte ici

Je arrive pas a mettre mes icons dans mon menu

4 réponses

Discussions similaires