Ejemplos usando el Api de windows para Visual basic

257 - SetMenuItemBitmaps

Ejemplo enviado por Xkiz, que usa la función api de windows SetMenuItemBitmaps para establecer íconos a los menues

Como poner Iconos en los menús vb 6.0

Este ejemplo usa un control ImageList para cargar los iconos 13px por 13px

Y carga los iconos en los menús (indexado), aparte de las Apis y una función

Option Explicit 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 GetMenuItemID _ Lib "user32" ( _ ByVal hMenu As Long, _ ByVal nPos As Long) As Long Private 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 String) 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 Public Sub Main() Form1.Show ImagenesMenu Form1, 0, 0, Form1.ImageList1.ListImages(1).Picture ImagenesMenu Form1, 0, 1, Form1.ImageList1.ListImages(2).Picture ImagenesMenu Form1, 0, 3, Form1.ImageList1.ListImages(3).Picture ImagenesMenu Form1, 1, 0, Form1.ImageList1.ListImages(4).Picture ImagenesMenu Form1, 1, 1, Form1.ImageList1.ListImages(5).Picture ImagenesMenu Form1, 1, 2, Form1.ImageList1.ListImages(6).Picture ImagenesMenu Form1, 2, 0, Form1.ImageList1.ListImages(7).Picture ImagenesMenu Form1, 2, 2, Form1.ImageList1.ListImages(8).Picture End Sub Public Sub ImagenesMenu(ByVal Form As Form, _ ByVal MenuID As Integer, _ ByVal SubMenu As Integer, _ ByVal BitmapUnchecked As Long, _ Optional ByVal BitmapChecked As Long) On Error Resume Next Dim hMenu, hSubMenu, hMenuID, X hMenu = GetMenu(Form.hWnd) hSubMenu = GetSubMenu(hMenu, MenuID) hMenuID = GetMenuItemID(hSubMenu, SubMenu) X = SetMenuItemBitmaps(hMenu, hMenuID, 0, BitmapUnchecked, BitmapChecked) End Sub

Captura

Descargar proyecto de ejemplo

Recursos vb - Enlaces relacionados

Buscar en Recursos vb