authorware实战开发专题之制作windows标准菜单方法---win-为中国网络技术提供点滴动力-iyit.net-易特网络技术！

　　通行证: 用户密码

域名空间　下载中心　 社区论坛　信息公告 my小屋

联系我们
设为首页
加入收藏

qq,asp,php,jsp,xml,sql,.net,编程程序网页图象建站经验私服




	当前位置：首页>>网络媒体>>authorware>>正文	新版上线！[旧版]

注:打开慢时请稍等

authorware实战开发专题之制作windows标准菜单方法

http://www.iyit.net 日期：2006-5-29 9:28:45 来源：网络转载点击：

【参加讨论】　　我们知道，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, "director")

---- 下列代码创建下拉列表式菜单的句柄：

droplisthandle:=tmscreatedroplist(windowhandle)

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

tmsadditem(droplisthandle, 1, 0, "请选择访问以下网站")

tmsadditem(droplisthandle, 2, 0, "---------------------------")

tmsadditem(droplisthandle, 3, 0, "郁金香 b b s ")

tmsadditem(droplisthandle, 4, 0, "清音飞扬")

tmsadditem(droplisthandle, 5, 0, "魔岩工作室")

---- 下列代码是显示下拉列表式菜单

tmsdisplaycontrol(droplisthandle,17,80,50,50,0)
（2）加鼠标右键响应弹出菜单的永久条件交互和下拉列表菜单选择菜单的按钮响应。设置条件“rightmousedown=true”，其中“rightmousedown”为系统变量，返回类型为“continue”，并设置为永久交互，如图5.6所示。这样当用户进行鼠标右浆操作时，条件为真，执行计算图标里的代码后并弹出菜单，由用户选择：

---- 下列代码在鼠标右键点击处，弹出一个前边设定好的弹出式菜单，

---- 并将用户反馈（即用户所选择的菜单项）返回给变量popresult：

popresult:=tmsdisplaycontrol(popuphandle, cursorx, cursory, 100, 120, 1)

---- 下面是当用户选择弹出式菜单执行的相关操作的代码：

if popresult="退出系统" then quit() -----这里只是“退出系统”操作代码的样式范本

图5.6 右键响应弹出菜单的永久条件交互

而另一个“continue”交互“go”就是下拉列表菜单的相关操作，计算图标的代码如下：

----将用户反馈（即用户所选择的菜单项）返回给变量dropreturnvar：

dropreturnvar:=tmsgetitem(droplisthandle, 0, 0)

---- 下面是当用户选择菜单后执行相关操作的代码，只是简单显示一个交互消息框而已。

if dropreturnvar=3 then messagebox(windowhandle,"url: http://bbs.stu.edu.cn ","郁金香bbs",64)

if dropreturnvar=4 then messagebox(windowhandle,"url: http://www.music.stu.edu.cn ","清音飞扬",64)

if dropreturnvar=5 then messagebox(windowhandle,"url: http://202.192.154.5/myhome/rock ","魔岩工作室",64)

5）存盘完成。

执行一下，看看效果吧。
编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：authorware实战开发专题之制作windows标准菜单方法(2)
下一篇：随机循环选择播放midi背景音乐
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

　相关文章

authorware实战开发专题之制作windows标	authorware实战开发专题之制作windows标	怎样在aw中调用windows程序
director 制作具有win xp 风格的菜单（	director 制作具有win xp 风格的菜单（	用flash mx制作弹出windows窗口
flash模拟winamp动态视觉效果	在网页调用 windows 控件两例	微软 windows 徽标做法一例
winmysqladmin 1.1以明文形式存放mysql	模似windows xp 左侧的菜单效果(2)	模似windows xp 左侧的菜单效果(3)
windows 2000活动目录详解之安装配置篇	windows 2000活动目录详解之基础篇	如何在服务器端调用winzip命令行对上传
关于win2k3中利用asp上传文件的问题	windows2000服务器账号登陆身份验证	win2003下apache+php5+mysql4+phpmyadm
win2000下php服务器安装攻略	在windows中安装apache2和php4的权威指	在win平台上让你 apache 2.0.45支持php
php 在windows 2003 enterprise server	apache2.0.39 php4.2.3在windowsxp下模	在windows下面从源代码编译php的步骤