Authorware怎么能作出制作弹出式菜单？
Authorware本身没有为我们提供直接制作弹出式菜单的途径,不过Authorware5Attain附带的用户自定义函数文件tMsControls。U32,却可以帮助我们制作弹出式菜单。本文为你介绍具体的实现方法。 如果目前你手头上还没有tMsControls。U32,可以马上下载一个。以下给出制作弹出式菜单的详细步骤:1。从tMsControls。U32中载入本实例必需的函数:tMsAddItem、tMsCreatePopupList、tMsDestroyControl、tMsDisplayControl。 2。拖一个计算图标到流程线上,命名为“创建弹出式菜单”;在其中输入如下脚本...全部
Authorware本身没有为我们提供直接制作弹出式菜单的途径,不过Authorware5Attain附带的用户自定义函数文件tMsControls。U32,却可以帮助我们制作弹出式菜单。本文为你介绍具体的实现方法。
如果目前你手头上还没有tMsControls。U32,可以马上下载一个。以下给出制作弹出式菜单的详细步骤:1。从tMsControls。U32中载入本实例必需的函数:tMsAddItem、tMsCreatePopupList、tMsDestroyControl、tMsDisplayControl。
2。拖一个计算图标到流程线上,命名为“创建弹出式菜单”;在其中输入如下脚本(----后边是有关程序脚本的说明):----下列代码创建弹出式菜单的句柄:popupHandle:=tMsCreatePopupList(WindowHandle)----下列代码创建弹出式菜单的菜单选项列表:tMsAddItem(popupHandle,1,0,"选项1")tMsAddItem(popupHandle,2,0,"选项2")tMsAddItem(popupHandle,3,0,"-")----在选项2和选项3之间创建一条分隔线tMsAddItem(popupHandle,4,0,"选项3")tMsAddItem(popupHandle,5,0,"选项4")tMsAddItem(popupHandle,6,0,"选项5")----下列代码为"选项2"菜单项创建两个分隔开的子菜单选项,如不需要子菜单,可以省略:tMsAddItem(popupHandle,2,1,"子选项1")tMsAddItem(popupHandle,2,2,"-")tMsAddItem(popupHandle,2,3,"子选项2")3。
在计算图标“创建弹出式菜单”之后,建立一个条件交互,命名为“右键响应弹出式菜单”,Condition项设为:RightMouseDown=TRUE,Automatic项设为:OnFalsetoTrue。
用一个计算图标响应RightMouseDown事件,在其中输入:----下列代码在右键敲击处,弹出一个前边设定好的弹出式菜单,并将用户反馈(即用户所选择的菜单项)返回给变量 :=tMsDisplayControl(popupHandle,CursorX,CursorY,100,150,1)----当不需要再使用该弹出式菜单时,可用下列代码将它删掉。
tMsDestroyControl(popupHandle)4。打包发行你的Authorware作品时,把tMsControls。U32放到主程序所在目录。你只需对本实例稍加修改,就可以用到你自己的程序中去了。
这是我网上收集的资料。收起
