SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: fher123 en Viernes 17 de Septiembre de 2004, 21:53

Título: Menu Con Iconos
Publicado por: fher123 en Viernes 17 de Septiembre de 2004, 21:53

como puedo poner iconos en los menus de mis programas.

como office etc.

si me puedenb ayudar envien algo a fertejr3@hotmail.com

Título: Re: Menu Con Iconos
Publicado por: MindEye en Domingo 19 de Septiembre de 2004, 09:37

- Mira a ver si te vales el codigo que te dejo aquí.

- No es mío, lo encontre en la red.

- Hasta pronto y suerte.

Título: Re: Menu Con Iconos
Publicado por: RadicalEd en Lunes 20 de Septiembre de 2004, 18:48

MIRA ASI CON UN PICTURE DE 16*16

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
 

[/color]