如何创建含有位图的菜单项

2003-05-12 09:09:50 86 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【PB】带位图的菜单项实现当读者在使用 Microsoft Word 97 时，是否曾注意到 Word 的部分菜单项旁有一个小巧的图标 (如图1所示)，初次见到时，是否有耳目一新的感觉，是否想过让 PowerBuilder 创建的菜单项和他一样漂亮。只可惜 Sybase 至今仍未实现该功能，令得广大的 PowerBuilder 用户只能去羡慕别人。不过文本将探讨如何用 PowerBuilder 和 Win32 API 来实阅读详情

就是在在菜单项中加入位图图形

...全文

Windows Shell扩展系列文章 2 - .NET 4为扩展的Windows Shell上下文菜单项添加位图图标在“Windows Shell扩展系列文章 1 - .NET 4 编写Windows Shell上下文菜单扩展”一文中，我们介绍了如何使用.NET 4编写VC#或VB.NET代码创建Windows Shell上下文菜单扩展。很多开发人员想进一步知道：如何为扩展的菜单项加上位图图标。本文便通过一个来自于微软一站式示例代码库的示例代码为你演示如何为扩展的菜单项加上位图图标。示例代码下载：C#, VB.NET实现细节Windows Shell上下文菜单中的菜单项是通过实现IContextMenu.QueryCon 阅读详情

gougou2

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

dongyoushen 2003-05-12

打赏
举报

Me too... UP

固执的大叔 2003-05-12

打赏
举报

来迟了！UP！

LoveBH 2003-05-12

打赏
举报

创建位图菜单其实非常简单，可以使用API函数SetMenuItemBitmaps来为菜单项添加位图。调用该函数时需要用到弹出菜单的句柄，以及要添加的位图。

弹出菜单的句柄可以使用API函数GetMenu与GetSubMenu来获得。位图则可以通过在窗体上放置图像框控件来提供。

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 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, sHandle1 As Long
'获得菜单的句柄
mHandle = GetMenu(hwnd)
'获得“文件”菜单的句柄
sHandle = GetSubMenu(mHandle, 0)
'为“打开”菜单项添加位图
lRet = SetMenuItemBitmaps _
(sHandle, 0, MF_BYPOSITION, imOpen.Picture.Handle, imOpen.Picture.Handle)
'为“保存”菜单项添加位图
lRet = SetMenuItemBitmaps _
(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture)
'为“打印”菜单项添加位图
lRet = SetMenuItemBitmaps _
(sHandle, 3, MF_BYPOSITION, imPrint.Picture, imPrint.Picture)
'获得“其他”菜单的句柄
sHandle = GetSubMenu(mHandle, 1)
'获得“帮助”子菜单的句柄
sHandle1 = GetSubMenu(sHandle, 0)
'为“内容”菜单项添加位图
lRet = SetMenuItemBitmaps _
(sHandle1, 0, MF_BYPOSITION, imContent.Picture, imContent.Picture)
End Sub

欢迎光临电脑爱好者论坛 bbs.cfanclub.net

如何创建含有位图的菜单项

相关推荐