Authorware開發(fā)實(shí)例:繪制Win標(biāo)準(zhǔn)菜單辦法

2024-09-08 19:26:12

字體：大中小

供稿：網(wǎng)友

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

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

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

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

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

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

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

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

　　有了上面這些擴(kuò)展函數(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）新建一個(gè)文件，并調(diào)入外部函數(shù)tmscontrols.u32的相關(guān)擴(kuò)展函數(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所示，則程序的運(yùn)行窗口將出現(xiàn)一個(gè)“file”的下拉菜單，如果我們要制作全中文的菜單，當(dāng)然要想辦法把它“擦除”掉，而“file”下拉菜單是系統(tǒng)默認(rèn)的，因此我們也建立一個(gè)和它同名的“file”下拉菜單，這樣系統(tǒng)就認(rèn)為這個(gè)“file”下拉菜單是用戶所創(chuàng)建，理所當(dāng)然我們可以用擦除圖標(biāo)把它擦除掉拉。其它的步驟請(qǐng)看圖5.4。

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

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

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

popuphandle:=tmscreatepopuplist(windowhandle)

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

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

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

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

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

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

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

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

---- 下列代碼為"軟件教程"菜單項(xiàng)創(chuàng)建兩個(gè)分隔開的子菜單選項(xià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)建下拉列表式菜單的菜單選項(xiàng)列表：

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

tmsadditem(droplisthandle, 2, 0, "---------------------------")

tmsadditem(droplisthandle, 3, 0, "郁金香 b b s ")

tmsadditem(droplisthandle, 4, 0, "清音飛揚(yáng)")

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)用戶進(jìn)行鼠標(biāo)右漿操作時(shí)，條件為真，執(zhí)行計(jì)算圖標(biāo)里的代碼后并彈出菜單，由用戶選擇：

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

---- 并將用戶反饋（即用戶所選擇的菜單項(xiàng)）返回給變量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)彈出菜單的永久條件交互

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

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

dropreturnvar:=tmsgetitem(droplisthandle, 0, 0)

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

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 ","清音飛揚(yáng)",64)

if dropreturnvar=5 then messagebox(windowhandle,"url: http://202.192.154.5/myhome/rock ","魔巖工作室",64)

5）存盤完成。

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

上一篇：Authorware開發(fā)實(shí)例:Authorware實(shí)際示例教學(xué)文章(3):收尾和打包1

下一篇：Authorware開發(fā)實(shí)例:怎么樣繪制屏幕保護(hù)效果