7,785
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lilin12345 2003-01-16
- 打赏
- 举报
up
xks 2003-01-16
- 打赏
- 举报
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
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
Arcan 2003-01-16
- 打赏
- 举报
在CSDN搜吧，你能搜出一堆
zmcpu 2003-01-16
- 打赏
- 举报
在菜单中加入图标
VB菜单编辑器所提供的默认菜单是不能在菜单项中加入图标的，而许多流行的软件大都采用了漂亮的带有小图标的菜单，如果想利用VB实现这种效果就必须要调用API函数来实现了。例中我们使用了三个与菜单操作有关的函数：GetMenu、SetMenuItemBitmaps、GetSubMenu。
我们先来声明API函数，本例中用到的三个函数声明如下：
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
GetMenu函数的作用得到一个窗口中的菜单的句柄(这个菜单句柄应理解为处于某个窗体上的所有菜单的入口)，其中各个参数的意义如下表所示：
参数 意义
hwnd Long，窗口句柄。对于vb，这应该是一个窗体句柄
返回值 Long，依附于指定窗口的一个菜单的句柄（如果有菜单）；否则返回零
GetSubMenu函数用于取得一个弹出式菜单(弹出式菜单是指处于任何一级的菜单，注意不是菜单项)的句柄，它位于菜单中指定的位置，它的各个参数的意义如下：
参数 意义
hMenu Long，菜单的句柄
nPos Long，次级菜单在上级菜单中的位置。第一个位置的编号为0
返回值 Long，位于指定位置的弹出式菜单的句柄（如果有的话）；否则返回零
SetMenuItemBitmaps函数用于设置一幅特定位图，令其在指定的菜单条目中使用，代替标准的复选符号(√)，它的各个参数的意义如下：
参数 意义
hMenu Long，菜单的句柄
nPosition Long，欲设置位图的一个菜单条目的标识符。如在wFlags参数中指定了MF_BYCOMMAND，这个参数就代表欲改变的菜单条目的命令ID。如设置的是MF_BYPOSITION，这个参数就代表菜单条目在菜单中的位置（第一个条目的位置为零）
wFlags Long，常数MF_BYCOMMAND或MF_BYPOSITION，取决于nPosition参数
hBitmapUnchecked Long，撤消复选时为菜单条目显示的一幅位图的句柄。如果为零，表示不在未复选状态下显示任何标志
hBitmapChecked Long，复选时为菜单条目显示的一幅位图的句柄。可设为零，表示复选时不显示任何标志。如两个位图句柄的值都是零，则为这个条目恢复使用默认复选位图
返回值 Long，非零表示成功，零表示失败。
下面我们看看怎样为菜单的指定项目加上图标，步骤一：取得菜单的句柄并赋值给mHandle，接着取得mHandle句柄所指菜单的第一个弹出式菜单的句柄并赋值给sHandle：
mHandle = GetMenu(form.hwnd)
sHandle = GetSubMenu(mHandle, 0)
然后就为菜单项加入图标，这里我们把wFlags参数设为了MF_BYPOSITION，也就是说使用菜单项的位置(从序号０开始)来标示菜单项：
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imOpen.Picture)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture)
以上是为菜单项添加图标的基本方法，例中还演示了怎样为次级菜单中的菜单项添加图标，以及菜单项处于复选/非复选状态时，对应图标发生变化的方法，具体的实现方法可以参照程序中的注释。
VB菜单编辑器所提供的默认菜单是不能在菜单项中加入图标的，而许多流行的软件大都采用了漂亮的带有小图标的菜单，如果想利用VB实现这种效果就必须要调用API函数来实现了。例中我们使用了三个与菜单操作有关的函数：GetMenu、SetMenuItemBitmaps、GetSubMenu。
我们先来声明API函数，本例中用到的三个函数声明如下：
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
GetMenu函数的作用得到一个窗口中的菜单的句柄(这个菜单句柄应理解为处于某个窗体上的所有菜单的入口)，其中各个参数的意义如下表所示：
参数 意义
hwnd Long，窗口句柄。对于vb，这应该是一个窗体句柄
返回值 Long，依附于指定窗口的一个菜单的句柄（如果有菜单）；否则返回零
GetSubMenu函数用于取得一个弹出式菜单(弹出式菜单是指处于任何一级的菜单，注意不是菜单项)的句柄，它位于菜单中指定的位置，它的各个参数的意义如下：
参数 意义
hMenu Long，菜单的句柄
nPos Long，次级菜单在上级菜单中的位置。第一个位置的编号为0
返回值 Long，位于指定位置的弹出式菜单的句柄（如果有的话）；否则返回零
SetMenuItemBitmaps函数用于设置一幅特定位图，令其在指定的菜单条目中使用，代替标准的复选符号(√)，它的各个参数的意义如下：
参数 意义
hMenu Long，菜单的句柄
nPosition Long，欲设置位图的一个菜单条目的标识符。如在wFlags参数中指定了MF_BYCOMMAND，这个参数就代表欲改变的菜单条目的命令ID。如设置的是MF_BYPOSITION，这个参数就代表菜单条目在菜单中的位置（第一个条目的位置为零）
wFlags Long，常数MF_BYCOMMAND或MF_BYPOSITION，取决于nPosition参数
hBitmapUnchecked Long，撤消复选时为菜单条目显示的一幅位图的句柄。如果为零，表示不在未复选状态下显示任何标志
hBitmapChecked Long，复选时为菜单条目显示的一幅位图的句柄。可设为零，表示复选时不显示任何标志。如两个位图句柄的值都是零，则为这个条目恢复使用默认复选位图
返回值 Long，非零表示成功，零表示失败。
下面我们看看怎样为菜单的指定项目加上图标，步骤一：取得菜单的句柄并赋值给mHandle，接着取得mHandle句柄所指菜单的第一个弹出式菜单的句柄并赋值给sHandle：
mHandle = GetMenu(form.hwnd)
sHandle = GetSubMenu(mHandle, 0)
然后就为菜单项加入图标，这里我们把wFlags参数设为了MF_BYPOSITION，也就是说使用菜单项的位置(从序号０开始)来标示菜单项：
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imOpen.Picture)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture)
以上是为菜单项添加图标的基本方法，例中还演示了怎样为次级菜单中的菜单项添加图标，以及菜单项处于复选/非复选状态时，对应图标发生变化的方法，具体的实现方法可以参照程序中的注释。
用户 昵称 2003-01-16
- 打赏
- 举报
下面的这段代码将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加入菜单项。
首先建立一个模块，并加入下面的语句。
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加入菜单项。
DoctorFunk 2003-01-16
- 打赏
- 举报
各位，我参加的这个系统涉及的图标很多，而且都放在一个ImageList中了，所以如果只是将Bitmap添加到菜单上的话是满足不了我的要求的，况且这我早就会了，：）
zmcpu 2003-01-16
- 打赏
- 举报
创建位图菜单
在通常的程序中菜单总是以文本的方式存在，有时候显得非常单调乏味。如果能够
在菜单中加入位图图形，将会极大地增加用户的使用兴趣。本文介绍了如何使用位
图制作菜单选项。
创建位图菜单
----创建位图菜单其实非常简单，它需要用到Windows应用程序编程接口（API）的
一些菜单函数和位图函数，你需要将这些函数的声明包含在你的应用程序的标准模
块中，具体的内容请参见样例程序。步骤如下：
使用函数GetSubMenu来提取子菜单项的句柄，并通过使用函数CreateCompatibleDC
来创建一个兼容的设备环境描述表；
在一个循环过程中通过使用CreateCompatibleBitmap函数，SelectObject函数以及
BitBlt函数来分别将针对各个菜单项所载入的位图选入到兼容设备环境中；
通过ModifyMenu函数绘制真正的位图菜单选项；
使用DeleteDC函数来释放设备环境，以便其他的程序可以使用它们。
----提取位图可以有多种方法，在本样例程序中在窗体上设置了四个图形框控件，
使用它们载入4个预设的图标来作为菜单选项位图的源文件，当然你也可以使用其
他的方法，例如使用LoadPicture函数来从磁盘装载位图。
样例程序
在Visual Basic中开始一个新的工程，采用缺省的方法建立Form1。
创建一个新的模块，采用缺省的方法建立Module1.Bas。
将如下的声明语句和常量添加到Module1.Bas模块中：
Option Explicit
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 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 Long
Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As
Long
Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Declare Function CreateCompatibleBitmap Lib "gdi32"
(ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long,
ByVal hObject As Long) As Long
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As
Long,
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal
hSrcDC
As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As
Long
Public Const SRCCOPY = &HCC0020
Public Const MF_BYPOSITION = &H400&
Public Const MF_BITMAP = &H4&
注意上面的声明语句需要书写在一行内。
在Form1上添加4个图形框控件，将它们的Name属性设置为Picture1，将它们的
Index属性依次设置为0，1，2，3，将它们的AutoRedrew属性设置为True，将它们
的AutoResize属性设置为Ture，以及将它们的Visable属性设置为False。
将上面的4个图形框控件的Picture属性依次设置为Face1.ico，Face2.ico，Face3.
ico，Face4.ico。
在Form1上添加第一个菜单项，将它的标题设置为“[&F]文件”，名称设置为
mnuFile。在其下添加一个子菜单项，将它的标题设置为“[&E]退出”，名称设置
为mnuExit。
在Form1上添加第二个菜单项，将它的标题设置为“[&A]脸谱”，名称设置为
mnuFace。在其下添加4个子菜单项，分别将改4个子菜单项的名称设置为“[N]正常”
，“[&S]微笑”，“ [&L]大笑”，以及“[&O]悲伤”。将它们的名称设置为“
mnuFaceSel”，并相应将这4个子菜单项的索引设置为0，1，2，3。
将如下的代码添加到Form1的Form_Load事件中：
Private Sub Form_Load()
Dim nLoopCtr As Integer
Dim lResult As Long
Dim hTempDC As Long
Dim nWidth As Integer
Dim nHeight As Integer
Dim lTempID As Long
Dim hMenuID As Long
Dim lItemCount As Long
Dim hBitmap As Long
nWidth = Picture1(nLoopCtr).Width \ Screen.TwipsPerPixelX
nHeight = Picture1(nLoopCtr).Height \ Screen.TwipsPerPixelY
hMenuID = GetSubMenu(GetMenu((Me.hwnd)), 1)
hTempDC = CreateCompatibleDC(Picture1(nLoopCtr).hdc)
For nLoopCtr = 0 To 3
hBitmap = CreateCompatibleBitmap(Picture1(nLoopCtr).hdc, nWidth,
nHeight)
lTempID = SelectObject(hTempDC, hBitmap)
lResult = BitBlt(hTempDC, 0, 0, nWidth, nHeight, (Picture1(
nLoopCtr).hdc), 0, 0, SRCCOPY)
lTempID = SelectObject(hTempDC, lTempID)
nuFaceSel(nLoopCtr).Caption = ""
lResult = ModifyMenu(hMenuID, nLoopCtr, MF_BYPOSITION Or
MF_BITMAP,
GetMenuItemID(hMenuID, nLoopCtr), hBitmap)
Next nLoopCtr
lResult = DeleteDC(hTempDC)
End Sub
将如下的代码添加到“退出”子菜单的单击事件中：
Private Sub mnuExit_Click(Index As Integer)
Select Case Index
Case 0
Unload Me
End Select
End Sub
运行该样例程序，单击“脸谱”菜单，则会看到由4个脸谱图标所形成的位图子菜
单项，如图1所示。单击“文件”\“退出”菜单可退出应用程序。
在通常的程序中菜单总是以文本的方式存在，有时候显得非常单调乏味。如果能够
在菜单中加入位图图形，将会极大地增加用户的使用兴趣。本文介绍了如何使用位
图制作菜单选项。
创建位图菜单
----创建位图菜单其实非常简单，它需要用到Windows应用程序编程接口（API）的
一些菜单函数和位图函数，你需要将这些函数的声明包含在你的应用程序的标准模
块中，具体的内容请参见样例程序。步骤如下：
使用函数GetSubMenu来提取子菜单项的句柄，并通过使用函数CreateCompatibleDC
来创建一个兼容的设备环境描述表；
在一个循环过程中通过使用CreateCompatibleBitmap函数，SelectObject函数以及
BitBlt函数来分别将针对各个菜单项所载入的位图选入到兼容设备环境中；
通过ModifyMenu函数绘制真正的位图菜单选项；
使用DeleteDC函数来释放设备环境，以便其他的程序可以使用它们。
----提取位图可以有多种方法，在本样例程序中在窗体上设置了四个图形框控件，
使用它们载入4个预设的图标来作为菜单选项位图的源文件，当然你也可以使用其
他的方法，例如使用LoadPicture函数来从磁盘装载位图。
样例程序
在Visual Basic中开始一个新的工程，采用缺省的方法建立Form1。
创建一个新的模块，采用缺省的方法建立Module1.Bas。
将如下的声明语句和常量添加到Module1.Bas模块中：
Option Explicit
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 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 Long
Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As
Long
Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Declare Function CreateCompatibleBitmap Lib "gdi32"
(ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long,
ByVal hObject As Long) As Long
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As
Long,
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal
hSrcDC
As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As
Long
Public Const SRCCOPY = &HCC0020
Public Const MF_BYPOSITION = &H400&
Public Const MF_BITMAP = &H4&
注意上面的声明语句需要书写在一行内。
在Form1上添加4个图形框控件，将它们的Name属性设置为Picture1，将它们的
Index属性依次设置为0，1，2，3，将它们的AutoRedrew属性设置为True，将它们
的AutoResize属性设置为Ture，以及将它们的Visable属性设置为False。
将上面的4个图形框控件的Picture属性依次设置为Face1.ico，Face2.ico，Face3.
ico，Face4.ico。
在Form1上添加第一个菜单项，将它的标题设置为“[&F]文件”，名称设置为
mnuFile。在其下添加一个子菜单项，将它的标题设置为“[&E]退出”，名称设置
为mnuExit。
在Form1上添加第二个菜单项，将它的标题设置为“[&A]脸谱”，名称设置为
mnuFace。在其下添加4个子菜单项，分别将改4个子菜单项的名称设置为“[N]正常”
，“[&S]微笑”，“ [&L]大笑”，以及“[&O]悲伤”。将它们的名称设置为“
mnuFaceSel”，并相应将这4个子菜单项的索引设置为0，1，2，3。
将如下的代码添加到Form1的Form_Load事件中：
Private Sub Form_Load()
Dim nLoopCtr As Integer
Dim lResult As Long
Dim hTempDC As Long
Dim nWidth As Integer
Dim nHeight As Integer
Dim lTempID As Long
Dim hMenuID As Long
Dim lItemCount As Long
Dim hBitmap As Long
nWidth = Picture1(nLoopCtr).Width \ Screen.TwipsPerPixelX
nHeight = Picture1(nLoopCtr).Height \ Screen.TwipsPerPixelY
hMenuID = GetSubMenu(GetMenu((Me.hwnd)), 1)
hTempDC = CreateCompatibleDC(Picture1(nLoopCtr).hdc)
For nLoopCtr = 0 To 3
hBitmap = CreateCompatibleBitmap(Picture1(nLoopCtr).hdc, nWidth,
nHeight)
lTempID = SelectObject(hTempDC, hBitmap)
lResult = BitBlt(hTempDC, 0, 0, nWidth, nHeight, (Picture1(
nLoopCtr).hdc), 0, 0, SRCCOPY)
lTempID = SelectObject(hTempDC, lTempID)
nuFaceSel(nLoopCtr).Caption = ""
lResult = ModifyMenu(hMenuID, nLoopCtr, MF_BYPOSITION Or
MF_BITMAP,
GetMenuItemID(hMenuID, nLoopCtr), hBitmap)
Next nLoopCtr
lResult = DeleteDC(hTempDC)
End Sub
将如下的代码添加到“退出”子菜单的单击事件中：
Private Sub mnuExit_Click(Index As Integer)
Select Case Index
Case 0
Unload Me
End Select
End Sub
运行该样例程序，单击“脸谱”菜单，则会看到由4个脸谱图标所形成的位图子菜
单项，如图1所示。单击“文件”\“退出”菜单可退出应用程序。
laocai8 2003-01-16
- 打赏
- 举报
学习了
luco 2003-01-16
- 打赏
- 举报
'-------------------------------------------------
' 让菜单中出现图标一法
'-------------------------------------------------
' 洪恩在线 求知无限
'-------------------------------------------------
'程序应用三个API函数实现了在菜单项中加入小图标
'GetMenu、GetSubMenu、SetMenuItemBitmaps
'-------------------------------------------------
Option Explicit
'【VB声明】
' Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
'【说明】
' 取得窗口中一个菜单的句柄
'【返回值】
' Long，依附于指定窗口的一个菜单的句柄（如果有菜单）；否则返回零
'【参数表】
' hwnd ----------- Long，窗口句柄。对于vb，这应该是一个窗体句柄。注意可能不是子窗口的句柄
Private Declare Function GetMenu Lib "user32" _
(ByVal hwnd As Long) As Long
'-------------------------------------------------
'【VB声明】
' Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
'【说明】
' 取得一个弹出式菜单的句柄，它位于菜单中指定的位置
'【返回值】
' Long，位于指定位置的弹出式菜单的句柄（如果有的话）；否则返回零
'【参数表】
' hMenu ---------- Long，菜单的句柄
' nPos ----------- Long，条目在菜单中的位置。第一个条目的编号为0
Private Declare Function GetSubMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPos As Long) As Long
'-------------------------------------------------
'【VB声明】
' 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
'【说明】
' 设置一幅特定位图，令其在指定的菜单条目中使用，代替标准的复选符号（√）。位图的大小必须与菜单复选符号的正确大小相符，这个正确大小可以由GetMenuCheckMarkDimensions函数获得
'【返回值】
' Long，非零表示成功，零表示失败。会设置GetLastError
'【备注】
' 使用的位图可能由多个条目共享。一旦不再需要，位图必须由应用程序清除，因为windows不能自动对它进行清除
'【参数表】
' hMenu ---------- Long，菜单句柄
' nPosition ------ Long，欲设置位图的一个菜单条目的标识符。如在wFlags参数中指定了MF_BYCOMMAND，这个参数就代表欲改变的菜单条目的命令ID。如设置的是MF_BYPOSITION，这个参数就代表菜单条目在菜单中的位置（第一个条目的位置为零）
' wFlags --------- Long，常数MF_BYCOMMAND或MF_BYPOSITION，取决于nPosition参数
' hBitmapUnchecked - Long，撤消复选时为菜单条目显示的一幅位图的句柄。如果为零，表示不在未复选状态下显示任何标志
' hBitmapChecked - 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&
Private Sub Form_Load()
Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long
'取得菜单的句柄并赋值给mHandle
mHandle = GetMenu(hwnd)
'取得mHandle句柄所指菜单的第一个弹出式菜单（文件&F）的句柄并赋值给sHandle
sHandle = GetSubMenu(mHandle, 0)
'将弹出式菜单的第0-4项加上图片，为什么跳过2呢？因为2是分割线
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imSave.Picture)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture)
lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, imPrint.Picture, imPrint.Picture)
lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, imPrintSetup.Picture, imPrintSetup.Picture)
'取得mHandle句柄所指菜单的第二个弹出式菜单（编辑&E）的句柄并赋值给sHandle
sHandle = GetSubMenu(mHandle, 1)
'取得sHandle句柄所指菜单的第一个次级菜单（次级菜单&S）的句柄并赋值给sHandle2
sHandle2 = GetSubMenu(sHandle, 0)
'将次级菜单中的第1项加上图片
lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture)
'提示：在SetMenuItemBitmaps（）我们把后两项设为相同的图片，如果设为不同的两张图片会有什么效果呢？
' 原来这两张图片分别表示复选和撤消复选时的状态,你只须在菜单项被点击的函数中加入以下语句：
' Private Sub mnuOpen_Click()
' If mnuOpen.Checked = True Then
' mnuOpen.Checked = False
' Else: mnuOpen.Checked = True
' End If
' End Sub
' 然后在SetMenuItemBitmaps（）我们把后两项设为不同的图片即可，有兴趣的话试一试。
End Sub
' 让菜单中出现图标一法
'-------------------------------------------------
' 洪恩在线 求知无限
'-------------------------------------------------
'程序应用三个API函数实现了在菜单项中加入小图标
'GetMenu、GetSubMenu、SetMenuItemBitmaps
'-------------------------------------------------
Option Explicit
'【VB声明】
' Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
'【说明】
' 取得窗口中一个菜单的句柄
'【返回值】
' Long，依附于指定窗口的一个菜单的句柄（如果有菜单）；否则返回零
'【参数表】
' hwnd ----------- Long，窗口句柄。对于vb，这应该是一个窗体句柄。注意可能不是子窗口的句柄
Private Declare Function GetMenu Lib "user32" _
(ByVal hwnd As Long) As Long
'-------------------------------------------------
'【VB声明】
' Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
'【说明】
' 取得一个弹出式菜单的句柄，它位于菜单中指定的位置
'【返回值】
' Long，位于指定位置的弹出式菜单的句柄（如果有的话）；否则返回零
'【参数表】
' hMenu ---------- Long，菜单的句柄
' nPos ----------- Long，条目在菜单中的位置。第一个条目的编号为0
Private Declare Function GetSubMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPos As Long) As Long
'-------------------------------------------------
'【VB声明】
' 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
'【说明】
' 设置一幅特定位图，令其在指定的菜单条目中使用，代替标准的复选符号（√）。位图的大小必须与菜单复选符号的正确大小相符，这个正确大小可以由GetMenuCheckMarkDimensions函数获得
'【返回值】
' Long，非零表示成功，零表示失败。会设置GetLastError
'【备注】
' 使用的位图可能由多个条目共享。一旦不再需要，位图必须由应用程序清除，因为windows不能自动对它进行清除
'【参数表】
' hMenu ---------- Long，菜单句柄
' nPosition ------ Long，欲设置位图的一个菜单条目的标识符。如在wFlags参数中指定了MF_BYCOMMAND，这个参数就代表欲改变的菜单条目的命令ID。如设置的是MF_BYPOSITION，这个参数就代表菜单条目在菜单中的位置（第一个条目的位置为零）
' wFlags --------- Long，常数MF_BYCOMMAND或MF_BYPOSITION，取决于nPosition参数
' hBitmapUnchecked - Long，撤消复选时为菜单条目显示的一幅位图的句柄。如果为零，表示不在未复选状态下显示任何标志
' hBitmapChecked - 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&
Private Sub Form_Load()
Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long
'取得菜单的句柄并赋值给mHandle
mHandle = GetMenu(hwnd)
'取得mHandle句柄所指菜单的第一个弹出式菜单（文件&F）的句柄并赋值给sHandle
sHandle = GetSubMenu(mHandle, 0)
'将弹出式菜单的第0-4项加上图片，为什么跳过2呢？因为2是分割线
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imSave.Picture)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture)
lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, imPrint.Picture, imPrint.Picture)
lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, imPrintSetup.Picture, imPrintSetup.Picture)
'取得mHandle句柄所指菜单的第二个弹出式菜单（编辑&E）的句柄并赋值给sHandle
sHandle = GetSubMenu(mHandle, 1)
'取得sHandle句柄所指菜单的第一个次级菜单（次级菜单&S）的句柄并赋值给sHandle2
sHandle2 = GetSubMenu(sHandle, 0)
'将次级菜单中的第1项加上图片
lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture)
'提示：在SetMenuItemBitmaps（）我们把后两项设为相同的图片，如果设为不同的两张图片会有什么效果呢？
' 原来这两张图片分别表示复选和撤消复选时的状态,你只须在菜单项被点击的函数中加入以下语句：
' Private Sub mnuOpen_Click()
' If mnuOpen.Checked = True Then
' mnuOpen.Checked = False
' Else: mnuOpen.Checked = True
' End If
' End Sub
' 然后在SetMenuItemBitmaps（）我们把后两项设为不同的图片即可，有兴趣的话试一试。
End Sub
88480 2003-01-16
- 打赏
- 举报
控件：http://www.vbprobe.com/ocx/default.asp
代码：http://www.vbprobe.com/source/showdoc.asp?detail_id=2600
代码：http://www.vbprobe.com/source/showdoc.asp?detail_id=2600
yvqq 2003-01-16
- 打赏
- 举报
我发一个源程序给你好了！
_TMG_ 2003-01-16
- 打赏
- 举报
http://www.vbaccelerator.com
