Importare le icone nel menu o sottomenu?[vb6]

[ANTAGONIA]

Buona sera un'altro problema!

Ho creato il mio menu con menu editor.
Adesso vorrei che vicino ogni voce del sottomenù, sia visibile l'icona relativa!

Se qualcuno sa qualcosa.... mi spedite se potete il codice di come fare?

Grazie a tutti come sempre!

[sebamix]

Prova
http://www.allapi.net/apilist/SetMenuItemBitmaps.shtml

[ANTAGONIA]

Sono andato sul sito che mi hai consigliato, ho visto,ma, è dura non capisco bene quello che devo fare!
Ti dico quello che sto facendo.
Ho selezionato il link - SetMenuItemBitmaps,e, mi ha dato come risultato questo codice, che io prontamente ho incollato nel mio cosi:
Const MF_BYPOSITION = &H400&
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 Sub Form_Load()
Dim hMenu As Long, hSubMenu As Long
hMenu = GetMenu(Me.hwnd)
If hMenu = 0 Then
MsgBox "This form doesn't have a menu!"
Exit Sub
End If

hSubMenu = GetSubMenu(hMenu, 0)
If hSubMenu = 0 Then
MsgBox "This form doesn't have a submenu!"
Exit Sub
End If
SetMenuItemBitmaps hSubMenu, 0, MF_BYPOSITION, Picture1.Picture, Picture1.Picture
end sub

Non fa nulla per adesso.

Devo fare qualcos'altro?
e se si, mi dici per cortesia cosa?

Grazie ciao!

[sebamix]

ma il codice parte almeno?
hai caricato una bitmap in bianco e nero nella picturebox?

[Gigi84]

piccola intrusione:
con quell'api avevo provato un po'di tempo fa, ma non viene un gran che.. perchè quando selezioni una voce del menu, l'icona associata si seleziona anche lei e il risultato è un po' bruttino!
invece non sono mai riuscito a mettere quelle icone tipo word, che sono un po' in rilievo e non vengono selezionate!!
sfrutto il 3d:gren: per chiedere se qlcuno sa come si fa..

[sebamix]

Originariamente inviato da Gigi84
piccola intrusione:
con quell'api avevo provato un po'di tempo fa, ma non viene un gran che.. perchè quando selezioni una voce del menu, l'icona associata si seleziona anche lei e il risultato è un po' bruttino!
invece non sono mai riuscito a mettere quelle icone tipo word, che sono un po' in rilievo e non vengono selezionate!!
sfrutto il 3d:gren: per chiedere se qlcuno sa come si fa..

per ottenere dei menu decenti graficamente bisognerebbe impazzire.
Prova
http://www.planetsourcecode.com/vb/s...43638&lngWId=1

[ANTAGONIA]

Per SEBAMIX:

ma il codice parte almeno?
hai caricato una bitmap in bianco e nero nella picturebox?
__________________________________________________ _________

L'immagine l'ho caricata manualmente con le Properties--> Picture e poi il percorso.
Ho visto con il debug che fa un controllo sul menu se c'e'.. io ce l'ho e quindi salta tutte le msgbox e adesso?

Mannaggia......

vabbè se puoi continuare ad aiutarmi.... mi fai un'immenso favore!
Altrimenti ti ringrazio comunque.... TNX'S

[ANTAGONIA]

Ho risolto in questa maniera:

Private Sub Form_Load()
'*************************************
Dim hMenu As Long, hSubMenu As Long, hSubMenu1 As Long, hSubMenu2 As Long, hSubMenu3 As Long
'get the handle of the menu
hMenu = GetMenu(Me.hwnd)
'check if there's a menu
If hMenu = 0 Then
MsgBox "This form doesn't have a menu!"
Exit Sub
End If
'get the first submenu
hSubMenu = GetSubMenu(hMenu, 0)
hSubMenu1 = GetSubMenu(hMenu, 1)
hSubMenu2 = GetSubMenu(hMenu, 2)
hSubMenu3 = GetSubMenu(hMenu, 3)
'check if there's a submenu
If hSubMenu = 0 Then
MsgBox "This form doesn't have a submenu!"
Exit Sub
End If

SetMenuItemBitmaps hSubMenu, 0, MF_BYPOSITION, Picture2.Picture, Picture2.Picture
SetMenuItemBitmaps hSubMenu, 1, MF_BYPOSITION, Picture3.Picture, Picture3.Picture
SetMenuItemBitmaps hSubMenu, 2, MF_BYPOSITION, Picture4.Picture, Picture4.Picture
SetMenuItemBitmaps hSubMenu, 4, MF_BYPOSITION, Picture4.Picture, Picture4.Picture

SetMenuItemBitmaps hSubMenu1, 0, MF_BYPOSITION, Picture2.Picture, Picture2.Picture
SetMenuItemBitmaps hSubMenu1, 1, MF_BYPOSITION, Picture3.Picture, Picture3.Picture

SetMenuItemBitmaps hSubMenu2, 0, MF_BYPOSITION, Picture4.Picture, Picture4.Picture

SetMenuItemBitmaps hSubMenu3, 0, MF_BYPOSITION, Picture5.Picture, Picture4.Picture
SetMenuItemBitmaps hSubMenu3, 1, MF_BYPOSITION, Picture5.Picture, Picture4.Picture
end sub

Alla Grande proprio aho....

Grazie per l'aiuto SEBAMIX.... TNX'S

[Gigi84]

Originariamente inviato da sebamix
per ottenere dei menu decenti graficamente bisognerebbe impazzire.
Prova
http://www.planetsourcecode.com/vb/s...43638&lngWId=1

è enormne!!
xò devo dire che è il più completo che ci sia!! tnx!!

[ANTAGONIA]

Una cortesia.......
Come faccio a dare una misura per le icone che visualizzo accanto ai pulsanti del menu creato con il menu editor?

Grazie.....