资源描述:
《authorware实战开发专题-- 制作windows标准菜单方法》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、Authorware实战开发专题--制作Windows标准菜单方法 我们知道,Author(ControlHandle,menuItemNo,submenuItemNo,menuText)-----创建菜单项 tMsGetItem(ControlHandle,menuItemNo,submenuItemNo)-----获取用户选择菜单 tMsDisplayControl(ControlHandle,X,Y,sGetItem(ControlHandle,menuItemNo,submenuItemNo) tMsDisplayControl(ControlHandle,X
2、,Y,sCreatePopupList(sAddItem(popupHandle,2,0,联系) tMsAddItem(popupHandle,3,0,-)----在选项2和选项3之间创建一条分隔线 tMsAddItem(popupHandle,4,0,软件说明) tMsAddItem(popupHandle,5,0,软件教程) tMsAddItem(popupHandle,6,0,-)----在选项5和选项7之12下一页——..,。间创建一条分隔线 tMsAddItem(popupHandle,7,0,退出系统) ----下列代码为软件教程菜单项创建两个分隔开的
3、子菜单选项,如不需要子菜单,可----以省略 tMsAddItem(popupHandle,5,1,Author(popupHandle,5,2,-)----在子菜单Author(popupHandle,5,3,Director) ----下列代码创建下拉列表式菜单的句柄: droplisthandle:=tMsCreateDropList(sAddItem(droplisthandle,2,0,---------------------------) tMsAddItem(droplisthandle,3,0,郁金香BBS) tMsAddItem(droplist
4、handle,4,0,清音飞扬) tMsAddItem(droplisthandle,5,0,魔岩工作室) ----下列代码是显示下拉列表式菜单 tMsDisplayControl(droplisthandle,17,80,50,50,0) (2)加鼠标右键响应弹出菜单的永久条件交互和下拉列表菜单选择菜单的按钮响应。设置条件RightMouseDo(droplisthandle,0,0) ----下面是当用户选择菜单后执行相关操作的代码,只是简单显示一个交互消息框而已。 ifDropReturnVar=3thenMessageBox(essageBox(e/roc
5、k,魔岩工作室,64) 5)存盘完成。 执行一下,看看效果吧。上一页12——..,。