BmpMenu

Dim hmnu As Long
hmnu = GetMenu(Me.hWind)
'Ora dovremmo riferirci al menu File, ovvero al menu popup

'di nome mnuFile. Per ottenere l'handle di questo menu si

'dovra' utilizzare la funzione GetSubMenu delle API.

'A questa funzione e' necessario passare due parametri:

'hMenu l'handle del menu superiore

'nPos posizione del menu popup all'interno del menu superiore

'numerato partendo da zero

'quindi si scrivera' l'istruzione del programma nel modo

'seguente:

Dim hmnPopup As Long
hmnuPopup = GetSubMenu(hmnu, 0)
'Una volta ottenuto l'handle del menu mnuFile si potra'

'utilizzare la funzione SetMenuItemBitmaps delle API per

'posizionare la bitmap all'interno di una voce presente nel

'menu popup. A questa funzione e' necessario passare cinque

'parametri:

'hMenu handle del menu popup (mnuFile)

'nPos posizione della voce all'interno del menu popup numerata

'partendo da zero wFlags specifica come interpretare il valore

'nPos. In questo contesto lo si dovra' impostare a &H400

'hBmUnChk bitmap da visualizzare quando la voce ha la proprieta'

'Checked = False

'hBmChk bitmap da visualizzare quanto la voce ha la proprieta'

'Checked = True

'I paramteri hBmUnChk e hBmChk devono essere passati come

'interi lunghi. In realta' a questi parametri deve essere

'passato un riferimento alla bitmap. Per ottenere un

'riferimento si dovra' utilizzare la proprieta' picture di un

'controllo Image. Quindi si scrivera' la procedura del programma

'nel modo seguente:

Dim x As Long
Dim iBitmap As Long
IBitmap = Image1.Picture
x = SetMenuItemBitmaps(hmnuPopup, 0, &H400, iBitmap, iBitmap)