Autor
Código:
'API's
Private Declare Function GetMenu Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, _
ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Const MF_BYPOSITION = &H400&
'Procedimiento
Private Sub SetMenuIcon()
Dim mHandle As Long, lRet As Long, sHandle As Long
mHandle = GetMenu(hwnd)
sHandle = GetSubMenu(mHandle, 3)
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, Image1.Picture, Image1.Picture)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, Image1.Picture, Image1.Picture)
lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, Image1.Picture, Image1.Picture)
lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, Image1.Picture, Image1.Picture)
End Sub
Image1.Picture contiene un .bmp de 16x16 píxeles, como es común encontrar en los menús de muchos programas (estilo Word, el PopUp de estados de Windows Live Messenger, etc), pero resulta que los menús SÓLO aceptan bitmaps o iconos de 13x13 píxeles, que no es un formato estándar y que además me frustra una idea que tenía.
Hay alguna forma de solventarlo?
PD: Sí, sé que hay controles como SmartMenuXP que admiten iconos y bitmaps de tamaños estándar y facilitan mucho el trabajo con menús... pero me interesa utilizar menús nativos de VB6.
PD2: Muchas gracias por adelantado!!
En línea
