（2）为创建下拉弹出式菜单编写代码
在“创建菜单”计算图标写入如下代码：
--以下代码定义菜单标识ID
MN_LOGIN:=100
MN_RELOGIN:=101
MN_LOGOUT:=102
MN_WIN:=200
MN_UNIX:=201
MN_MEDIA:=202
MN_DB:=203
MN_ADOBE:=300
MN_MM:=301
MN_AW:=400
MN_DR:=401
MN_FL:=402
MN_PR:=403
MN_PS:=404
MN_BMP:=500
MN_HELP:=501
---以下代码创建系统登陆菜单
SYSMenu:=mCreatePopupMenu()
mAppendMenu(SYSMenu,0,MN_LOGIN,"登陆(&L)")
mAppendMenu(SYSMenu,0,MN_RELOGIN,"注销(&R)")
mAppendMenu(SYSMenu,0,MN_LOGOUT,"退出(&E)")
---以下代码创建三级子菜单
TubMenu1:=mCreatePopupMenu()
TubMenu2:=mCreatePopupMenu()
mAppendMenu(TubMenu1,0,MN_AW,"Authorware"^Tab^"Ctrl+A")
mAppendMenu(TubMenu1,0,MN_DR,"Director "^Tab^"Ctrl+D")
mAppendMenu(TubMenu1,0,MN_FL,"Flash "^Tab^"Ctrl+F")
mAppendMenu(TubMenu2,0,MN_PS,"&PhotoShop"^Tab^"Ctrl+P")
mAppendMenu(TubMenu2,0,MN_PR,"&Premiere "^Tab^"Ctrl+E")
mCheckMenuItem(TubMenu1,MN_AW,MF_CHECKED) ---设置菜单项为Checked
mEnableMenuItem(TubMenu2,MN_PR,MF_GRAYED) ---设置菜单项为灰色不可用
---以下代码创建二级子菜单
SubMenu:=mCreatePopupMenu()
mAppendMenu(SubMenu,MF_POPUP,TubMenu1,"&Macromedia")
mAppendMenu(SubMenu,MF_POPUP,TubMenu2,"&Adobe")
---创建版面选择菜单
BBSMenu:=mCreatePopupMenu()
mAppendMenu(BBSMenu,0,MN_WIN,"Windows NT")
mAppendMenu(BBSMenu,0,MN_UNIX,"Unix Linux")
mAppendMenu(BBSMenu,MF_SEPARATOR,0,"")
mAppendMenu(BBSMenu,MF_POPUP,SubMenu,"Multimedia")
mAppendMenu(BBSMenu,MF_SEPARATOR,0,"")
mAppendMenu(BBSMenu,0,MN_DB,"DataBase")
mCheckMenuItem(BBSMenu,MN_DB,MF_CHECKED)
---创建系统帮助菜单
AboutMenu := mCreatePopupMenu()
bmPic:=mLoadBitmapFile(FileLocation^"4U2V.bmp" ) ---导入BMP图片作为菜单
mAppendMenu(AboutMenu,0,MN_HELP," 关于...")
mAppendBitmapMenu(AboutMenu,0,MN_BMP,bmPic)
值得注意的是Budmenu.u32和tMsControls.u32不同，Budmenu.u32是靠标志符ID来标识每个菜单项的，因此必须给每个菜单项一个唯一的标识符ID。
|
