¿Como puedo crear y utlizar menus diferentes al standar de VB6 ?
quiero que los menus se vean mas grandes, con iconos o patrones de relleno o degradados
GRACIAS POR SU AYUDA
04/11/2004, 11:42
| |||
| |||
 Menus diferentes al estandar de VB 6 ¿Como puedo crear y utlizar menus diferentes al standar de VB6 ? quiero que los menus se vean mas grandes, con iconos o patrones de relleno o degradados GRACIAS POR SU AYUDA |
|
04/11/2004, 13:03
| |||
| |||
| MIRA ESTE ENLACE MENU ICONOS MIRA ASI CON UN PICTURE DE 16*16 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 "No hay menu" End End If submenu = GetSubMenu (menu, 0) If submenu=0 Then MsgBox "No hay submenu" End End If SetMenuItemBitmaps submenu, 0, MF_BYPOSITION, Pic1.Picture, Pic1.Picture End Sub OJALA TE SIRVA CHAO Última edición por RadicalEd; 04/11/2004 a las 13:15 |
