VB教學(xué)課件第8章 界面設(shè)計【醫(yī)藥版】

1、第八章 界面設(shè)計全 國 高 等 醫(yī) 藥 院 校 藥 學(xué) 類 規(guī) 劃 教 材計算機(jī)程序設(shè)計(第二版)第一節(jié) 常用窗體控件目 錄第二節(jié) 對話框控件第三節(jié) 菜單設(shè)計沈陽藥科大學(xué)計算計教研室沈陽藥科大學(xué)計算計教研室第五節(jié) 多窗體設(shè)計第四節(jié) 工具欄設(shè)計第一節(jié) 常用窗體控件8.1 常用窗體控件 Visual Basic由兩部分組成，分別為界面設(shè)計部分和代碼設(shè)計部分。用戶感覺程序操作起來是否友好主要取決于界面設(shè)計部分。 第一節(jié) 常用窗體控件Visual Basic中控件的種類1.標(biāo)準(zhǔn)控件(內(nèi)部控件) 啟動VB后，自動在工具箱中列出的20個控件。2.ActiveX控件由VB和第三方提供，可重復(fù)使用的代碼和數(shù)據(jù)

2、。擴(kuò)展名為.OCX，通常存放在系統(tǒng)根目錄下的SYSTEM子目錄中。ActiveX控件在使用之前，需先被加載到工具箱中，方法是：1)選擇“工程/部件”菜單，對話框中包含全部已登記ActiveX控件。2)選定所需ActiveX控件左邊的復(fù)選框。3)單擊“確定”。該控件就添于工具箱中。3.可插入對象指Windows應(yīng)用程序?qū)ο?，例如“Microsoft Excel工作表”。第一節(jié) 常用窗體控件8.1.1 分組控件 引例當(dāng)同一個窗體上存在多組相互獨(dú)立的單選按鈕時，就需要用到分組控件。一個分組控件內(nèi)的所有單選按鈕為一組，對它們的操作不會影響該分組控件以外的單選按鈕，其次每個分組控件本身就是一個容器，可以

3、在這些分組控件上放置其它控件，如單選鈕、文本框等，這樣：第一：不同分組控件中的對象相互獨(dú)立。第二：不僅可以提供視覺上的分組而且還可以實(shí)現(xiàn)總體的顯示或隱藏操作。常見的分組控件有框架（Frame）、選項卡（SSTab）、圖片框（PictureBox）等。第一節(jié) 常用窗體控件8.1.1.1 框架(Frame)（重點(diǎn)）1. 向框架中添加對象的方法 1）向框架中添加新對象 2）將現(xiàn)有對象移動到框架中（剪切、粘貼）2. 重要屬性 1）Caption（一般用來說明該組控件的作用或者類別） 2）Enabled（當(dāng)為flase時，不允許用戶對其中的控件進(jìn)行操作） 3）Visible（設(shè)置該框架以及框架內(nèi)的所有對

4、象是否隱藏）第一節(jié) 常用窗體控件3. 事件 框架可以響應(yīng)Click和DbClick事件。但幾乎沒有應(yīng)用。4. 應(yīng)用實(shí)例 通過選擇藥品和病癥，在文本框中顯示正確的信息。第一節(jié) 常用窗體控件8.1.1.2 SSTab(選項卡) SSTab不是標(biāo)準(zhǔn)控件，使用前需通過“工程/部件” 將“Microsoft Tabbed Dialogue Control6.0”添加至工具箱。1. 重要屬性 1）Tabs 設(shè)置選項卡的個數(shù)，上圖中為六。 2）TabsPerRow 設(shè)置每行可以顯示的選項卡個數(shù)，下圖中為二。 3）Tab Tab為選項卡的編號，從0開始。該屬性可以返回目前處于激活狀態(tài)的選項卡編號，也可以通過修

5、改該屬性的值來決定哪個選項卡被激活。第一節(jié) 常用窗體控件2. 事件 SSTab可以響應(yīng)Click和DbClick事件。但很少用。語法格式為： Private Sub SSTab控件名_Click(PreviousTab As Integer) 語句塊 End Sub 其中：PreviousTab參數(shù)為本次單擊前處于激活狀態(tài)的選項卡編號3. 應(yīng)用實(shí)例 設(shè)計如圖所示的實(shí)驗動物出庫管理軟件，要求在離開“鼠”、“兔”、“狗”選項卡（Tab編號分別為0、1、2）進(jìn)入任意其它選項卡時，即時計算合計金額。完畢單擊“退出”結(jié)束程序。第一節(jié) 常用窗體控件8.1.2 列表選擇控件（重點(diǎn)）列表選擇控件的功能是為用戶

6、提供一系列的候選項供用戶選擇。最常用的是列表框和組合框。第一節(jié) 常用窗體控件8.1.2.1 列表框(ListBox) ListBox通過提供多個候選項供用戶選擇，達(dá)到與用戶交互的目的。用戶只能從給定的候選項中選擇，不能添加和修改候選項。1.重要屬性 1）Text 當(dāng)前被選定條目的內(nèi)容，只能在運(yùn)行模式下設(shè)置或引用。圖中List1.Text的值為“兔子”。通過該屬性可以獲得用戶的選擇結(jié)果。 2）ListIndex 程序運(yùn)行時被選定條目的序號(從零開始) ，只能在運(yùn)行模式下設(shè)置或引用。若沒選中任何條目，ListIndex值為-1。圖中ListIndex的值為3。通過該屬性可以知用戶選擇的是第幾項。第

7、一節(jié) 常用窗體控件 3）List 設(shè)置列表框中各個條目的內(nèi)容。既可在設(shè)計模式下設(shè)置，也可在運(yùn)行模式下設(shè)置或引用。 List屬性為字符型數(shù)組，下標(biāo)從0開始。圖中第一項List1.List(0)的值為“小鼠” 。 通過該屬性可以在運(yùn)行模式下修改某個條目的內(nèi)容。 注意： List1.Text和List1.List(List1.ListIndex) 兩種寫法等價。 4）ListCount 列表框中項目的數(shù)量，只能在運(yùn)行模式下引用。 圖中List1.ListCount的值為8。 最后一個條目的編號為ListCount-1第一節(jié) 常用窗體控件 5）Sorted 設(shè)置程序運(yùn)行時列表框內(nèi)的條目是否按照字符順序

8、升序排列顯示，只能在設(shè)計模式下設(shè)置。有兩種取值情況True（升序排列顯示）和False（按照添加的順序顯示）。 6）MultiSelect 設(shè)置在一個列表框中能否同時選擇多個條目。有三種取值情況： 0None 禁止多選（缺?。?。 1Simple 簡單多選。 2Extended 擴(kuò)展多選。第一節(jié) 常用窗體控件 7）Selected 前面講的List1.Text和List1.List(List1.ListIndex)都只能適用于列 表框不允許多選的情況，當(dāng)同時選中多個條目時就需要使用Selected屬性來獲得用戶的選擇結(jié)果。該屬性只能在運(yùn)行模式下引用。 該屬性是布爾型數(shù)組，每個元素值表示對應(yīng)條目目

9、前是否被選中。 圖8-6中“兔子”、“豚鼠”被選定，則List1.Selected(3)為True， List1.Selected(4)為True，其余的都是False。 8）SelCount 當(dāng)MultiSelect屬性為1(Simple)或2(Extended)時，用于返回列表框中目前被選中條目的個數(shù)。 9） Style (設(shè)計模式下)設(shè)置列表框的風(fēng)格。有兩種取值情況： 0Standard，標(biāo)準(zhǔn)型，(缺省) 1CheckBox，復(fù)選框形式，如圖所示。第一節(jié) 常用窗體控件2. 常用方法 1）AddItem 用于向列表框中添加新的條目。語法格式為：對象.AddItem Item ,Index

10、Item：必須是字符串表達(dá)式，是新增條目的具體內(nèi)容。 Index：新增條目的位置，省略時添到最后。Index=0為第一項。 2）RemoveItem 用于從列表框中刪除條目。語法格式為：對象.RemoveItem Index Index：被刪除條目的編號。對于頂端的第一個條目，Index為0 3） Clear Clear方法用于清除列表框中的所有條目。語法格式為：對象.Clear RemoveItem與Clear區(qū)別： RemoveItem只能刪除某一個條目，而 Clear是刪除所有的條目。第一節(jié) 常用窗體控件3. 事件 列表框能夠響應(yīng)Click和DblClick事件，但很少用。一般用戶通過列

11、表框和組合框選擇，完畢單擊某按鈕時才根據(jù)選擇結(jié)果執(zhí)行相應(yīng)操作。4. 應(yīng)用實(shí)例 設(shè)計如圖所示的程序。右側(cè)列表框中的條目按照字符順序升序排列，左側(cè)列表框中的條目按照添加的先后順序排列。當(dāng)雙擊某個條目時，該條目從本列表框中被刪除同時添加到另一個列表框中。第一節(jié) 常用窗體控件8.1.2.2 組合框(ComboBox ) ComboBox(組合框)是VB的標(biāo)準(zhǔn)控件，它是文本框和列表框的組合。1.重要屬性 1）組合框也具有Text、ListIndex、List、ListCount、Sorted等屬性，含義同List控件。但沒有MultiSelect、Selected、Selcount屬性。 第一節(jié) 常用窗

12、體控件 2）Style(風(fēng)格，列表框沒有) 該屬性用于設(shè)置組合框的格式，有3種取值情況： 0-Dropdown下拉式組合框 1-Simple Combo簡單組合框 2-Dropdown List下拉式列表框 這三種組合框的區(qū)別為： 下拉式組合框和下拉式列表框運(yùn)行時只顯示文本框，如左圖所示。而簡單組合框同時顯示文本框和列表框，大小固定，如中間所示。 下拉式組合框和簡單組合框允許用戶在文本框中輸入新的內(nèi)容，而下拉式列表框不允許。 三種組合框都可以響應(yīng)Click事件，只有簡單組合框可以響應(yīng)DblClick事件。第一節(jié) 常用窗體控件2. 應(yīng)用實(shí)例 編寫一個程序?qū)崿F(xiàn)以下功能：必須從給定的實(shí)驗類型中選擇一

13、個實(shí)驗種類，從給定實(shí)驗動物列表中選擇可用的動物類型（可以多選），當(dāng)單擊“讀取”按鈕時將用戶的選擇結(jié)果輸出到窗體上，如圖所示。 設(shè)計一個如下圖所示的應(yīng)用程序。它包含兩個列表框和一個文本框，當(dāng)文本框中的信息輸入完成以回車結(jié)束后，其信息以降序排列在左邊的列表框中，當(dāng)雙擊某個項目時，該項目從左邊的列表框中刪除，添加到右邊列表框中，并以字母順序升序排列。練習(xí)第一節(jié) 常用窗體控件8.1.3 滾動條(ScrollBar) 滾動條分為水平滾動條和垂直滾動條兩種，它們都是VB的標(biāo)準(zhǔn)控件。除了方向不同外，水平滾動條和垂直滾動條的結(jié)構(gòu)和操作是一樣的。兩端各有一個箭頭，中間有一個滑塊。如圖所示。第一節(jié) 常用窗體控件1

14、.重要屬性 1） Max 設(shè)置當(dāng)滑塊移至水平滾動條最右端，或垂直滾動條最下端時滾動條所能表示的極值 (范圍為-3276832767) 。 2）Min 設(shè)置當(dāng)滑塊移至水平滾動條最左端，或垂直滾動條的最上端時滾動條所能表示的極值 (范圍為-3276832767) 。 說明：Max既可以大于Min，也可以小于Min。 3）Value 設(shè)置和返回滑塊在滾動條上的位置。 注意：不能將Value的值設(shè)置在Max和Min范圍之外的值。 4）LargeChange 設(shè)置單擊滾動條上滑塊與箭頭間位置時，Value增加或減小的值。 5）SmallChange 設(shè)置單擊滾動條兩端的箭頭時，Value增加或減小的值。

15、 第一節(jié) 常用窗體控件2. 事件 例子 1）Scroll 只有當(dāng)拖動滾動條上的滑塊時，才會觸發(fā)Scroll事件。 2）Change 無論什么原因只要改變滾動條的Value值就會觸發(fā)Change事件。 注意：一般為滾動條編寫代碼時，這兩個事件都要編寫。3. 應(yīng)用實(shí)例 設(shè)計如圖所示的程序，實(shí)現(xiàn)利用滾動條來改變文本框內(nèi)文字的大小。要求水平滾動條的屬性設(shè)置如下：Max為60，Min為10，SmallChange為1，LargeChange為5 在Form1窗體上建立一個垂直滾動條，其表示的最大值為8000，最小值為0，另外需要建立三個標(biāo)簽和一個文本框。請編寫適當(dāng)?shù)氖录^程，在運(yùn)行時，如果改變滾動條中滾

16、動框的位置，則在文本框中顯示一個高度。當(dāng)滾動框位于滾動條的頂端時，文本框中顯示8000米；當(dāng)位于底端時顯示0米，其他位置時，顯示其相對于底端的值（如圖所示），程序中不可以使用任何變量。練習(xí)第一節(jié) 常用窗體控件8.1.5 時間日期控件 Visual Basic提供了幾種時間日期控件，用來進(jìn)行秒表計時、日期選擇等功能。常見的有Timer控件、DateTimePicker控件等。Timer控件是VB提供的標(biāo)準(zhǔn)控件，它可以實(shí)現(xiàn)指定代碼的周期性自動運(yùn)行。該控件在運(yùn)行時不可見。屬性 Interval屬性 單位：ms(0.001s)，0.5秒是500。 Interval0：屏蔽計時器。Enabled屬性 T

17、rue：有效計時 False：停止時鐘工作事件Timer例 倒計時8.1.5.1 時鐘(Timer)設(shè)計一個小球隨機(jī)碰壁反彈的程序，要求運(yùn)用Timer控件，并符合物理原理。如下圖所示。練習(xí)第二節(jié) 對話框設(shè)計8.2 對話框設(shè)計第二節(jié) 對話框設(shè)計Visual Basic中對話框的種類1.預(yù)定義對話框VB系統(tǒng)提供的格式固定的對話框，例如InputBox輸入框、MsgBox消息框等。2.通用對話框VB提供的集打開、另存為、顏色、字體、打印機(jī)、幫助于一體的Windows應(yīng)用程序標(biāo)準(zhǔn)格式對話框。3.自定義對話框自定義對話框是VB的一個窗體，用戶可以按照自己的意愿來設(shè)計其格式和功能。第二節(jié) 對話框設(shè)計8.2

18、.1 通用對話框 通用對話框集打開、另存為、顏色、字體、打印機(jī)、幫助六種基于Windows標(biāo)準(zhǔn)對話框于一體。CommonDialog控件不是標(biāo)準(zhǔn)控件，使用前需要通過“工程/部件”菜單將“Microsoft Common Dialog Control6.0”添加到工具箱中。和Timer控件一樣，該控件運(yùn)行時不可見。引例通過通用對話框找到一個文件 例子通用對話框(CommonDialogX)將通用對話框添加到工具箱的方法： 右擊“工具箱”-“部件”-“控件”選項卡-選中“Microsoft Common Dialog Control 6.0”復(fù)選框。通用對話框的作用: 實(shí)現(xiàn)人機(jī)交戶的另一途徑。一般

19、情況下，啟動Visual Basic后，工具箱中是沒有通用對話框控件的，要后添加進(jìn)去。通用對話框(CommonDialogX)通用對話框顯示的方法：利用Action屬性值 CommonDialog1.Action = 1或2或3或4或5或6利用方法 CommonDialog1.Showopen CommonDialog1.ShowSave CommonDialog1.showColor CommonDialog1.ShowFont CommonDialog1.ShowPrinter CommonDialog1.ShowHelp通用對話框文件對話框初始化目錄(InitDir)文件名文件類型（擴(kuò)展

20、名）(Filter)對話框標(biāo)題(DialogTitle)通用對話框文件對話框 文件對話框的重要屬性：(1)InitDir(2)Filter(3)FilterIndex(4)FileName(5)FileTitle當(dāng)文件對話框被打開始時，初始目錄的設(shè)定。當(dāng)文件對話框被打開始時，文件列表框中顯示文件的種類。當(dāng)文件對話框被打開始時，文件類型組合框中默認(rèn)值的設(shè)定。用戶在通用對話框選取的文件的不包括路徑的文件名 ，如“Calc.exe ”。用戶在通用對話框中選取的文件的全路徑。“C:WINNTSystem32Calc.exe” 屬性賦值示例： CommonDialog1.InitDir=“E:” Com

21、monDialog1.Filter=“文本文件|*.txt|所有文件|*.*” CommonDialog1.FilterIndex=0 i = Shell(“NotePad.exe “+CommonDialog1.FileName,1) CommonDialog1.CancelError = True(按“取消”時報錯) Err.Number = 32755例 用命令按鈕的Click事件顯示文件打開對話框 CommonDialog1.InitDir=“C:Windows” 設(shè)置初始目錄CommonDialog1.Filter = 文本文件 | *.Txt 過濾文件類型 CommonDialog

22、1.CancelError = True 控制取消按鈕 CommonDialog1. ShowOpen 打開對話框 Label1.Caption = CommonDialog1.FileName第二節(jié) 對話框設(shè)計3. “另存為(Save as)”對話框 例子“另存為”對話框和“打開”對話框相似，提供了可以遍歷每個驅(qū)動器、文件夾和文件的功能，用戶可以在“文件名”處輸入新的文件名，如圖所示，并可以返回用戶的操作結(jié)果。用法同“打開”對話框。第二節(jié) 對話框設(shè)計4. “顏色”對話框 例子“顏色”對話框提供了讓用戶通過鼠標(biāo)點(diǎn)擊就可以選擇相應(yīng)顏色的功能，如圖所示，并返回用戶的選擇結(jié)果。Color屬性是“顏色

23、”對話框的一個重要屬性，通過該屬性可以設(shè)置和返回對話框中選定的顏色。5. “字體”對話框注意：Flags屬性：指示所顯示的字體類型，必須設(shè)置。cdlCFScreenFonts&H1屏幕字體cdlCFPrinterFonts&H2打印機(jī)字體cdlCFBoth &H3打印機(jī)字體和屏幕字體。cdlCFEffects&H100顯示刪除線和下劃線檢查框以及顏色組合框 FontName FontBold、FontItalicFontSizeFontStrikethruFontUnderline Color注意：Flags屬性：指示所顯示的字體類型，必須設(shè)置。cdlCFScreenFonts&H1屏幕字體c

24、dlCFPrinterFonts&H2打印機(jī)字體cdlCFBoth &H3打印機(jī)字體和屏幕字體。cdlCFEffects&H100顯示刪除線和下劃線檢查框以及顏色組合框(不能單獨(dú)使用)說明：默認(rèn)情況下，打開“字體”對話框時除FontName外所有屬性都有初始值。為了避免賦給字體一個空的字體名，建議在打開“字體”對話框前，為FontName屬性設(shè)置一個初始值。例如： CommonDialog1.Flags = cdlCFBoth or cdlCFEffects CommonDialog1.FontName = 宋體 CommonDialog1.ShowFont 例字體對話框的使用第二節(jié) 對話框設(shè)

25、計6. “打印”對話框通過“打印”對話框，用戶可以選擇打印機(jī)、打印范圍和份數(shù)。重要屬性有：1）Max屬性、Min屬性 在“打印”對話框打開之前設(shè)置，用于限定用戶可以指定的頁面范圍，一般Min=1、Max=文章總頁數(shù)。 2）FromPage屬性、ToPage屬性 設(shè)置和返回打印的起始頁碼和終止頁碼。3）Copies屬性返回用戶指定的打印份數(shù)。第二節(jié) 對話框設(shè)計7. 通用對話框應(yīng)用實(shí)例設(shè)計如圖所示的應(yīng)用程序。單擊“打開”可以通過“打開”文件對話框選擇一個文本文件，并將文件內(nèi)容顯示在文本框Text1中。單擊“背景色”可以通過“顏色”對話框選擇一個顏色，并將該顏色應(yīng)用于文本框背景。單擊“字體”可以通過

26、“字體”對話框設(shè)置字體格式，并將結(jié)果應(yīng)用于文本框中。單擊“打印”可以通過“打印”對話框指定打印機(jī)和打印份數(shù)，并將文本框內(nèi)容通過打印機(jī)輸出。單擊“保存”可以通過“另存為”對話框?qū)⑿薷暮蟮奈谋究騼?nèi)容保存到文件“d:EnglishTest.txt”中。第三節(jié) 菜單設(shè)計8.3 菜單設(shè)計第三節(jié) 菜單設(shè)計下拉式菜單系統(tǒng)的組成結(jié)構(gòu) ： 菜單按照外觀和位置可以分為下拉式菜單和彈出式菜單兩種。常用屬性：1. 標(biāo)題(Caption) 熱鍵：前面加&2. 名稱(Name)文本框 分隔符也應(yīng)有名稱。3. 快捷鍵(Shortcut) 菜單名沒有快捷鍵4. 復(fù)選(Checked)檢查框 TRUE 有5. 有效(Enabl

27、ed)檢查框、可見(Visible)檢查框菜單列表框菜單項屬性 操作按鈕第三節(jié) 菜單設(shè)計下拉菜單設(shè)計下拉菜單位于窗體的頂部，每個菜單項包括分割線在內(nèi)其實(shí)就是一個和命令按鈕類似的控件，擁有自己的名稱(Name)、標(biāo)題(Caption)等屬性，支持相應(yīng)的事件和方法。通過菜單編輯器來設(shè)計菜單。1) 執(zhí)行“工具”菜單里的“菜單編輯器”命令2) 在對象窗口空白處右擊，彈出的快捷菜單中選擇“菜單編輯器”命令應(yīng)用實(shí)例：建立一個有菜單功能的文本編輯器。要求有三級菜單、熱鍵、快捷鍵、并能夠進(jìn)行對齊格式的變化第三節(jié) 菜單設(shè)計注意：（1）各個菜單項的名稱必須唯一。（2）分割線的標(biāo)題屬性應(yīng)設(shè)置為英文減號。（3）主菜單

28、中熱鍵的調(diào)用方法是Alt+熱鍵字符，下拉菜單中的熱鍵調(diào)用時不需要Alt鍵。快捷鍵無需通過主菜單打開下拉菜單，就可以直接調(diào)用某個下拉菜單項。 說明：菜單項只支持Click事件；不能對有子菜單的菜單項編程。 彈出式菜單(快捷菜單)設(shè)計 設(shè)計與普通菜單相同（如果不希望菜單出現(xiàn)在窗口的頂部，可將該菜單Visible屬性設(shè)為False）。通過PopupMenu方法可以將主菜單項（例如MenuEdit）的子菜單以彈出的形式顯示出來，但是主菜單項本身不顯示。對象.PopupMenu 菜單名, 標(biāo)志, x, y標(biāo)志，表示彈出的位置和觸發(fā)的鍵(見教材P222 表8-6) 例題Sub picture1_Mouse

29、Down(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu EditMenu, vbPopupMenuCenterAlignEnd Sub第三節(jié) 菜單設(shè)計 下拉式菜單和彈出式菜單都是在菜單編輯器中設(shè)計的，區(qū)別在于下拉式菜單位于窗口頂部、內(nèi)容固定，而彈出式菜單出現(xiàn)在鼠標(biāo)右擊的位置、內(nèi)容可以根據(jù)用戶意圖的不同（例如在表格中右擊、在段落上右擊、在圖片上右擊等）而變化，因此彈出式菜單又稱為“智能菜單”。第五節(jié) 多窗體操作8.4 多窗體操作 前面介紹的VB工程都只包含一個窗體，實(shí)際應(yīng)用程序中一般都由多個窗體構(gòu)成（身份驗證窗體、數(shù)據(jù)輸入窗體、結(jié)果顯示窗體等），這就用到了多窗體的操作。例子第五節(jié) 多窗體操作1.多窗體的添加 “工程|添加窗體”新建 現(xiàn)存 添加“現(xiàn)存”窗體時要注意： 添加的窗體實(shí)際是將其它工程中已有的窗體加入，多個工程共享窗體，在一