VB6教程第9章 高級界面設計.ppt

1、第9章 高級界面設計,本章，UQF 介紹菜單、對話框、多文檔界面、工具欄等一些與界面設計有關的知識。,退出,9.1 菜單 9.2 對話框 9.3 多重文檔界面（MDI） 9.4 文件操作控件 9.5 工具欄,9.1 菜單,在應用程序窗口中加入菜單可以使用戶方便、直觀地選擇命令和選項，讓用戶感到操作更簡單、快捷。在VB中，利用系統(tǒng)提供的工具可以非常方便地建立下拉菜單和彈出式菜單。 10.1.1 下拉菜單 在關閉狀態(tài)下，下拉菜單作為菜單欄位于窗口的標題欄下面，當單擊其中某一項時，下拉出其相應的子菜單，如圖10-1所示。,Visual Basic中的菜單通過菜單編輯器，即菜單設計窗口建立。將要建立下

2、拉菜單的窗體設為活動窗體后，可以通過4種方法進入菜單編輯器： （1）執(zhí)行“工具”菜單中的“菜單編輯器”命令。 （2）使用熱鍵Ctrl+E。 （3）單擊工具欄中的“菜單編輯器”按鈕。 （4）在要建立菜單的窗體上單擊鼠標右鍵，將彈出一個菜單，在該菜單中單擊“菜單編輯器”命令。 通過以上任一方法，均可調(diào)出菜單編輯器，如圖10-2所示。 菜單編輯器窗口分為3部分，即數(shù)據(jù)區(qū)、編輯區(qū)和菜單項顯示區(qū)。,【例10.1】菜單設計。建立一個如圖10-3所示的菜單，用戶可以通過選擇菜單中的菜單項改變文本框中內(nèi)容的外觀。,設計步驟如下。 （1）建立控件 在窗體上添加一個文本框，將它的Text屬性置為空。 （2）設計菜

3、單 在窗體設計狀態(tài)下選擇“工具”菜單下的“菜單編輯器”命令，調(diào)出菜單設計窗口。在菜單設計窗口中，按表10-1設計菜單項。,當完成所有的輸入工作后，菜單設計窗口就成為如圖10-4所示的窗口，單擊“確定”按鈕退出就完成了菜單的建立過程。,（3）把代碼連接到菜單上 在窗體窗口單擊菜單標題，然后在下拉菜單中單擊要連接代碼的菜單項，在屏幕上就會出現(xiàn)代碼窗口，并自動給出事件過程的頭尾語句。只要在頭尾語句間輸入代碼即可。,程序如下： Private Sub ct_Click() Text1.FontBold = Not Text1.FontBold End Sub Private Sub er_Click(

4、) Text1.FontSize = 20 End Sub,Private Sub ht_Click() Text1.FontName = 黑體 End Sub Private Sub lsh_Click() Text1.FontName = 隸書 End Sub Private Sub quit_Click() End End Sub,Private Sub sh_Click() Text1.FontSize = 12 End Sub Private Sub st_Click() Text1.FontName = 宋體 End Sub Private Sub xhx_Click() Text

5、1.FontUnderline = Not Text1.FontUnderline End Sub,Private Sub xt_Click() Text1.FontItalic = Not Text1.FontItalic End Sub 10.1.2 彈出式菜單 與下拉菜單不同，彈出式菜單不需要在窗口頂部下拉打開，而是通過單擊鼠標右鍵在窗體的任意位置打開，因而使用方便，具有較大的靈活性。,建立彈出式菜單通常有兩步：首先用菜單編輯器建立菜單，然后用PopupMenu方法彈出顯示。第一步的操作與前面介紹的基本相同，唯一的區(qū)別是如果不想在窗體頂部顯示該菜單，就應把菜單名（即主菜單項）的“可見”屬

6、性設置為False(子菜單項不要設置為False)。 PopupMenu方法用來顯示彈出式菜單，其格式為： 對象. PopupMenu 菜單名,Flags,x,y,BoldCommand,【例10.2】我們將例10.1中的“字形”菜單的內(nèi)容作為彈出式菜單的內(nèi)容。 我們只需在代碼窗口添加如下代碼： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then PopupMenu zx, 2 End If End Sub 運行程序，鼠標右鍵

7、單擊窗體，即可彈出“字形”菜單的菜單內(nèi)容。如果不想在窗體頂部顯示“字形”菜單，則可在窗體編輯器中將zx主菜單項的“可見”屬性設為False即可。,9.2 對話框,對話框是應用程序在執(zhí)行過程中與用戶進行交流的窗口。在VB中，可以利用系統(tǒng)提供的通用對話框，也可以根據(jù)需要自己設計對話框。,10.2.1 通用對話框 VB提供了一組基于Windows的常用的標準對話框界面，用戶可以充分利用通用對話框（Common Dialog）控件在窗體上創(chuàng)建6種標準對話框，它們分別為打開（Open）、另存為（Save As）、顏色（Color）、字體（Font）、打印機（Printer）和幫助（Help）對話框。程序

8、設計中如果所有的對話框都由設計人員來完成，將會耗費大量的時間，而利用系統(tǒng)提供的通用對話框則可以節(jié)省很大的工作量。,通用對話框不是標準控件，因此使用前需要先把通用對話框控件添加到工具箱中，操作步驟為： （1）選擇“工程”菜單中的“部件”命令打開部件對話框，如圖10-5所示。 （2）在控件標簽中選定“Microsoft Common Dialog Control 6.0”。 （3）最后選擇“確定”按鈕退出。,經(jīng)過上面的操作后，通用對話框控件就出現(xiàn)在控件工具箱中，如果需要使用上面的某種對話框，我們就可以像使用標準控件一樣把它添加到窗體中。 在設計狀態(tài)，窗體上顯示通用對話框圖標，但在程序運行時，窗體上

9、不會顯示通用對話框，直到在程序中用 Action屬性或Show方法激活而調(diào)出所需的對話框。 通用對話框僅用于應用程序與用戶之間進行的信息交互，是輸入輸出界面，不能實現(xiàn)打開文件、存儲文件、設置顏色、字體打印等操作。如果想要實現(xiàn)這些功能還得靠編程實現(xiàn)。,1通用對話框的基本屬性 （1）基本屬性 Name是通用對話框的名稱屬性，Index是由多個對話框組成的控件數(shù)組的下標。Left和Top表示通用對話框的位置。 （2）Action功能屬性 該屬性直接決定打開何種類型的對話框。 0None：無對話框顯示。 1Open：打開文件對話框。,2Save As：另存為對話框。 3Color：顏色對話框。 4Fo

10、nt：字體對話框。 5Printer：打印機對話框。 6Help：幫助對話框。 該屬性不能在屬性窗口內(nèi)設置，只能在程序中賦值，用于調(diào)出相應的對話框。,（3）DialogTitle（對話框標題）屬性 該屬性是通用對話框標題屬性，可以是任意字符串。 （4）CancelError屬性 該屬性表示用戶在與對話框進行信息交互時，按下“取消”按鈕時是否產(chǎn)生出錯信息。 True：表示按下對話框中“取消”按鈕時，便會出現(xiàn)錯誤警告。,False（缺?。罕硎景聪聦υ捒蛑械摹叭∠卑粹o時，不會出現(xiàn)錯誤警示。 對話框被打開后，有時為了防止用戶在未輸入信息時便使用取消操作，則可用該屬性設置出錯警告。當該屬性設為Tru

11、e時，用戶對對話框中的“取消”按鈕一經(jīng)操作，自動將錯誤標志Err置為32755（CDERR-CANCEL），供程序判斷。該屬性值在屬性窗口及程序中均可設置。,在通用對話框的使用過程中，除了上面的基本屬性外，每種對話框還有自己的特殊屬性。這些屬性可以在屬性窗口中進行設置，也可以在通用對話框控件的屬性對話框中設置。對窗體上的通用對話框控件單擊鼠標右鍵，在彈出的快捷菜單中選擇“屬性”即可調(diào)出通用對話框控件屬性對話框如圖（10-6所示）。該對話框中有5個標簽，可以分別對不同類型的對話框設置屬性。例如，要對字體對話框設置，就選定字體標簽。,2使用通用對話框的方法 在實際應用中，除了可以通過對通用對話框的

12、Action屬性設置明確對話框的類型外，還可以使用VB提供的一組方法來打開不同類型的通用對話框。這些方法如下。 ShowOpen：打開對話框。 ShowSave：另存為對話框。 ShowColor：顏色對話框。 ShowFont：字體對話框。 ShowPrinter：打印機對話框。 ShowHelp：幫助對話框。,如果在程序中有下面的語句： Commondialog1.ShowOpen 或 Commondialog1.Action = 1 在運行到上面的語句時，系統(tǒng)就會調(diào)出“打開”對話框。 10.2.2 “打開”對話框 在程序運行時，通用對話框的Action屬性被設置為1，就立即彈出打開文件對

13、話框（如圖10-7所示）。打開文件對話框并不能真正打開一個文件，它僅僅提供一個打開文件的用戶界面，供用戶選擇所要打開的文件，打開文件的具體工作還是要通過編程來完成。,對于“打開”文件對話框，主要有下面幾項屬性需要設置。 （1）對話框標題（DialogTitle）屬性 （2）文件名稱（FileName）屬性 （3）FileTitle（文件標題）屬性 （4）初始化路徑（InitDir）屬性 （5）過濾器（Filter）屬性 （6）標志（Flags）屬性 （7）缺省擴展名（DefaulText）屬性 （8）文件最大長度（MaxFileSize）屬性 （9）過濾器索引（FilterIndex）屬性 （

14、10）CancelError屬性,【例10.4】設計如圖10-9所示的運行界面，并為“打開”按鈕編寫打開文本文件的代碼，文本文件的內(nèi)容顯示在文本框中。,“打開”按鈕的事件過程如下： Private Sub Open_Click() Commondialog1.Action = 1 Text1.Text = Open Commondialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, inputdata Text1.Text=Text1.Text+inputdata+ vbNewLine Loop Close #1

15、End Sub,10.2.3 “另存為”對話框 “另存為”對話框是當Action為2時的通用對話框。它為用戶在存儲文件時提供了一個標準用戶界面，供用戶選擇或鍵入所要存入文件的驅動器、路徑和文件名。同樣，它并不能提供真正的存儲文件操作，儲存文件的操作需要編程來完成。 “另存為”對話框所涉及的屬性基本上和打開對話框一樣，只是還有一個DefaulText屬性，它表示所存文件的缺省擴展名。,10.2.4 顏色對話框 “顏色”對話框是當Action為3時的通用對話框，如圖10-10所示，供用戶選擇顏色。,10.2.5 “字體”對話框 “字體”對話框是當Action為4時的通用對話框，如圖10-11所示，

16、供用戶選擇字體。,對于“字體”對話框有下列重要屬性。 （1）Color屬性 （2）FontName屬性 （3）FontSize屬性 （4）FontBold、 FontItalic、 FontStrikethru 、FontUnderline屬性 （5）Min、Max屬性 （6）Flags屬性,10.2.6 “打印”對話框 “打印”對話框是當Action為5時的通用對話框，是一個標準打印對話窗口界面，如圖10-12所示。“打印”對話框并不能處理打印工作，僅僅是一個供用戶選擇打印參數(shù)的界面，所選參數(shù)存于各屬性中，再通過編程來處理打印操作。,對于“打印”對話框，除了基本屬性之外，還有下列重要屬性：

17、（1）Copies（復制份數(shù)）屬性 （2）FromPage（起始頁號）、Topage（終止頁號）屬性,10.2.7 幫助對話框 “幫助”對話框是當Action為6時的通用對話框，是一個標準的幫助窗口，可以用于制作應用程序的在線幫助?！皫椭睂υ捒虿荒苤谱鲬贸绦虻膸椭募荒軐⒁阎谱骱玫膸椭募拇疟P中提取出來，并與界面連接起來，達到顯示并檢索幫助信息的目的。 對于“幫助”對話框，除了基本屬性之外，還有下列重要屬性： （1）HelpCommand（幫助命令）屬性 （2）HelpFile（幫助文件）屬性 （3）HelpKey（幫助鍵）屬性 （4）HelpConText（幫助上下文）屬性,10.

18、2.8 “自定義”對話框 “自定義”對話框是用戶所創(chuàng)建的含有控件的窗體。這些控件包括命令按鈕、單選鈕、檢查框和文本框等，它們可以為應用程序接收信息。因此，創(chuàng)建自定義對話框就是建立一個窗體，在窗體上根據(jù)需要放置控件，通過設置屬性值來自定義窗體的外觀。用戶可以根據(jù)實際需要或自己的喜好，綜合利用系統(tǒng)提供的各種控件，設計出自己真正滿意的對話框。 一般來說，作為對話框的窗體與一般的窗體在外觀上是有所區(qū)別的，對話框沒有最大化最小化按鈕，不能改變它的大小，所以應對對話框做如表10-7所示的屬性設置。,設計好自定義的對話框后，就要考慮如何顯示對話框。顯示對話框是用Show方法，對話框分成兩種類型：模式的和無模

19、式的。,9.3 多重文檔界面（MDI）,多文檔界面允許同時打開多個文檔，每一個文檔都顯示在自己的被稱為子窗體的窗體中，如我們非常熟悉的Word 97、Excel 97等都是多文檔界面。多文檔界面由父窗體和子窗體組成。在VB中，父窗體就是MDI窗體，子窗體就是指MDIChild屬性為True的普通窗體。 1創(chuàng)建MDI窗體 用戶要建立一個MDI窗體，可以選擇“工程”菜單中的“添加MDI窗體”命令，彈出如圖10-14所示的“添加MDI窗體”對話框，選擇“MDI窗體”，再單擊“打開”按鈕。,2子窗體 MDI子窗體是一個MDIChild屬性為True的普通窗體。因此，要創(chuàng)建一個MDI子窗體，應先創(chuàng)建一個

20、新的普通窗體，然后將它的MDIChild屬性置為True。 MDI子窗體的設計與MDI窗體無關，但在運行時總是包含在MDI窗體中，當MDI窗體最小化時，所有的子窗體都被最小化。每個子窗體都有自己的圖標，但只有MDI窗體的圖標顯示在任務欄中。子窗體相互之間沒有約束關系，它們可以用不同的方式排列。,3與MDI有關的方法和事件 （1）Arrange方法 該方法用來以不同的方式排列MDI中的窗體或圖標。其格式為： .Arrange 方式：是一個整數(shù)值，用來指定MDI窗體中子窗體或圖標的排列方式。 （2）顯示MDI窗體及其子窗體的方法 顯示MDI窗體及其子窗體的方法是Show。,（3）QueryUnlo

21、ad事件 當用戶從MDI窗體的控制菜單框中選擇“關閉”命令，或者從提供的菜單項中選擇“退出”命令時，系統(tǒng)就會試圖卸載MDI窗體，此時就會觸發(fā)QueryUnload事件，然后每一個打開的子窗體也都觸發(fā)該事件。若在這些QueryLoad事件過程中沒有代碼，則取消QueryUnload事件，逐個卸載子窗體，最后，MDI窗體也被卸載。 由于QueryUnload事件在窗體卸載之前被觸發(fā)，因此在窗體卸載以前可以給用戶一個保存變動后的窗體信息的機會。,9.4 文件操作控件,為了適應在應用程序中處理文件的需要，VB提供了3種文件系統(tǒng)控件：驅動器列表框（DriveListBox）、目錄列表框（DirListB

22、ox）和文件列表框（FileListBox）。利用文件系統(tǒng)控件可以設計出用戶所喜愛的、具有不同風格的對話框，利用它們進行文件管理十分方便。,10.4.1 驅動器列表框 驅動器列表框最重要的屬性是Drive屬性，它用來設置當前驅動器，但不能在設計階段使用此屬性，必須在程序中設置或引用，格式如下： 對象.drive=drive 其中，對象是驅動器列表框的名字。當用戶單擊列表框中某一驅動器名時，該驅動器名就成為該列表框的Drive 屬性值，也就是說，Drive屬性可以用來設置當前驅動器，也可以接收并返回用戶選定的驅動器名。例如： Drive1.drive=a,10.4.2 目錄列表框 目錄列表框用于

23、顯示當前磁盤驅動器下的目錄。 目錄列表框有一個重要屬性Path（路徑）屬性，用來設置和返回當前的路徑。Path屬性也不能在設計狀態(tài)時設置。格式如下： 對象.Path=pathName 其中，對象是指目錄列表框或文件列表框。pathName是一個路徑名字符串。同驅動器列表框一樣，每次Path屬性的改變都會引發(fā)Change事件。,10.4.3 文件列表框 文件列表框列出在當前目錄下的文件名。由于文件數(shù)量多，無法在列表框中全部顯示出來，VB自動加上垂直滾動條用以瀏覽，如圖10-16所示。 文件列表框有3個重要的常用屬性：Path，Pattern，F(xiàn)ileName。,1Path屬性 用來指定當前路徑，缺省值為系統(tǒng)的當前路徑。 2Pattern屬性 該屬性用來指定在文件列表框顯示的文件類