BmpToMenu

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:

'hMenul'handle del menu superiore

'nPosposizione 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)