用Authorware制作多級菜單

/用Authorwaｒｅ制作多級菜單我們都知道，在Ａｕthorwarｅ中提供了“Pｕll—DownMeｎu”這種交互方式，利用它可以制作出菜單交互。不過，要用它來制作多級菜單卻總是不行。其實,在Auｔhoｒwａｒe的安裝程序中,Mａcromedia公司在Wiｎapi。u3２中為我們準備了這樣的外部函數(shù)，利用它們，我們同樣可以制作出標準的Ｗindｏｗs多級菜單。有興趣嗎？一塊來試試.原有Fｉle菜單的擦除在用Aｕthｏｒwarｅ的菜單交互制作菜單時，Authorｗare總會在菜單欄上加一個“Fｉlｅ”菜單。這個“Fｉle”菜單與我們的作品總是那么不協(xié)調(diào)。所以咱們先想辦法去掉這個“Ｆile”菜單.在主流程線上拖一個交互圖標，命名為“Fｉle”，在其右側(cè)放一個組圖標（內(nèi)容為空）,在彈出的“RｅsponseＴype”對話框中，選擇“Pulｌ—DowｎＭenu”（菜單交互）。雙擊組圖標上方的小方塊，彈出屬性對話框，在“Respｏnｓｅ"選項卡中，將“Ｐｅrｐeｔｕaｌ”復選項選中，其他選項就用默認的好設置.在交互圖標的下方,放一個擦除圖標，雙擊打開擦除圖標的屬性對話框,則同時交互圖標的演示窗口也會被打開。用鼠標單擊交互圖標演示窗口標題欄上的“File”菜單。仔細看,那個“Ｆiｌｅ"菜單會隨之消失，確認就行了。流程線如圖1所示。圖１現(xiàn)在執(zhí)行一下看看，你的菜單欄是不是很干凈了？現(xiàn)在我們可以根據(jù)自己的需要來制作自己的菜單了。?多級菜單的制作１、在流程線上再放一個交互圖標，命名為“中國電腦教育報"，在其右側(cè)放一個組圖標，在彈出的“RespｏnseTｙｐｅ”對話框中，選擇“Pull－DowｎＭenu".將這個組圖標命名為“專題”.雙擊組圖標上方的那個矩形色塊，在彈出的“Proｐerｔｉes：Response”對話框中，點擊“Rｅsponｓe”選項卡，選中其中的“Perpetｕal"復選項，并將“Ｂraｎｃh”的值選為“Reｔｕｒｎ”（如圖2）。您可以繼續(xù)添加幾個這樣的組圖標，分別命名為“社會培訓”、“專題”等等，當然隨便您啦。不過,我們的下一級菜單是要加在“軟件.ｎet”下的，所以在這里就不用加了。圖2２、按同樣的方法，在主流程線上再放一個交互圖標,其右側(cè)也放幾個組圖標,分別命名為“在線學堂"、“網(wǎng)絡無限”、“多媒體”、“經(jīng)驗技巧”、“無憂問答”等。各項設置同上面的步驟一樣。惟一的不同，就是要把交互圖標的命名刪除，也就是說要讓這個交互圖標的名字為空(如圖３）。?圖33、在主流程線的下方加一個計算圖標，命名為“多級菜單制作”,雙擊打開其輸入窗口,輸入如下內(nèi)容：ｍenuｈaｎdｌe：＝GeｔMｅnu（WｉndowHanｄle)sｕbhaｎdｌe1:=ＧｅｔSubMenｕ（menｕｈanｄle,0)sｕbhａｎｄｌｅ2：=ＧeｔSubMenu(mｅnuhanｄｌｅ，１)RemoｖeＭeｎu（menｕhandle,1，1024）DｒａwＭenuBａｒ（WindｏwＨａnｄle)IｎsertＭenu(ｓubhandle１，0，1０４0,subhandle2，”軟件.neｔ”）輸入結束后，別忘了要保存一下喔！這時，系統(tǒng)會給出一個“WｈerｅisfuｎcｔiｏnＧｅtSubMｅnu(）?”對話框,詢問在哪里可以找到這些函數(shù)(如圖４）。這些函數(shù)都是Authorwaｒe自帶的，它們都藏身于Ｗｉnapi。u3２.通常情況下，您可以在Ａuｔhorware的安裝目錄下找到它，找到后打開就行了。友情提示：先輸入再找函數(shù)的好處是省得您一個個地加載函數(shù)。

圖4OK,現(xiàn)在把程序做完了.喂！先別忙著執(zhí)行啊！我還沒說完呢。這個效果您得打包以后才能看得到。在源文件中執(zhí)行是看不到效果的（可不是我的方法不行啊)。??什么,打包您還不會?那沒有關系，那就點擊菜單“→Paｃｋagｅ…"，然后彈出“PacｋａgｅFiｌｅ”對話框,在“PackageFｉlｅ:”下拉列表中選擇“ForWindoｗｓ9xandNT…”,其他設置如圖5所示,點擊“SaveＦile（s）&&Paｃｋage”按鈕就行了。Authorwarｅ會把打包后的執(zhí)行文件放到源程序所在的目錄下，并且打包后的文件與源程序文件同名。

圖5

圖6好了，打包完了嗎?現(xiàn)在您可以執(zhí)行一下打包后的文件了。本例的效果如圖６所示。對了,如果您要到別的計算機上演示的話，可別忘了把那個Wiｎapｉ。u32拷到打包文件所在的目錄下啊。不然,會看不到效果的喔！用Authｏrｗａre制作右鍵二重菜單

Autｈorwａre本身沒有直接為我們提供制作彈出式二重菜單的功能，但是Authorwaｒe５Atｔａin附帶的用戶自定義函數(shù)ｔＭsCｏｎtｒols．U32（立即下載)可制作彈出式二重菜單。本文就為各位介紹其詳細的制作方法。實現(xiàn)效果當用戶在演示窗口單擊鼠標右鍵時出現(xiàn)一個菜單(類似于在Ｗindoｗｓ桌面上單擊鼠標右鍵出現(xiàn)的菜單)。菜單中的第一重是《中國電腦教育報》的幾個一級欄目，如:硬件世界、軟件天地、網(wǎng)絡時代和電腦教育（注:目前軟件天地與網(wǎng)絡時代已合為軟件．ｎet,電腦教育應為教育信息化）;第二重菜單是軟件天地的一些二級欄目，如：業(yè)界視窗、新手上路和編程樂園等。當用戶選擇某個菜單時，將跳轉(zhuǎn)到相應的內(nèi)容。準備工作啟動Autｈｏrwａrｅ5.0，新建一個名為“右鍵二重菜單"的文件。由于函數(shù)tMｓCoｎｔroｌs．Ｕ32是外部函數(shù)，所以需要進行加載。按Ｃtrl+Ｓｈｉfｔ+F打開Fuｎcｔions函數(shù)庫,選擇Ｃateｇｏrｙ下的“右鍵二重菜單。ａ５p”，然后單擊Ｌoad…出現(xiàn)對話框，選擇tＭsCoｎｔroｌｓ.U３2后單擊打開,出現(xiàn)一個對話框.按住Ctｒl鍵可以連續(xù)選中所需要的三個函數(shù)：tMsAddItｅm、tＭsCreａt(yī)ePopupList、tMｓDisｐlaｙＣｏntrol，最后單擊Loａd即可完成對函數(shù)的加載。右鍵響應的制作在流程線上放置一個【交互圖標】,取名為“右鍵響應”；在【交互圖標】旁邊放置一個【群組圖標】，其Ｔｙpe（響應類型)為：Conｄitｉoｎａl；雙擊【群組圖標】上面的“=”,出現(xiàn)對話框,在Coｎditiｏn中輸入ＲiｇhtＭouseDown＝TRUE,Response下Scope設置為Pｅrpeｔual，Eraｓe設置為AfteｒNextＥntry,Ｂrancｈ設置為Reｔurn,Stａｔｕs設置為NotJudgｅd，最后單擊OK完成右鍵的制作.制作二重菜單雙擊打開【群組圖標】，在流程線上放置一個【計算圖標】,取名為制作菜單。雙擊打開并在其中輸入以下內(nèi)容:創(chuàng)建彈出式菜單的句柄：poｐupHａndle：=tＭｓCreaｔｅPoｐｕpLisｔ（WindowHandle)1、設置第一重菜單中的內(nèi)容,其中"－”為分隔線，為了使菜單名稱居中,可以在名稱前加空格.tMsＡddItem（ｐoｐｕpHandle,１，0，"中國電腦教育報”）?ｔMsAｄdItem（pｏpupHaｎdle，２，0,"—”)

tMsAｄdＩｔem(popupHandlｅ,3，0,"硬件世界")

tＭsAddItｅｍ(popupHanｄle，4，0，"軟件天地”）?tＭsAddIｔem（pｏpｕｐHaｎdlｅ,5,０，"網(wǎng)絡時代"）?tMsAddＩｔem(pｏpupＨaｎｄlｅ，6，0,＂電腦教育")

tMｓAddＩtem（ｐopｕpHandle,7，0，"－＂）?tMsAddItem(ｐopｕpHandｌe,８，0,"退出”）2、設置硬件世界和電腦教育的子菜單，即第二重菜單:ｔMsAdｄＩｔem(popuｐHanｄle，4，1，"業(yè)界視窗”)?tMsAddItｅm(popuｐHandｌe,４,2，＂新手上路”）?tMsAdｄItｅm(pｏpupＨandｌe，4,3,”軟件速遞”）?tMsAddItem（pｏpupＨａnｄle,4,4，＂編程樂園"）?ｔMsAddIteｍ（popupHaｎｄle,4，5,＂經(jīng)驗技巧")

tMｓAｄｄIteｍ（ｐoｐupHandlｅ,6，1，”教育前沿"）?tMsAｄdItem(ｐopupHandｌe,6,2,＂校園實踐"）當單擊右鍵將彈出一個前邊設定好的彈出式菜單,并將用戶反饋（即用戶所選擇的菜單項）返回給變量ｒesuｌｔ:resｕlt：=tＭsDisplayContｒol(popupHandle,CursorX，CurｓorY,150,100，６)?

圖1此時，按Ctrl+Ｒ運行程序會發(fā)現(xiàn)在演示窗口單擊鼠標右鍵時會出現(xiàn)一個如圖１所示的二重菜單。二重菜單的交互響應在流程線上再放置一個【計算圖標】和【決策圖標】；【決策圖標】旁放置一些【顯示圖標】（如圖２)，根據(jù)名稱在【顯示圖標】輸入所需內(nèi)容，雙擊【顯示圖標】上面的小矩形出現(xiàn)對話框,將ＥｒaｓｅContｅｎts設置為Don＇tＥｒase；在計算圖標中輸入以下內(nèi)容:

圖2ｉfｒesuｌt=1thenGｏTｏ(ＩcoｎＩＤ＠”中國電腦教育報"）?ifresuｌt=３thenＧoＴo(ＩconID＠＂硬件世界")?ifresult＝”4:１"tｈenGｏTｏ(ＩconＩＤ＠"業(yè)界視窗")

iｆreｓult＝”4:2＂tｈenＧoTo(IｃｏnID＠"新手上路"）?iｆrｅsult＝”4:3"thenGoTｏ（IcoｎID＠＂軟件速遞"）?ｉｆrｅｓｕlｔ="4:4＂theｎGoTo（ＩｃoｎID＠”編程樂園"）

ifresult＝"4：５"ｔhenGｏＴｏ（IconID＠"經(jīng)驗技巧")

ifrｅｓult=＂5"thenGｏTo(IcｏｎID＠"網(wǎng)絡時