建立图片菜单
来源:互联网 发布:人工智能 医疗设备 编辑:程序博客网 时间:2024/04/30 00:03
建立图片菜单
'说明:建立顶级菜单Menu001,在建立4个下拉菜单,名称分别为:Open/Save/Print/PrintSetup;
' 放置4个PictureBox,名称分别为:imgOpen/imgSave/imgPrint/imgPrintSetup,图片框的Visible=False,Picture=位图
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_Bitmap = &H4&
Private Sub Form_Load()
Dim mHandle As Long, lRet As Long, sHandle As Long
mHandle = GetMenu(hwnd)
sHandle = GetSubMenu(mHandle, 0)
lRet = SetMenuItemBitmaps(sHandle, 0, MF_Bitmap, imgOpen.Picture, imgOpen.Picture)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_Bitmap, imgSave.Picture, imgSave.Picture)
lRet = SetMenuItemBitmaps(sHandle, 2, MF_Bitmap, imgPrint.Picture, imgPrint.Picture)
lRet = SetMenuItemBitmaps(sHandle, 3, MF_Bitmap, imgPrintSetup.Picture, imgPrintSetup.Picture)
End Sub
- 建立图片菜单
- cocos2d-x项目101次相遇:建立图片菜单
- 如何建立菜单
- MFC菜单的建立
- c#建立菜单程序
- wordpress建立自定义菜单
- 如何建立树状菜单
- Java -- AWT 菜单建立, Menu, 右键菜单
- 使用目录内容建立菜单
- 使用目录内容建立菜单
- magento-----建立后台菜单项
- Qt右击菜单建立
- EclipseRCP开发2-建立菜单
- EasyBCD建立多系统启动菜单
- ActionBar中建立菜单demo
- wordpress建立二级导航菜单
- 建立简单图片过程
- 建立图片的缩略图
- 关于数组的理解(另类理解方法)
- ASP.NET的26个性能优化方法
- AJAX用户名验证
- vb6中托盘程序
- apache配置vhost
- 建立图片菜单
- 黑客攻防之防范入侵攻击主要方法
- 面向对象术语
- C#多线程-不同线程之间通过事件委托封送调用方法
- timer类的用法
- 关于正交验证法
- XSLT格式化日期
- linux+apache2.2+php5.2+mysql5.0源码安装
- opengl/glut的若干函数