PDA

Visualizza la versione completa : [VB] Mettere icone nei menu..


Gigi84
22-07-2002, 17:17
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č?????????????????????????
:cry: :cry: :cry:

le immagini nella imagelist sono 13x13
ho Win ME

Help me please.. :gren:

:ciauz: :ciauz:

giuSp
22-07-2002, 18:29
...sono le imageList...
...prova in 2 pictureBox.....

giuSp
22-07-2002, 18:31
...le immagini devono essere
bmp
e non .ico!no, no!!
:D :D

giuSp
22-07-2002, 18:32
il risultato č una skifezza............
.....dovresti utilizzare molte pių API!!!!

:ciauz: :ciauz:

Gigi84
22-07-2002, 19:24
Quali api??!
Prova a dirmi quali.. che provo a metterle insieme
se ho problemi poi uppo il thread..!:gren: :gren:

giuSp
22-07-2002, 19:50
getMenu
getSubMenu
createCompatibleBitmpap
relaseobj
selectobj
bitblt
createmenu
appendmenu
......
....
un casino di funzioni...ke ora non mi vengono in mente..... ciao....

Gigi84
23-07-2002, 08:57
Ci sono riuscito!!
il problema era prorpio il fatto delle bitmap!!
cmq io mi sa che ho saempre trovato scritto "icone"..

Ciao!!

:ciauz: :ciauz:

Loading