位图菜单的制作
2008-04-27 08:16
204 查看
*******************************************************
实用环境:pb6.5/pb70/pb80/pb90
功 能:位图菜单的制作
方 法:如下
*******************************************************
第一步,首先要建立一个menu对象,命名为:m_bitmap。格式有
一个主菜单File,下面有4个子菜单new/openave/exit,如下:
----File-----
-new
-open
-save
-exit
第二步,找4个位图文件,放到exe所在的目录下,命名为:new.bmp/open.bmpave.bmp/exit.bmp
第三步,编代码
主窗体w_main,窗体类型main,加入主菜单m_menu。
实例变量声明:
//Win32常量
CONSTANTIntegerIMAGE_BITMAP =0
CONSTANTIntegerLR_LOADFROMFILE=16
CONSTANTIntegerSM_CXMENUCHECK =71
CONSTANTIntegerSM_CYMENUCHECK =72
CONSTANTIntegerMF_BITMAP =4
CONSTANTIntegerMF_BYPOSITION =1024
全局外部函数引入API:
FUNCTIONulongLoadImageA(ulonghintance,stringfilename,uintutype,&
intx,inty,uintfload) LIBRARY"USER32.DLL"
FUNCTIONbooleanSetMenuItemBitmaps(ulonghmenu,uintupos,uintflags,&
ulonghandle_bm1,ulonghandle_bm2) LIBRARY"USER32.DLL"
FUNCTIONintGetSystemMetrics( intnIndex)LIBRARY"USER32.DLL"
FUNCTIONulongGetMenuItemID(ulonghMenu,uintuItem)LIBRARY"USER32.DLL"
FUNCTIONintGetSubMenu(ulonghMenu,intpos)LIBRARY"USER32.DLL"
FUNCTIONulongGetMenu(ulonghWindow)LIBRARY"USER32.DLL"
FUNCTIONbooleanModifyMenu(ulong hMnu,ulonguPosition,ulonguFlags,&
ulonguIDNewItem,longlpNewI)aliasforModifyMenuALIBRARY"USER32.DLL"
open事件中:
long ll_MainHandle
long ll_SubMenuHandle
integer li_MenuItemID
long ll_X
long ll_Y
long ll_BitmapNew
long ll_BitmapOpen
long ll_BitmapSave
long ll_BitmapExit
//取得菜单句柄
ll_MainHandle=GetMenu(Handle(this))
//取得第一个菜单项的句柄
ll_SubMenuHandle=GetSubMenu(ll_MainHandle,0)
//装入图像数据
ll_BitmapNew=LoadImageA(0,'new.bmp',IMAGE_BITMAP,0,0,LR_LOADFROMFILE)
ll_BitmapOpen=LoadImageA(0,'open.bmp',IMAGE_BITMAP,0,0,LR_LOADFROMFILE)
//取得第一个子菜单项的ID并修改菜单
li_MenuItemID=GetMenuItemID(ll_SubMenuHandle,0)
ModifyMenu(ll_SubMenuHandle,li_MenuItemID,MF_BITMAP,li_MenuItemId,ll_BitmapNew)
//取得第二个子菜单项的ID并修改菜单
li_MenuItemID=GetMenuItemID(ll_SubMenuHandle,1)
ModifyMenu(ll_SubMenuHandle,li_MenuItemID,MF_BITMAP,li_MenuItemId,ll_BitmapOpen)
//取得菜单缺省check-mark位图的尺寸
ll_x=GetSystemMetrics(SM_CXMENUCHECK)
ll_y=GetSystemMetrics(SM_CYMENUCHECK)
//按系统尺寸装入图像
ll_BitmapSave=LoadImageA(0,'save.bmp', IMAGE_BITMAP,ll_x,ll_y,LR_LOADFROMFILE)
ll_BitmapExit=LoadImageA(0,'exit.bmp', IMAGE_BITMAP,ll_x,ll_y,LR_LOADFROMFILE)
//设置菜单位图
SetMenuItemBitmaps(ll_SubMenuHandle,2,MF_BYPOSITION,ll_BitmapSave,ll_BitmapSave)
SetMenuItemBitmaps(ll_SubMenuHandle,3,MF_BYPOSITION,ll_BitmapExit,ll_BitmapExit)
感兴趣的,还不快试试。
实用环境:pb6.5/pb70/pb80/pb90
功 能:位图菜单的制作
方 法:如下
*******************************************************
第一步,首先要建立一个menu对象,命名为:m_bitmap。格式有
一个主菜单File,下面有4个子菜单new/openave/exit,如下:
----File-----
-new
-open
-save
-exit
第二步,找4个位图文件,放到exe所在的目录下,命名为:new.bmp/open.bmpave.bmp/exit.bmp
第三步,编代码
主窗体w_main,窗体类型main,加入主菜单m_menu。
实例变量声明:
//Win32常量
CONSTANTIntegerIMAGE_BITMAP =0
CONSTANTIntegerLR_LOADFROMFILE=16
CONSTANTIntegerSM_CXMENUCHECK =71
CONSTANTIntegerSM_CYMENUCHECK =72
CONSTANTIntegerMF_BITMAP =4
CONSTANTIntegerMF_BYPOSITION =1024
全局外部函数引入API:
FUNCTIONulongLoadImageA(ulonghintance,stringfilename,uintutype,&
intx,inty,uintfload) LIBRARY"USER32.DLL"
FUNCTIONbooleanSetMenuItemBitmaps(ulonghmenu,uintupos,uintflags,&
ulonghandle_bm1,ulonghandle_bm2) LIBRARY"USER32.DLL"
FUNCTIONintGetSystemMetrics( intnIndex)LIBRARY"USER32.DLL"
FUNCTIONulongGetMenuItemID(ulonghMenu,uintuItem)LIBRARY"USER32.DLL"
FUNCTIONintGetSubMenu(ulonghMenu,intpos)LIBRARY"USER32.DLL"
FUNCTIONulongGetMenu(ulonghWindow)LIBRARY"USER32.DLL"
FUNCTIONbooleanModifyMenu(ulong hMnu,ulonguPosition,ulonguFlags,&
ulonguIDNewItem,longlpNewI)aliasforModifyMenuALIBRARY"USER32.DLL"
open事件中:
long ll_MainHandle
long ll_SubMenuHandle
integer li_MenuItemID
long ll_X
long ll_Y
long ll_BitmapNew
long ll_BitmapOpen
long ll_BitmapSave
long ll_BitmapExit
//取得菜单句柄
ll_MainHandle=GetMenu(Handle(this))
//取得第一个菜单项的句柄
ll_SubMenuHandle=GetSubMenu(ll_MainHandle,0)
//装入图像数据
ll_BitmapNew=LoadImageA(0,'new.bmp',IMAGE_BITMAP,0,0,LR_LOADFROMFILE)
ll_BitmapOpen=LoadImageA(0,'open.bmp',IMAGE_BITMAP,0,0,LR_LOADFROMFILE)
//取得第一个子菜单项的ID并修改菜单
li_MenuItemID=GetMenuItemID(ll_SubMenuHandle,0)
ModifyMenu(ll_SubMenuHandle,li_MenuItemID,MF_BITMAP,li_MenuItemId,ll_BitmapNew)
//取得第二个子菜单项的ID并修改菜单
li_MenuItemID=GetMenuItemID(ll_SubMenuHandle,1)
ModifyMenu(ll_SubMenuHandle,li_MenuItemID,MF_BITMAP,li_MenuItemId,ll_BitmapOpen)
//取得菜单缺省check-mark位图的尺寸
ll_x=GetSystemMetrics(SM_CXMENUCHECK)
ll_y=GetSystemMetrics(SM_CYMENUCHECK)
//按系统尺寸装入图像
ll_BitmapSave=LoadImageA(0,'save.bmp', IMAGE_BITMAP,ll_x,ll_y,LR_LOADFROMFILE)
ll_BitmapExit=LoadImageA(0,'exit.bmp', IMAGE_BITMAP,ll_x,ll_y,LR_LOADFROMFILE)
//设置菜单位图
SetMenuItemBitmaps(ll_SubMenuHandle,2,MF_BYPOSITION,ll_BitmapSave,ll_BitmapSave)
SetMenuItemBitmaps(ll_SubMenuHandle,3,MF_BYPOSITION,ll_BitmapExit,ll_BitmapExit)
感兴趣的,还不快试试。
相关文章推荐
- 位图菜单的制作
- 位图菜单的制作
- 纯DIV+CSS制作的三级鼠标经过弹出下拉导航菜单源码
- js入门·表单元素(select下拉列表)制作二级联动菜单和网站导航
- CSS+DIV设计实例:纯CSS制作下拉导航菜单
- 导航条菜单的制作
- Toolbar制作菜单条过程详解
- 禁止鼠标右键菜单、鼠标右键菜单制作插件;
- js入门·表单元素(select下拉列表)制作二级联动菜单和网站导航 .txt
- 右键菜单的制作!
- AngualrJS中的Directive制作一个菜单
- python基础_制作多级菜单_(运用:字典_列表_元组等知识)
- 如何用CSS制作横向菜单?
- magento 侧边栏菜单的生成制作!!3层目录!!
- VC使用位图和图标制作按钮
- 5款纯div+css制作的弹出菜单(标准且无js)
- 利用bmp位图制作ICO
- EXTJS学习系列提高篇:第七篇(转载)作者殷良胜,制作树形菜单之一
- 如何用CSS制作横向菜单?
- QQ的基于CSS+DIV制作的下拉可折叠菜单