Authorware实战开发专题之制作Windows标准菜单方法

　　我们知道，Authorware提供了Pull-Down Menu下拉式菜单制作的功能，可是如果我们要实现下拉式菜单下的分级菜单，下拉列表菜单和鼠标右键弹出式菜单等三种Windows常见的标准菜单，如何在Authorware中实现呢？继续看下去吧！

5．1 利用tMsControls.u32制作Windows标准菜单

　　这里我们要借助Authorware的外部扩展函数：tMsControls.u32来制作Windows常见的标准菜单选项，它是Mediashoppe提供的一个免费U32（UserCode），可以在Authorware的安装目录里找到，功能强大。看看它的部分函数功能吧：

tMsCreateDropList(windowHandle) -----创建弹出式菜单的句柄

tMsCreatePopupList(windowHandle) -----创建下拉列表式菜单的句柄

tMsAddItem(ControlHandle, menuItemNo, submenuItemNo, menuText) -----创建菜单项

tMsGetItem(ControlHandle, menuItemNo, submenuItemNo) -----获取用户选择菜单

tMsDisplayControl(ControlHandle, X, Y, Width, Height, Return) -----显示菜单函数

　　有了上面这些扩展函数就可以很轻松的搞定下拉列表菜单和鼠标右键弹出式菜单，而Pull-Down Menu下拉式菜单在Authorware系统就提供了。

1、执行界面预览，如图5.1和图5.2所示

图5.1下拉列表菜单执行效果

图5.2 右键弹出式菜单执行效果

2、程序的流程图如图5.3所示

图5.3 范例程序流程图
3、操作步骤：

1） 新建一个文件，并调入外部函数tMsControls.u32的相关扩展函数：

tMsCreateDropList(windowHandle)

tMsCreatePopupList(windowHandle)

tMsAddItem(ControlHandle,menuItemNo,submenuItemNo,menuText) tMsGetItem(ControlHandle, menuItemNo, submenuItemNo)

tMsDisplayControl(ControlHandle, X, Y, Width, Height, Return)

2）设置屏幕大小和背景

3）创建中文下拉式菜单，程序流程如图5.4

图5.4创建中文下拉式菜单程序流程

我们知道，如果我们把文件File的属性Properties的“menu bar”Options选上，如图5.5所示，则程序的运行窗口将出现一个“File”的下拉菜单，如果我们要制作全中文的菜单，当然要想办法把它“擦除”掉，而“File”下拉菜单是系统默认的，因此我们也建立一个和它同名的“File”下拉菜单，这样系统就认为这个“File”下拉菜单是用户所创建，理所当然我们可以用擦除图标把它擦除掉拉。其它的步骤请看图5.4。

图5.5 File文件的属性Properties范例设置
4）创建下拉列表菜单和鼠标右键响应菜单。

（1）在计算图标“creatmenu”里写入如下程序代码：

---- 下列代码创建弹出式菜单的句柄：

popupHandle:=tMsCreatePopupList(WindowHandle)

---- 下列代码创建弹出式菜单的菜单选项列表：

tMsAddItem(popupHandle, 1, 0, "作者介绍")

tMsAddItem(popupHandle, 2, 0, "联系作者")

tMsAddItem(popupHandle, 3, 0, "-") ---- 在选项 2和选项 3 之间创建一条分隔线

tMsAddItem(popupHandle, 4, 0, "软件说明")

tMsAddItem(popupHandle, 5, 0, "软件教程")

tMsAddItem(popupHandle, 6, 0, "-") ---- 在选项 5和选项 7 之间创建一条分隔线

tMsAddItem(popupHandle, 7, 0, "退出系统")

---- 下列代码为"软件教程"菜单项创建两个分隔开的子菜单选项，如不需要子菜单，可---- 以省略

tMsAddItem(popupHandle, 5, 1, "Authorware")

tMsAddItem(popupHandle, 5, 2, "-")----在子菜单Authorware和子菜单Director之间创建----一条分隔线

tMsAddItem(popupHandle, 5, 3, "D