Menu

Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

« anterior próximo »

Imprimir

Páginas: [1]

Autor Tema: Menu (Leído 1507 veces)

Oracle

Nuevo Miembro
Mensajes: 1

Menu

« en: Jueves 21 de Julio de 2005, 04:59 »

0

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

RadicalEd

Moderador
Mensajes: 2430
Nacionalidad:

Re: Menu

« Respuesta #1 en: Jueves 21 de Julio de 2005, 17:19 »

0

Utiliza el buscador del foro, mira hay muchos posts acerca de esto.
Menú con iconos
http://foros.solocodigo.com/index.php?show...=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
 

El pasado son solo recuerdos, el futuro son solo sueños

Imprimir

Páginas: [1]

« anterior próximo »