Guida Inserire immagini nei menu'

[DarkPako]

In questo tutorial insegnero' ad inserire delle immagini .bmp (bitmap)
di dimensioni massime 13 x 13 nelle voci dei menu'.
Allora, creiamo un nuovo progetto e inseriamo nel form quattro
controlli PictureBox nei quali inseriamo 4 bitmaps 13 x 13. Accediamo
All 'Editor di Menu' (cliccate col tasto destro sul form e premete
Editor di menu'...) e inserite i seguenti menu':
Menu ' numero 1
Sottomenu ' numero 1
Sottomenu ' numero 2
Menu ' numero 2
Sottomenu ' numero 1
Sottomenu ' numero 2
Poi dichiariamo le funzioni e le costanti per inserire le immagini nei
Menu ':

01.
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal
02.
hMenu As Long, _
03.
ByVal uPosition As Long, ByVal uFlags As Long, ByVal hBitmapUnchecked _ As Long, ByVal hBitmapChecked As Long) As Long
04.
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
05.
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, _
06.
ByVal nPos As Long) As Long
07.
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As
08.
Long, _
09.
ByVal nPos As Long) As Long
10.
Private Const MF_BITMAP As Long = &H1

Inseriamo poi il seguente codice:

01.
Private Sub Form_Load()
02.
Menu = GetMenu(Me.hwnd)
03.
' Inserisce nel primo sottomenu' del primo menu' l'immagine contenuta nella Picture1
04.
sMenu = GetSubMenu(Menu, 0)
05.
ID = GetMenuItemID(sMenu, 0)
06.
SetMenuItemBitmaps Menu, ID, MF_BITMAP, Picture1.Picture, Picture1.Picture
07.
' Inserisce nel secondo sottomenu' del primo menu' l'immagine contenuta nella Picture2
08.
sMenu = GetSubMenu(Menu, 0)
09.
ID = GetMenuItemID(sMenu, 2)
10.
SetMenuItemBitmaps Menu, ID, MF_BITMAP, Picture2.Picture, Picture2.Picture
11.
' Inserisce nel primo sottomenu' del secondo menu' l'immagine contenuta nella Picture3
12.
sMenu = GetSubMenu(Menu, 1)
13.
ID = GetMenuItemID(sMenu, 0)
14.
SetMenuItemBitmaps Menu, ID, MF_BITMAP, Picture3.Picture, Picture3.Picture
15.
' Inserisce nel secondo sottomenu' del secondo menu' l'immagine contenuta nella Picture4
16.
sMenu = GetSubMenu(Menu, 1)
17.
ID = GetMenuItemID(sMenu, 1)
18.
SetMenuItemBitmaps Menu, ID, MF_BITMAP, Picture4.Picture, Picture4.Picture
19.
End Sub

Ed ecco i nostri menu' abbelliti...

fonte: web

 

[crokki95]

Bravo come sempre :cool: