Imagenes en un menú (VB)

[AeSePe1]

Hola.
Me gustaría crear menúes con imágenes como tiene el internet explorer... (ej: en el ´boton actualizar, tiene una hoja...)
espero su respuesta.

[ErIc DrAvEn]

No entiendo muy bien lo que dices pero
si lo que quieres es algo parecido alos botones de refresh, stop, favorites, etc etc
puedes usar una PictureBox

en propiedade secojes el dibujo y ya
despues solo le das las opciones ke kieras ke realise como si fuese un command butto

tambien puedes usar una image

bueno hay muchas formas nada mas es de echar a volar la imaginacion xP
espero y esto te haya ayudado en algo
bye


End Sub

[kkenen]

No controlo mucho el tema de la API, pero se que lo puedes conseguir y tampoco creo que sea muy dificil, asi que si estas interesado busca informacion por la red.

Si buscas por ambsoftware.com seguro que encuentras algun manual de Api, yo hace poco vi uno de pasada.

[Jorge_Mota]

Tomado de www.allapi.net

'Download the full source+pictures+.. at http://www.allapi.net/php/redirect/r...download&id=13
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
Const MF_BITMAP = 4
Const MF_CHECKED = 8
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Dim hMenu As Long, hSubMenu As Long, lngID As Long

'Get the handle of the form's menu
hMenu = GetMenu(Me.hWnd)
'Get the handle of the form's submenu
hSubMenu = GetSubMenu(hMenu, 0)

'Change first item (index=0)
picBitmaps(0).Picture = picBitmaps(0).Image
lngID = GetMenuItemID(hSubMenu, 0)
Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(0).Picture))

'Change second item (index=1)
picBitmaps(1).Picture = picBitmaps(1).Image
lngID = GetMenuItemID(hSubMenu, 1)
Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(1).Picture))

'Change third item (index=2)
picBitmaps(2).Picture = picBitmaps(2).Image
lngID = GetMenuItemID(hSubMenu, 2)
Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(2).Picture))

mnuBitmap1.Checked = True
End Sub
Private Sub mnuBitmap1_Click()
mnuBitmap1.Checked = Not mnuBitmap1.Checked
End Sub
Private Sub mnuBitmapEnd_Click()
End
End Sub

[AeSePe1]

Gracias, pero no es lo que quieria.
Lo que me gustaría hacer es qu las imágenes esten en el primer menú, no en los sub-menus...
igaul gracias.