[VB] Mettere icone nei menu..

[Gigi84]

nel modulo:

Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos 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 MF_BYPOSITION = &H400&

Routine:

Private Sub IconeMenu()
'* Assegna le immagini nei menu nel Form
     Dim hMenuBarra As Long          '* handle per la barra dei menu
     Dim hMenuFile As Long          '* handle del primo menu nella barra
     Dim ris As Boolean              '* risposta della funzione

     '* Ottiene l'handle della barra del menu
     hMenuBarra = GetMenu(frmMain.hwnd)
     '* Ottiene l'handle del primo menu (indice che parte da zero)
     hMenuFile = GetSubMenu(hMenuBarra, 1)
     '* Assegnazione immagini Menu File
     ris = SetMenuItemBitmaps(hMenuFile, 0, MF_BYPOSITION, imlMenu.ListImages(1).Picture.Handle, imlMenu.ListImages(1).Picture.Handle)
End Sub

l'ho trovata sul forum sui 25 newsgroup italiani inglesi e giapponesi a molti va ad alcuni non va.. neanche a me va!! ma perchè?????????????????????????


le immagini nella imagelist sono 13x13
ho Win ME

Help me please.. :gren:

[giuSp]

...sono le imageList...
...prova in 2 pictureBox.....

[giuSp]

...le immagini devono essere
bmp
e non .ico!no, no!!

[giuSp]

il risultato è una skifezza............
.....dovresti utilizzare molte più API!!!!

[Gigi84]

Quali api??!
Prova a dirmi quali.. che provo a metterle insieme
se ho problemi poi uppo il thread..!:gren: :gren:

[giuSp]

getMenu
getSubMenu
createCompatibleBitmpap
relaseobj
selectobj
bitblt
createmenu
appendmenu
......
....
un casino di funzioni...ke ora non mi vengono in mente..... ciao....

[Gigi84]

Ci sono riuscito!!
il problema era prorpio il fatto delle bitmap!!
cmq io mi sa che ho saempre trovato scritto "icone"..

Ciao!!