SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: Oracle en Jueves 21 de Julio de 2005, 04:59

Título: Menu
Publicado por: Oracle en Jueves 21 de Julio de 2005, 04:59

Nesecito saber como agregar imagenes en las obsiones de un menu sin utilizar ningun tipo de dll gracias

Título: Re: Menu
Publicado por: RadicalEd en Jueves 21 de Julio de 2005, 17:19

Utiliza el buscador del foro, mira hay muchos posts acerca de esto.
Menú con iconos (http://foros.solocodigo.com/index.php?act=Search&CODE=show&searchid=e1b8cfbb630714e72288d4688f775837&search_in=posts&result_type=topics&highlite=menu+con+iconos)
http://foros.solocodigo.com/index.php?show...=iconos+en+menu (http://foros.solocodigo.com/index.php?showtopic=2300&hl=iconos+en+menu)

Código: Text

Const MF_BYPOSITION=&H400&
API's GetMenu, GetSubMenu, SetMenuItemBitmaps
Private Sub Form_Load()
Dim menu As Long, submenu As Long
menu = GetMenu(Me.hwnd)
If menu=0 Then
  MsgBox &#34;No hay menu&#34;
  End
End If
submenu = GetSubMenu (menu, 0)
If submenu=0 Then
  MsgBox &#34;No hay submenu&#34;
  End
End If
SetMenuItemBitmaps submenu, 0, MF_BYPOSITION, Pic1.Picture, Pic1.Picture
End Sub
 