• Domingo 22 de Diciembre de 2024, 14:52
« anterior próximo »
Páginas: [1]

Autor Tema:  Menu Con Iconos  (Leído 1679 veces)

fher123

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Menu Con Iconos
« en: Viernes 17 de Septiembre de 2004, 21:53 »
0
como puedo poner iconos en los menus de mis programas.

como office etc.

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

MindEye

  • Miembro MUY activo
  • ***
  • Mensajes: 185
    • Ver Perfil
Re: Menu Con Iconos
« Respuesta #1 en: Domingo 19 de Septiembre de 2004, 09:37 »
0
- 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.
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Menu Con Iconos
« Respuesta #2 en: Lunes 20 de Septiembre de 2004, 18:48 »
0
MIRA ASI CON UN PICTURE DE 16*16
Código: Text
  1.  
  2. Const MF_BYPOSITION=&H400&
  3. API's GetMenu, GetSubMenu, SetMenuItemBitmaps
  4. Private Sub Form_Load()
  5. Dim menu As Long, submenu As Long
  6. menu = GetMenu(Me.hwnd)
  7. If menu=0 Then
  8.    MsgBox "No hay menu"
  9.    End
  10. End If
  11. submenu = GetSubMenu (menu, 0)
  12. If submenu=0 Then
  13.    MsgBox "No hay submenu"
  14.    End
  15. End If
  16. SetMenuItemBitmaps submenu, 0, MF_BYPOSITION, Pic1.Picture, Pic1.Picture
  17. End Sub
  18.  
[/color]
El pasado son solo recuerdos, el futuro son solo sueños
Páginas: [1]
« anterior próximo »