項目六菜單與工具欄設計

項目六菜單與工具欄設計學習目標下拉式菜單為菜單項單擊事件編寫程序代碼彈出式菜單工具欄設計Windows應用程序的窗口菜單一般包括主菜單和子菜單

知識1下拉式菜單【案例6.1】建立下拉菜單設計如圖所示的窗體和菜單【案例6.1】建立下拉菜單1.建立窗體：本案例的程序窗體只有一個文本框控件。窗體和文本框控件屬性設置如表所示?？丶麑傩詫傩灾礔orm1Caption文本編輯器Text1Text空MultiLineTrueScrollBars3-Both【案例6.1】建立下拉菜單2．設計菜單：用鼠標單擊工具欄上菜單編輯器圖標或選擇“工具”菜單下的“菜單編輯器”菜單項【案例6.1】建立下拉菜單3．按照上表所示建立菜單，為每個菜單項輸入標題、名稱，設置快捷鍵，并使用“←”、“→”按鈕建立級聯(lián)符號。

【案例6.1】建立下拉菜單標題名稱菜單級聯(lián)符號快捷鍵文件(&F)efile無新建(&N)enew....Ctrl+N打開(&O)...eopen....Ctrl+O保存(&S)esave....Ctrl+S另存為(&A)...esaveas....-f1....打印(&P)eprint....Ctrl+P-f2....退出(&X)equit....【案例6.2】為菜單項單擊事件編寫程序代碼

1.在窗體中添加“通用對話框”控件2.在窗體設計器中單擊設計窗體的子菜單項，打開代碼窗口，光標在菜單項對應單擊事件中，為對應菜單項事件編寫代碼。【案例6.2】為菜單項單擊事件編寫程序代碼【案例6.3】完善菜單系統(tǒng)要求：在【案例6.2】的基礎上添加新的菜單項，并編寫“格式”菜單中“字體”菜單項的程序代碼?！景咐?.3】完善菜單系統(tǒng)1．打開菜單編輯器，在原有基礎上繼續(xù)添加新菜單項。新菜單項屬性參考下表標題名稱菜單級聯(lián)符號快捷鍵編輯(&E)eedit無剪切(&T)ecut....Ctrl+X復制(&C)ecopy....Ctrl+C粘貼(&P)epaste....Ctrl+V格式(&O)eformat無字體(&F)...efont....幫助(&H)ehelp無幫助主題(&H)eindex....-F3....關于編輯器(&A)eabout....【案例6.3】完善菜單系統(tǒng)2.在窗體設計器中單擊窗體“格式”菜單中的“字體”子菜單項，進入代碼窗口編寫代碼。

知識2彈出式菜單PopupMenu方法是彈出菜單的方法。其具體格式是

PopupMenu菜單名鼠標按下事件MouseDown過程的形式是：

MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

知識2彈出式菜單MouseDown過程的過程參數(shù)說明如表：參數(shù)值說明Button1按下鼠標左鍵2按下鼠標右鍵Shift0——7功能鍵（Ctrl、Alt、Shift）按下狀態(tài)X、Y鼠標當前位置坐標【案例6.4】彈出式菜單要求：在窗體上建立彈出式菜單，實現(xiàn)對文本框中文字進行字體和字號設置【案例6.4】彈出式菜單1.建立窗體界面：本窗體只有一個文本框控件。文本框控件屬性設置如表所示。控件名屬性屬性值Text1Text空MultiLineTrueScrollBars2-Vertical【案例6.4】彈出式菜單2.建立本案例要求的菜單。菜單項屬性設置如表所示。菜單標題名稱菜單級聯(lián)符號可見性字體Tfont無不可見黑體Theiti....可見隸書Tlishu....可見幼圓Tyuoyuan....可見-f1....可見10T10....可見20T20....可見30T30....可見【案例6.4】彈出式菜單3.為各菜單項編寫代碼：由于“字體”主菜單項的“可見性”為不可見，所建菜單項不能顯示在窗體上，所以不能通過單擊菜單項打開代碼窗口。可以雙擊窗體先進入代碼窗口，然后通過代碼窗口的“對象”下拉列表框選擇菜單名稱，再在對應事件過程中輸入代碼?！景咐?.4】彈出式菜單4.在“對象”下拉列表框中選擇“Form”,在代碼窗口的“事件”下拉列表框中選擇“MouseDown”事件，為窗體的鼠標按下事件編寫如下代碼。PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=2Then PopupMenuTfontEndIfEndSub【案例6.4】彈出式菜單5.運行程序結果如圖【案例6.5】文本框彈出式菜單要求：為文本框建立彈出式菜單，對文本框中的文字進行顏色的設置，如圖所示【案例6.5】文本框彈出式菜單1.單擊工具欄的菜單編輯器圖標，打開菜單編輯器，在【案例6.4】菜單基礎上繼續(xù)編輯新的菜單項。菜單項屬性如表標題名稱菜單級聯(lián)符號可見性顏色Tcolor無不可見藍色Tblue....可見紅色Tred....可見綠色Tgreen....可見-f2....可見黑色Tblack....可見【案例6.5】文本框彈出式菜單2.建立過程如圖所示?！景咐?.5】文本框彈出式菜單3.雙擊文本框控件，打開代碼窗口，在“事件”下拉列表框中選擇鼠標按下事件“MouseDown”,編寫如下代碼：PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) IfButton=1Then PopupMenuTcolor EndIfEndSub知識3工具欄設計WINDOWS系統(tǒng)工具欄如圖【案例6.6】建立工具欄要求：為窗體建立工具欄，如圖所示?！景咐?.6】建立工具欄1.添加部件：單擊“工程”菜單中的“部件”菜單項，單擊“控件”標簽，在“控件”列表中選擇“MicrosoftWindowsCommonControls6.0(sp6)”,如圖所示，單擊“確定”按鈕?！景咐?.6】建立工具欄2.在通用工具欄中添加了一些控件工具按鈕圖標如圖所示。建立工具欄使用其中的圖像列表控件(ImageList)和工具欄控件（ToolBar）?！景咐?.6】建立工具欄3.建立圖像列表：雙擊“圖像列表”工具，在窗體上建立一個圖像列表控件，如圖所示，選擇圖像列表控件，單擊鼠標右鍵打開快捷菜單，選擇“屬性”命令，打開“圖像列表屬性頁”對話框?！景咐?.6】建立工具欄4.在打開的“圖像列表屬性頁”對話框中選擇“16x16(1)”,確定工具欄圖像的大小。如圖所示?！景咐?.6】建立工具欄5．在打開的“圖像列表屬性頁”對話框中單擊“圖像”選項卡，如圖所示，為工具欄添加圖片?！景咐?.6】建立工具欄6.單擊“插入圖片”按鈕，在“C:\ProgramFiles\MicrosoftVisualStudio\Common\GRAPHICS\BITMAPS\OFFCTLBR\SMALL\COLOR”文件夾中有“BMP”格式的圖片文件。選擇“NEW.BMP”文件，單擊“打開”命令按鈕，添加一個圖片。同樣方法，再添加“OPEN.BMP”、“SAVE.BMP”、“PRINT.BMP”、“CUT.BMP”、“COPY.BMP”、“PASTE.BMP”等圖片文件。【案例6.6】建立工具欄7.添加圖片完成后的結果如圖所示。注意其中索引號應與圖片個數(shù)對應，均為“7”。單擊確定按鈕完成工具欄圖片插入?！景咐?.6】建立工具欄8.在雙擊“工具欄”工具按鈕，在窗體上添加一個空工具欄。如圖所示。

【案例6.6】建立工具欄9.鼠標右鍵單擊空工具欄，在控件菜單中選擇“屬性”，打開工具欄“屬性頁”對話框。如圖所示。在“圖像列表”下拉列表框中選擇“ImageList1”?！景咐?.6】建立工具欄10.在“屬性頁”對話框中單擊“按鈕”選項卡，單擊“插入按鈕”按鈕，此時索引文本框值從0變到1，在“工具提示文本(X)”文本框中輸入按鈕提示文字“新建”，在“圖像(G)”文本框中輸入數(shù)字1（這個數(shù)字是此工具按鈕圖標在圖像列表中對應的位置數(shù)字），結果如圖所示的“按鈕”選項卡?！景咐?.6】建立工具欄11.重復這一步驟，直到將7個工具按鈕的提示文本輸入并分別選擇對應的圖像，單擊“確定”按鈕結束。運行程序結果如圖所示?！景咐?.7】編寫程序代碼要求：在【案例6.6】基礎上。為“新建”、“打開”、“保存”工具欄編寫程序代碼。【案例6.