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)
|
