Authorware開發(fā)實例:繪制Win標(biāo)準(zhǔn)菜單辦法(下拉菜單和右鍵多級菜單)

2024-09-08 19:25:52

字體：大中小

供稿：網(wǎng)友

[專題五] 制作windows標(biāo)準(zhǔn)菜單方法

　　我們知道，authorware提供了pull-down menu下拉式菜單制作的功能，可是如果我們要實現(xiàn)下拉式菜單下的分級菜單，下拉列表菜單和鼠標(biāo)右鍵彈出式菜單等三種windows常見的標(biāo)準(zhǔn)菜單，如何在authorware中實現(xiàn)呢？繼續(xù)看下去吧！

5．1 利用tmscontrols.u32制作windows標(biāo)準(zhǔn)菜單

　　這里我們要借助authorware的外部擴展函數(shù)：tmscontrols.u32來制作windows常見的標(biāo)準(zhǔn)菜單選項，它是mediashoppe提供的一個免費u32（usercode），可以在authorware的安裝目錄里找到，功能強大。看看它的部分函數(shù)功能吧：

tmscreatedroplist(windowhandle) -----創(chuàng)建彈出式菜單的句柄

tmscreatepopuplist(windowhandle) -----創(chuàng)建下拉列表式菜單的句柄

tmsadditem(controlhandle, menuitemno, submenuitemno, menutext) -----創(chuàng)建菜單項

tmsgetitem(controlhandle, menuitemno, submenuitemno) -----獲取用戶選擇菜單

tmsdisplaycontrol(controlhandle, x, y, width, height, return) -----顯示菜單函數(shù)

　　有了上面這些擴展函數(shù)就可以很輕松的搞定下拉列表菜單和鼠標(biāo)右鍵彈出式菜單，而pull-down menu下拉式菜單在authorware系統(tǒng)就提供了。

1、執(zhí)行界面預(yù)覽，如圖5.1和圖5.2所示

圖5.1下拉列表菜單執(zhí)行效果

圖5.2 右鍵彈出式菜單執(zhí)行效果

2、程序的流程圖如圖5.3所示

圖5.3 范例程序流程圖
3、操作步驟：

1）新建一個文件，并調(diào)入外部函數(shù)tmscontrols.u32的相關(guān)擴展函數(shù)：

tmscreatedroplist(windowhandle)

tmscreatepopuplist(windowhandle)

tmsadditem(controlhandle,menuitemno,submenuitemno,menutext) tmsgetitem(controlhandle, menuitemno, submenuitemno)

tmsdisplaycontrol(controlhandle, x, y, width, height, return)

2）設(shè)置屏幕大小和背景

3）創(chuàng)建中文下拉式菜單，程序流程如圖5.4

圖5.4創(chuàng)建中文下拉式菜單程序流程

我們知道，如果我們把文件file的屬性properties的“menu bar”options選上，如圖5.5所示，則程序的運行窗口將出現(xiàn)一個“file”的下拉菜單，如果我們要制作全中文的菜單，當(dāng)然要想辦法把它“擦除”掉，而“file”下拉菜單是系統(tǒng)默認(rèn)的，因此我們也建立一個和它同名的“file”下拉菜單，這樣系統(tǒng)就認(rèn)為這個“file”下拉菜單是用戶所創(chuàng)建，理所當(dāng)然我們可以用擦除圖標(biāo)把它擦除掉拉。其它的步驟請看圖5.4。

圖5.5 file文件的屬性properties范例設(shè)置4）創(chuàng)建下拉列表菜單和鼠標(biāo)右鍵響應(yīng)菜單。

（1）在計算圖標(biāo)“creatmenu”里寫入如下程序代碼：

---- 下列代碼創(chuàng)建彈出式菜單的句柄：

popuphandle:=tmscreatepopuplist(windowhandle)

---- 下列代碼創(chuàng)建彈出式菜單的菜單選項列表：

tmsadditem(popuphandle, 1, 0, "作者介紹")

tmsadditem(popuphandle, 2, 0, "聯(lián)系作者")

tmsadditem(popuphandle, 3, 0, "-") ---- 在選項 2和選項 3 之間創(chuàng)建一條分隔線

tmsadditem(popuphandle, 4, 0, "軟件說明")

tmsadditem(popuphandle, 5, 0, "軟件教程")

tmsadditem(popuphandle, 6, 0, "-") ---- 在選項 5和選項 7 之間創(chuàng)建一條分隔線

tmsadditem(popuphandle, 7, 0, "退出系統(tǒng)")

---- 下列代碼為"軟件教程"菜單項創(chuàng)建兩個分隔開的子菜單選項，如不需要子菜單，可---- 以省略

tmsadditem(popuphandle, 5, 1, "authorware")

tmsadditem(popuphandle, 5, 2, "-")----在子菜單authorware和子菜單director之間創(chuàng)建----一條分隔線

tmsadditem(popuphandle, 5, 3, "director")

---- 下列代碼創(chuàng)建下拉列表式菜單的句柄：

droplisthandle:=tmscreatedroplist(windowhandle)

---- 下列代碼創(chuàng)建下拉列表式菜單的菜單選項列表：

tmsadditem(droplisthandle, 1, 0, "請選擇訪問以下網(wǎng)站")

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）加鼠標(biāo)右鍵響應(yīng)彈出菜單的永久條件交互和下拉列表菜單選擇菜單的按鈕響應(yīng)。設(shè)置條件“rightmousedown=true”，其中“rightmousedown”為系統(tǒng)變量，返回類型為“continue”，并設(shè)置為永久交互，如圖5.6所示。這樣當(dāng)用戶進行鼠標(biāo)右漿操作時，條件為真，執(zhí)行計算圖標(biāo)里的代碼后并彈出菜單，由用戶選擇：

---- 下列代碼在鼠標(biāo)右鍵點擊處，彈出一個前邊設(shè)定好的彈出式菜單，

---- 并將用戶反饋（即用戶所選擇的菜單項）返回給變量popresult：

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

---- 下面是當(dāng)用戶選擇彈出式菜單執(zhí)行的相關(guān)操作的代碼：

if popresult="退出系統(tǒng)" then quit() -----這里只是“退出系統(tǒng)”操作代碼的樣式范本

圖5.6 右鍵響應(yīng)彈出菜單的永久條件交互

而另一個“continue”交互“go”就是下拉列表菜單的相關(guān)操作，計算圖標(biāo)的代碼如下：

----將用戶反饋（即用戶所選擇的菜單項）返回給變量dropreturnvar：

dropreturnvar:=tmsgetitem(droplisthandle, 0, 0)

---- 下面是當(dāng)用戶選擇菜單后執(zhí)行相關(guān)操作的代碼，只是簡單顯示一個交互消息框而已。

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）存盤完成。

執(zhí)行一下，看看效果吧。

上一篇：Authorware開發(fā)實例:實際示例演練Authorware(1)-光標(biāo)跟隨提示

下一篇：Authorware開發(fā)實例:更強地適應(yīng)能力用Authorware繪制全屏演示