如何在一个菜单里面有小的位图.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

简 单 的 办 法 是 购 买 ActiveBar控 件 ， 它 可 以 实 现 这 个 功 能 (参 考 :http://www.computerworld.com.cn/99/tips/9907/071202_11.asp)。 另 一 个 办 法 是 利 用 API来 实 现 。 
    下 面 的 这 段 代 码 将 Picture1的 图 形 作 为 菜 单 项 。 
    首 先 建 立 一 个 模 块 ， 并 加 入 下 面 的 语 句 。 
    Declare Function GetMenu Lib "user32" _ 
     (ByVal hwnd As Long) As Long 
    Declare Function GetSubMenu Lib "user32" _ 
     (ByVal hMenu As Long, ByVal nPos As Long) As Long 
    Declare Function GetMenuItemID Lib "user32" _ 
     (ByVal hMenu As Long, ByVal nPos As Long) As Long 
    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 Const MF_BITMAP = &H4& 
     
    Type MENUITEMINFO 
     cbSize As Long 
     fMask As Long 
     fType As Long 
     fState As Long 
     wID As Long 
     hSubMenu As Long 
     hbmpChecked As Long 
     hbmpUnchecked As Long 
     dwItemData As Long 
     dwTypeData As String 
     cch As Long 
    End Type 
     
    Declare Function GetMenuItemCount Lib "user32" _ 
     (ByVal hMenu As Long) As Long 
    Declare Function GetMenuItemInfo Lib "user32" _ 
     Alias "GetMenuItemInfoA" (ByVal hMenu As Long, _ 
     ByVal un As Long, ByVal b As Boolean, _ 
     lpMenuItemInfo As MENUITEMINFO) As Boolean 
     
    Public Const MIIM_ID = &H2 
    Public Const MIIM_TYPE = &H10 
    Public Const MFT_STRING = &H0& 
    将 下 面 的 代 码 加 入 一 个 按 钮 的 Click事 件 ： 
    Private Sub Command1_Click() 
     
    ' 获 得 你 的 菜 单 的 句 柄 
    hMenu& = GetMenu(Form1.hwnd) 
     
    ' 获 得 第 一 个 子 菜 单 的 句 柄 
    hSubMenu& = GetSubMenu(hMenu&, 0) 
     
    ' 获 得 第 一 个 菜 单 项 
    hID& = GetMenuItemID(hSubMenu&, 0) 
     
    '加 入 位 图 
     
    SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, _ 
     Picture1.Picture, _ 
     Picture1.Picture 
    End Sub 
    上 面 的 代 码 使 菜 单 项 为 图 片 ， 如 果 你 只 希 望 菜 单 项 的 左 边 有 一 个 小 位 图 ， 而 右 边 仍 为 文 字 。 可 以 先 在 Picture1绘 制 图 片 ， 在 利 用 Picture1.Print加 上 文 字 ， 然 后 用 Picture1.Picture加 入 菜 单 项 。 
<END>