Authorware開發實例:繪制Win標準菜單辦法(下拉菜單和右鍵多級菜單)

2024-09-08 19:25:52

字體：大中小

來源：轉載

供稿：網友

[專題五] 制作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, "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開發實例:實際示例演練Authorware(1)-光標跟隨提示

下一篇：Authorware開發實例:更強地適應能力用Authorware繪制全屏演示