用authorware自带的显示图标和计算图标编写的组合下拉控件

[这个贴子最后由寒秋在 2007/06/05 08:48pm 第 1 次编辑] 组合下拉控件： --该下拉组合控件完全是用Authorware自带的显示图标和计算图标、交互图标来完成。 --可以自定义下拉列表的显示条数，下拉列表的宽度 --可以自定义下拉列表的背景颜色，鼠标经过进的颜色，选定后的颜色。 --该控件目前只支持<=10的显示项目，不允许超过10。 --由于对象在path的移动上，没办法进行动态设置，所以采用了文本的滚动栏， --因此在调整下拉列表的宽度与个数时，请根据实际显示的下拉文本内容的宽度和行数 --来修改相对就的参数。否则，会影响美观及实际效果。 --下拉列表的内容只受Authorware本身的限制。 --该程序由寒秋用Authorware7.0编写，纯属个人爱好，切勿用于商业场合，允许自己下载使用。 --有什么问题可以在bbs.yfdmt.com的Authorware的论坛上讨论。 相关的变量说明： showListcount:=10--用来显示下拉列表中的个数 showListwidth:=100 --用来显示下拉列表的宽度 --注意：以上两项请根据自己在调整列表内容显示的相关数据进行修改 操作时支持鼠标移动选择，也支持键盘的向上、向下、向前翻页和向后翻页进行操作。本想写个滚轮事件，后来查找需要使用magicmouse里的函数，也就没写了。 liststartx:=30 --用来显示下拉列表中的起点X坐标 liststarty:=20 --用来显示下拉列表中的起点Y坐标 listBackColor:=RGB(120,120,255) --定义下拉列表的背景颜色 ShowSelectlistColor:=RGB(200,200,200) --定义一开始出现的选定内容的颜色 MouseSelectListColor:=RGB(150,255,200) --定义鼠标移动时提示的颜色 State:="" --这是选择后返回的内容