第9章 界面設計(91-92)

1、VB程序設計程序設計2第第9 9章章 界面設計界面設計9.1 通用對話框通用對話框9.2 菜單設計菜單設計9.3 多文檔界面（自學）多文檔界面（自學）9.4 工具欄和狀態(tài)欄（自學）工具欄和狀態(tài)欄（自學）39.1 通用對話框通用對話框ActiveX控件；控件；提供了提供了6種標準對話框。種標準對話框。(1) “工程工程”+“部件部件”，引導出，引導出“部件部件”對話框；對話框；(2) 在控件選項卡中選擇在控件選項卡中選擇“Microsoft Common Dialog Control 6.0”左側的復選框，然后單擊左側的復選框，然后單擊“確定確定”。4“打開打開”對話框對話框“另存為另存為”對話

2、框對話框“顏色顏色”對話框對話框“字體字體”對話框對話框“打印機打印機”對話框對話框5Action(功能功能)屬性屬性: 0None：無對話框顯示：無對話框顯示 1Open：顯示：顯示“打開打開”對話框對話框 2Save As：顯示：顯示“另存為另存為”對話框對話框 3Color：顯示：顯示“顏色顏色”對話框對話框 4Font：顯示：顯示“字體字體”對話框對話框 5Printer：顯示：顯示“打印機打印機”對話框對話框 6Help：顯示：顯示“幫助幫助”對話框對話框 該屬性只能在該屬性只能在程序中設置程序中設置ShowOpenShowSaveShowColorShowFontShowPrint

3、erShowHelp對應的方法：對應的方法：6 例如：使用通用對話框對應的例如：使用通用對話框對應的顏色顏色對話對話框設置文本框的前景色，代碼如下：框設置文本框的前景色，代碼如下： CommonDialog1.Action = 3CommonDialog1.Action = 3 Text1.ForeColor=CommonDialog1. Text1.ForeColor=CommonDialog1.ColorColor end of 9.1end of 9.19.1 9.1 通用對話框通用對話框79.2 菜單設計菜單設計菜單以菜單以的形式組織多個命令或操作；的形式組織多個命令或操作；為操作提供

4、便捷的手段；為操作提供便捷的手段；菜單分為兩種：菜單分為兩種：下拉式菜單下拉式菜單彈出式菜單彈出式菜單菜單也是一個控件對菜單也是一個控件對象，稱菜單控件，只象，稱菜單控件，只響應響應Click事件。事件。89.2.1 下拉式菜單下拉式菜單9.2.1.1 下拉式菜單的基本組成下拉式菜單的基本組成9(1)窗體上單擊右鍵快顯菜單菜單編輯器窗體上單擊右鍵快顯菜單菜單編輯器(2)工具菜單編輯器工具菜單編輯器 (3)工具欄工具欄 菜單菜單9.2.1 下拉式菜單下拉式菜單9.2.1.2 菜單編輯器菜單編輯器創(chuàng)建菜單的工具創(chuàng)建菜單的工具1011標題為：文件標題為：文件(&F)，表示，表示F是是字母，字

5、母， 用用“ALT+F”可選擇該菜單?？蛇x擇該菜單。12 在設計時，為將菜單分成若干組，在設計時，為將菜單分成若干組，可使用分隔條：可使用分隔條：“標題標題”文本框：文本框：“-”；“名稱名稱”文本框：不能空白！文本框：不能空白！13例例9-2：建立一個菜單，能做簡單的加、：建立一個菜單，能做簡單的加、減、乘、除以及清除工作。每一個命令都減、乘、除以及清除工作。每一個命令都有快捷鍵。有快捷鍵。步驟：步驟：1.建立控件建立控件2.設計菜單設計菜單3.代碼設計代碼設計14 利用菜單編輯器所創(chuàng)建的菜單是固定利用菜單編輯器所創(chuàng)建的菜單是固定的，菜單項不能自動增減。的，菜單項不能自動增減。 要實現(xiàn)自動增

6、減，可利用要實現(xiàn)自動增減，可利用菜單項數(shù)組菜單項數(shù)組，并結合并結合Load和和Unload語句。語句。菜單編輯器中菜單編輯器中屬性要設置！屬性要設置！159.2.2 彈出式菜單彈出式菜單169.2.2 9.2.2 彈出式菜單彈出式菜單( (快顯菜單快顯菜單) )方法方法: :先用先用VBVB菜單編輯器設計，再用菜單編輯器設計，再用 PopupMenuPopupMenu方法彈出方法彈出179.2.2 9.2.2 彈出式菜單彈出式菜單( (快顯菜單快顯菜單) )標志：標志：0 0：彈出式菜單項僅識別鼠標左鍵：彈出式菜單項僅識別鼠標左鍵 對菜單項的選擇。對菜單項的選擇。 2 2：彈出式菜單項識別鼠標左鍵和：彈出式菜單項識別鼠標左鍵和 右鍵對菜單項的選擇；右鍵對菜單項的選擇； 方法只能用在方法只能用在MouseDownMouseDown事件過程事件過程。189.2.2 9.2.2 彈出式菜單彈出式菜單( (快顯菜單快顯菜單) )19Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then 單擊右鍵單擊右鍵 PopupMenu mnuMulDiv , 2 End IfEnd Sub 9.2.2 9.2.2 彈出式菜