●下拉列表
●弹出式快捷选单
●选择文件对话框
●字体下拉列表
●带预览功能的图形文件打开对话框
●带预览功能的图形文件保存对话框
下面利用tMsControls.u32来制作子选单，主要是利用tMsControls.u32中的tMsCreatePopupList、tMsDisplayControl、tMsAddItem这三个函数实现子选单的功能。其实现过程如下。
●取得Windows句柄：popupHandle:=tMsCreatePopupList(WindowHandle)。
●设置选单内容：Result:=tMsAddItem(ControlHandle,menuItemNo,submenuItemNo, menuText)，其中参数ControlHandle是控制句柄的变量名，这里是popupHandle；参数menuItemNo是选单内容中的排列顺序；参数submenuItemNo的作用是设置子选单，如“0”表示是一级选单，“1、2、3......”表示二级选单；参数MenuText是设置选单显示内容，其中分隔线用“-”。
●设置选单显示位置：Result:=tMsDisplayControl(ControlHandle, X, Y, Width, Height, Return)，其中参数ControlHandle是控制句柄的变量名；参数X、Y分别表示水平和垂直位置；参数Windth、Height分别表示选单的宽和高；Return表示返回值。
●最后判断变量的返回值，根据不同的返回值做相应的处理，如if(result=“退出”) then quit(0)。
下面给出一个具体实例，详细地讲述子选单的制作。
图1
1.新建一个文件，保存为“子选单.a5p”，设置该文件属性，把其中的“Menu Bar”选项勾去掉，.然后在流程线上放置一个显示图标，自己设置一选单条，用一灰色图片放在展示窗口的选单区域，再写上“文件”。
2.导入tMsControls.u32中的三个函数。
3.在流程线上添加一个交互图标，命名为“tMsControls”，然后在其右侧放置一个计算图标，命名为“Submenu”，响应方式设置为热区交互，目的是使点击“文件”后出现相应的选单。
4.双击“Submenu”计算图标，输入如图1所示的内容。
图2
5.至此，实例程序设计、制作完毕，保存该文件。
运行该文件，其运行结果如图2所示。
这样，一个实用、漂亮的二级子选单就做好了。利用该种方法制作子选单要注意的有两点：
（1）弹出一级子选单后，如果没有单击任何选单选项，.此时的返回值为该子选单的最后一个选单内容，在该实例中为“-”；
（2）单击第二级子选单后所返回的值不仅包含本身的子选单名，而且包含了一级子选单名，如“zsb1”子选单响应后所返回的值为“新建:zsb1”。
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
