精华区 [关闭][返回]
当前位置：网易精华区>>讨论区精华>>编程开发>>● VB和Basic>>● VB和Basic(1)>>API函数>>怎样在VB中作像“开始”菜单一样左边有图

主题：怎样在VB中作像“开始”菜单一样左边有图
发信人: jakal()
整理人: (2000-02-12 23:57:23), 站内信件
【 在 linchao (Touhu) 的大作中提到: 】


Private Sub AddBitmapToMenu()
    Dim hMenu As Long
    Dim hSubMenu As Long
    Dim hID As Long
    
    hMenu = GetMenu(Me.hwnd)
    
    hSubMenu = GetSubMenu(hMenu, 0)
    hID = GetMenuItemID(hSubMenu, 0)
    SetMenuItemBitmaps hMenu, hID, MF_BITMAP, imgMenu.ListImages.Item(
1).Picture, imgMenu.ListImages.Item(1).Picture
    hID = GetMenuItemID(hSubMenu, 1)
    SetMenuItemBitmaps hMenu, hID, MF_BITMAP, imgMenu.ListImages.Item(
2).Picture, imgMenu.ListImages.Item(2).Picture
    
    hSubMenu = GetSubMenu(hMenu, 1)
    hID = GetMenuItemID(hSubMenu, 1)
    SetMenuItemBitmaps hMenu, hID, MF_BITMAP, imgMenu.ListImages.Item(
3).Picture, imgMenu.ListImages.Item(1).Picture
    hID = GetMenuItemID(hSubMenu, 3)
    SetMenuItemBitmaps hMenu, hID, MF_BITMAP, imgMenu.ListImages.Item(
4).Picture, imgMenu.ListImages.Item(2).Picture
    
End Sub

--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 203.41.246.82]
[关闭][返回]