Programación General > Visual Basic 6.0 e inferiores

 Menus

(1/1)

er_charly:
Hola a todos!!!

Tengo una duda sobre como se puede cambiar el color de fondo a los menus que se crean mediante el editor de menus para que asi se pueda conseguir un diseño mas chulo.

Gracias!!!

RadicalEd:
Pues colores ni idea, pero puedes colocarle una imagen, mira este código, es de los chicos de allapi.net

--- Código: Text ---'Download the full source+pictures+.. at http://www.allapi.net/php/redirect/redirect.php?action=download&id=13Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As LongPrivate Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As LongPrivate Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As LongPrivate Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As LongConst MF_BITMAP = 4Const MF_CHECKED = 8Private Sub Form_Load()    'KPD-Team 1998    'URL: http://www.allapi.net/    'E-Mail: KPDTeam@Allapi.net    Dim hMenu As Long, hSubMenu As Long, lngID As Long     'Get the handle of the form's menu    hMenu = GetMenu(Me.hWnd)    'Get the handle of the form's submenu    hSubMenu = GetSubMenu(hMenu, 0)     'Change first item (index=0)    picBitmaps(0).Picture = picBitmaps(0).Image    lngID = GetMenuItemID(hSubMenu, 0)    Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(0).Picture))     'Change second item (index=1)    picBitmaps(1).Picture = picBitmaps(1).Image    lngID = GetMenuItemID(hSubMenu, 1)    Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(1).Picture))     'Change third item (index=2)    picBitmaps(2).Picture = picBitmaps(2).Image    lngID = GetMenuItemID(hSubMenu, 2)    Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(2).Picture))     mnuBitmap1.Checked = TrueEnd SubPrivate Sub mnuBitmap1_Click()    mnuBitmap1.Checked = Not mnuBitmap1.CheckedEnd SubPrivate Sub mnuBitmapEnd_Click()    EndEnd Sub Close this window  

Navegación

[0] Índice de Mensajes