第八章界面設計全國高等醫(yī)藥院校藥學類規(guī)劃教材計算機程序設計(第二版)第一節(jié)常用窗體控件目錄第二節(jié)對話框控件第三節(jié)菜單設計沈陽藥科大學計算計教研室沈陽藥科大學計算計教研室第五節(jié)多窗體設計第四節(jié)工具欄設計第一節(jié)常用窗體控件8.1常用窗體控件VisualBasic由兩部分組成，分別為界面設計部分和代碼設計部分。用戶感覺程序操作起來是否友好主要取決于界面設計部分。

第一節(jié)常用窗體控件VisualBasic中控件的種類1. 標準控件(內部控件)啟動VB后，自動在工具箱中列出的20個控件。2. ActiveX控件由VB和第三方提供，可重復使用的代碼和數據。擴展名為.OCX，通常存放在系統(tǒng)根目錄下的SYSTEM子目錄中。ActiveX控件在使用之前，需先被加載到工具箱中，方法是：1) 選擇“工程/部件”菜單，對話框中包含全部已登記ActiveX控件。2) 選定所需ActiveX控件左邊的復選框。3) 單擊“確定”。該控件就添于工具箱中。3. 可插入對象指Windows應用程序對象，例如“MicrosoftExcel工作表”。第一節(jié)常用窗體控件8.1.1分組控件引例當同一個窗體上存在多組相互獨立的單選按鈕時，就需要用到分組控件。一個分組控件內的所有單選按鈕為一組，對它們的操作不會影響該分組控件以外的單選按鈕，其次每個分組控件本身就是一個容器，可以在這些分組控件上放置其它控件，如單選鈕、文本框等，這樣：第一：不同分組控件中的對象相互獨立。第二：不僅可以提供視覺上的分組而且還可以實現總體的顯示或隱藏操作。常見的分組控件有框架（Frame）、選項卡（SSTab）、圖片框（PictureBox）等。第一節(jié)常用窗體控件8.1.1.1框架(Frame)（重點）1.向框架中添加對象的方法

1）向框架中添加新對象

2）將現有對象移動到框架中（剪切、粘貼）2.重要屬性

1）Caption（一般用來說明該組控件的作用或者類別）2）Enabled（當為flase時，不允許用戶對其中的控件進行操作）3）Visible（設置該框架以及框架內的所有對象是否隱藏）第一節(jié)常用窗體控件3.事件

框架可以響應Click和DbClick事件。但幾乎沒有應用。4.應用實例通過選擇藥品和病癥，在文本框中顯示正確的信息。第一節(jié)常用窗體控件8.1.1.2SSTab(選項卡)SSTab不是標準控件，使用前需通過“工程/部件”將“MicrosoftTabbedDialogueControl6.0”添加至工具箱。1.重要屬性

1）Tabs

設置選項卡的個數，上圖中為六。2）TabsPerRow

設置每行可以顯示的選項卡個數，下圖中為二。

3）Tab

Tab為選項卡的編號，從0開始。該屬性可以

返回目前處于激活狀態(tài)的選項卡編號，也可以通過

修改該屬性的值來決定哪個選項卡被激活。第一節(jié)常用窗體控件2.事件

SSTab可以響應Click和DbClick事件。但很少用。語法格式為：

PrivateSubSSTab控件名_Click(PreviousTabAsInteger)

語句塊EndSub其中：PreviousTab參數為本次單擊前處于激活狀態(tài)的選項卡編號3.應用實例設計如圖所示的實驗動物出庫管理軟件，要求在

離開“鼠”、“兔”、“狗”選項卡（Tab編號分別為0、

1、2）進入任意其它選項卡時，即時計算合計金額。

完畢單擊“退出”結束程序。第一節(jié)常用窗體控件8.1.2列表選擇控件（重點）列表選擇控件的功能是為用戶提供一系列的候選項供用戶選擇。最常用的是列表框和組合框。第一節(jié)常常用窗體控件件8.1.2.1列表框(ListBox)ListBox通過提供多個個候選項供用用戶選擇，達達到與用戶交交互的目的。。用戶只能從從給定的候選選項中選擇，，不能添加和和修改候選項項。1.重要屬性1）Text當前被選定條條目的內容，，只能在運行行模式下設置置

或引用。。圖中List1.Text的值為“兔子子”。通過該該屬性可以以獲得用戶的的選擇結果。。2）ListIndex程序運行時被被選定條目的的序號(從零開始)，只能在運運行模式下設設置或引用。。若沒選中任任何條目，ListIndex值為-1。圖中ListIndex的值為3。通通過過該該屬屬性性可可以以知知用用戶戶選選擇擇的的是是第第幾幾項項。。第一一節(jié)節(jié)常常用用窗窗體體控控件件3）List設置置列列表表框框中中各各個個條條目目的的內內容容。。既可可在在設設計計模模式式下下設設置置，，也也可可在在運運行行模模式式下下設設置置或或引引用用。。List屬屬性性為字符符型型數數組組，，下下標標從從0開開始始。。圖圖中中第第一一項項List1.List(0)的的值值為為““小小鼠鼠””。。通過過該該屬屬性性可可以以在在運運行行模模式式下下修修改改某某個個條條目目的的內內容容。。注意意：：List1.Text和和List1.List(List1.ListIndex)兩兩種寫寫法法等價價。4）ListCount列表表框框中中項項目目的的數數量量，，只只能能在在運運行行模模式式下下引引用用。。圖中中List1.ListCount的值值為為8。最后后一一個個條條目目的的編編號號為為ListCount-1第一一節(jié)節(jié)常常用用窗窗體體控控件件5）Sorted設置置程程序序運運行行時時列列表表框框內內的的條條目目是是否否按按照照字字符符順順序序升升序序排排列列顯顯示示，，只只能能在在設設計計模模式式下下設設置置。。有有兩兩種種取取值值情情況況True（升升序序排排列列顯顯示示））和和False（按按照照添添加加的的順順序序顯顯示示））。。6）MultiSelect設置置在在一一個個列列表表框框中中能能否否同同時時選選擇擇多多個個條條目目。。有有三三種種取取值值情情況況：：0——None禁止止多多選選（（缺缺省?。?。。1——Simple簡單單多多選選。。2——Extended擴展展多多選選。。第一一節(jié)節(jié)常常用用窗窗體體控控件件7）Selected前面面講講的的List1.Text和List1.List(List1.ListIndex)都只只能能適適用用于于列列表框框不不允允許許多多選選的的情情況況，，當同同時時選選中中多多個個條條目目時時就就需需要要使使用用Selected屬性性來來獲獲得得用用戶戶的的選選擇擇結結果果。。該該屬屬性性只只能能在在運運行行模模式式下下引引用用。。該屬屬性性是是布布爾爾型型數數組組，，每每個個元元素素值值表表示示對對應應條條目目目目前前是是否否被被選選中中。。圖8-6中“兔兔子””、““豚鼠鼠”被被選定定，則則List1.Selected(3)為True，List1.Selected(4)為True，其余余的都都是False。8）SelCount當MultiSelect屬性為為1(Simple)或2(Extended)時，用用于返返回列列表框框中目目前被被選中中條目目的個個數。。9）Style(設計模模式下下)設置列列表框框的風風格。。有兩兩種取取值情情況：：0—Standard，標準準型，，(缺省)1—CheckBox，復選選框形形式，，如圖圖所示示。第一節(jié)節(jié)常常用用窗體體控件件2.常用方方法1）AddItem用于向向列表表框中中添加加新的的條目目。語法格格式為為：對象.AddItemItem[,Index]Item：：必須須是字字符串串表達達式，，是新新增條條目的的具體體內容容。Index：新新增條條目的的位置置，省省略時添到最最后。。Index=0為第第一項項。2）RemoveItem用于從從列表表框中中刪除除條目目。語法格格式為為：對象.RemoveItemIndexIndex：被刪刪除條條目的的編號號。對對于頂頂端的的第一一個條條目，，Index為03）ClearClear方法用用于清清除列列表框框中的的所有有條目目。語法格格式為為：對象.ClearRemoveItem與Clear區(qū)別：：RemoveItem只能刪刪除某某一個個條目目，而而Clear是刪除除所有有的條條目。。第一節(jié)節(jié)常常用用窗體體控件件3.事件列表框框能夠夠響應應Click和和DblClick事件件，但但很少少用。。一般般用戶通通過列列表框框和組組合框框選擇擇，完完畢單單擊某某按鈕鈕時才才根據據選擇擇結果果執(zhí)行行相應應操作作。4.應用實例設計如如圖所所示的的程序序。右側列列表框框中的的條目目按照照字符符順序序升序序排列列，左左側列列表框框中的的條目目按照照添加加的先先后順順序排排列。。當雙擊擊某個個條目目時，，該條條目從從本列列表框框中被被刪除除同時時添加加到另另一個個列表表框中中。第一節(jié)節(jié)常常用用窗體體控件件8.1.2.2組合框框(ComboBox)ComboBox(組合框框)是VB的標準準控件件，它是文文本框框和列列表框框的組組合。。1.重要屬屬性1）組合合框也也具有有Text、ListIndex、List、ListCount、Sorted等屬性性，含含義同同List控件。。但沒沒有MultiSelect、Selected、Selcount屬性。。第一節(jié)節(jié)常常用用窗體體控件件2）Style(風格，列表框框沒有)該屬性用于設設置組合框的的格式，有3種取值情況況：0-Dropdown下下拉式組合框框1-SimpleCombo簡單單組合框2-DropdownList下下拉式列表框框這三種組合框框的區(qū)別為：：①下拉式組合框框和下拉式列列表框運行時時只顯示文本本框，如左圖圖所示。而簡單組合框框同時顯示文文本框和列表表框，大小固固定，如中間所示示。②下拉式組合框框和簡單組合合框允許用戶戶在文本框中中輸入新的內內容，而下拉拉式列表框不不允許。③三種組合框都都可以響應Click事事件，只有簡簡單組合框可可以響應DblClick事件。第一節(jié)常常用窗體控件件2.應用實例編寫一個程序序實現以下功功能：必須從從給定的實驗驗類型中選擇擇一個實驗種種類，從給定定實驗動物列列表中選擇可可用的動物類類型（可以多多選），當單單擊“讀取””按鈕時將用用戶的選擇結結果輸出到窗窗體上，如圖圖所示。設計一個如下下圖所示的應應用程序。它它包含兩個列列表框和一個個文本框，當當文本框中的的信息輸入完完成以回車結結束后，其信信息以降序排排列在左邊的的列表框中，，當雙擊某個個項目時，該該項目從左邊邊的列表框中中刪除，添加加到右邊列表表框中，并以以字母順序升升序排列。練習第一節(jié)常常用窗體控件件8.1.3滾動條(ScrollBar)滾動條分為水水平滾動條和和垂直滾動條條兩種，它們們都是VB的標準控件。。除了方向不同同外，水平滾滾動條和垂直直滾動條的結結構和操作是是一樣的。兩兩端各有一個個箭頭，中間間有一個滑塊塊。如圖所示示。第一節(jié)常常用窗體控件件1.重要屬性1）Max設置當滑塊移移至水平滾動動條最右端，，或垂直滾動動條最下端時時滾動條所能能表示的極值值(范圍為-32768~32767)。2）Min設置當滑塊移移至水平滾動動條最左端，，或垂直滾動動條的最上端端時滾動條所所能表示的極極值(范圍為-32768~32767)。說明：Max既可以大于Min，也可以小于于Min。3）Value設置和返回滑滑塊在滾動條條上的位置。。注意：不能將Value的值設置在Max和Min范圍之外的值值。4）LargeChange設置單擊滾動動條上滑塊與與箭頭間位置置時，Value增加或減小的的值。5）SmallChange設置單擊滾動動條兩端的箭箭頭時，Value增加或減小的的值。第一節(jié)常常用窗體控件件2.事件例子1）Scroll只有當拖動滾滾動條上的滑滑塊時，才會會觸發(fā)Scroll事件。2）Change無論什么原因因只要改變滾滾動條的Value值值就會觸發(fā)Change事件。注意：一般為滾動條條編寫代碼時時，這兩個事事件都要編寫寫。3.應用實例設計如圖所示示的程序，實實現利用滾動動條來改變文文本框內文字字的大小。要要求水平滾動動條的屬性設設置如下：Max為60，Min為10，SmallChange為1，LargeChange為5在Form1窗體上建立一一個垂直滾動動條，其表示示的最大值為為8000，最小值為0，另外需要建建立三個標簽簽和一個文本本框。請編寫寫適當的事件件過程，在運運行時，如果果改變滾動條條中滾動框的的位置，則在在文本框中顯顯示一個高度度。當滾動框框位于滾動條條的頂端時，，文本框中顯顯示8000米；當位于底底端時顯示0米，其他位置置時，顯示其其相對于底端端的值（如圖圖所示），程程序中不可以以使用任何變變量。練習第一節(jié)常常用窗體控件件8.1.5時間日期控件件VisualBasic提供了幾種時時間日期控件件，用來進行行秒表計時、、日期選擇等等功能。常見見的有Timer控件、DateTimePicker控件等。Timer控件是VB提供的標準控控件，它可以實現指指定代碼的周周期性自動運運行。該控件在運行行時不可見。。屬性Interval屬性單位：ms(0.001s)，，0.5秒是500。。Interval＝0：：屏蔽計時器。。Enabled屬性True：有效計時False：：停止時鐘工作作事件Timer例倒計時8.1.5.1時鐘(Timer)設計一個小球球隨機碰壁反反彈的程序，，要求運用Timer控控件，并符合合物理原理。。如下圖所示示。練習第二節(jié)對對話框設計8.2對話框設計第二節(jié)對對話框設計VisualBasic中對話框的種種類1.預定義對話框框VB系統(tǒng)提供的格格式固定的對對話框，例如如InputBox輸入框、MsgBox消息框等。2.通用對話框VB提供的集打開開、另存為、、顏色、字體體、打印機、、幫助于一體體的Windows應用程序標準準格式對話框框。3.自定義對話框框自定義對話框框是VB的一個窗體，，用戶可以按按照自己的意意愿來設計其其格式和功能能。第二節(jié)對對話框設計8.2.1通用對話框通用對話框集集打開、另存存為、顏色、、字體、打印印機、幫助六六種基于Windows標準準對對話話框框于于一一體體。。CommonDialog控件件不不是是標標準準控控件件，，使使用用前前需需要要通通過過““工工程程/部件件””菜菜單單將將““MicrosoftCommonDialogControl6.0””添加加到到工工具具箱箱中中。。和Timer控件件一一樣樣，，該該控控件件運運行行時時不不可可見見。。引例例通過過通通用用對對話話框框找找到到一一個個文文件件例子子通用用對對話話框框(CommonDialogX)將通通用用對對話話框框添添加加到到工工具具箱箱的的方方法法：：右擊擊““工工具具箱箱””->““部件件””->““控件件””選選項項卡卡->選中中““MicrosoftCommonDialogControl6.0””復選選框框。。通用用對對話話框框的的作作用用:實現現人人機機交交戶戶的的另另一一途途徑徑。。一般般情情況況下下，，啟啟動動VisualBasic后，，工工具具箱箱中中是是沒沒有有通通用用對對話話框框控控件件的的，，要要后后添添加加進進去去。。通用用對對話話框框(CommonDialogX)通用對對話框框顯示示的方方法：：利用Action屬性值值CommonDialog1.Action=1或2或3或4或5或6利用方方法CommonDialog1.ShowopenCommonDialog1.ShowSaveCommonDialog1.showColorCommonDialog1.ShowFontCommonDialog1.ShowPrinterCommonDialog1.ShowHelp通用對對話框框—文件對對話框框初始化目錄(InitDir)文件名文件類型（擴展名）(Filter)對話框標題(DialogTitle)通用對對話框框—文件對對話框框文件對對話框框的重重要屬屬性：：(1)InitDir(2)Filter(3)FilterIndex(4)FileName(5)FileTitle當文件對對話框被被打開始始時，初初始目錄錄的設定定。當文件對對話框被被打開始始時，文文件列表表框中顯顯示文件件的種類類。當文件對對話框被被打開始始時，文文件類型型組合框框中默認認值的設設定。用戶在通通用對話話框選取取的文件件的不包包括路徑徑的文件件名，，如“Calc.exe””。用戶在通通用對話話框中選選取的文文件的全全路徑。?！癈:\WINNT\System32\Calc.exe”屬性賦值值示例：：CommonDialog1.InitDir=“E:\”CommonDialog1.Filter=““文本文件件|*.txt|所有文件件|*.*”CommonDialog1.FilterIndex=0i=Shell(“NotePad.exe“+CommonDialog1.FileName,1)CommonDialog1.CancelError=True(按“取消消”時報報錯)Err.Number=32755例用命令按按鈕的Click事件顯示示文件打打開對話話框CommonDialog1.InitDir=“C:\Windows””'設置初始始目錄CommonDialog1.Filter="文本文件件|*.Txt"'過濾文件件類型CommonDialog1.CancelError=True'控制取消消按鈕CommonDialog1.ShowOpen‘‘打開對話話框Label1.Caption=CommonDialog1.FileName第二節(jié)對對話話框設計計3.“另存為為(Saveas)””對話框例子“另存為為”對話話框和““打開””對話框框相似，，提供了了可以遍遍歷每個個驅動器器、文件件夾和文文件的功功能，用用戶可以以在“文文件名””處輸入入新的文文件名，，如圖所所示，并并可以返返回用戶戶的操作作結果。。用法同“打開””對話框。。第二節(jié)對對話框設設計4.“顏色”對對話框例子“顏色”對對話框提供供了讓用戶戶通過鼠標標點擊就可可以選擇相相應顏色的的功能，如如圖所示，，并返回用用戶的選擇擇結果。Color屬性是“顏色””對話框的的一個重要要屬性，通通過該屬性性可以設置置和返回對對話框中選選定的顏色色。5.“字體”對話框注意：Flags屬性：指示示所顯示的的字體類型型，必須設設置。cdlCFScreenFonts&H1屏幕字體cdlCFPrinterFonts &H2打印機字體體cdlCFBoth&H3打印機字體體和屏幕字字體。cdlCFEffects&H100顯示刪除線線和下劃線線檢查框以以及顏色組組合框FontNameFontBold、、FontItalicFontSizeFontStrikethruFontUnderlineColor注意：Flags屬性：指示示所顯示的的字體類型型，必須設置。cdlCFScreenFonts&H1屏幕字體cdlCFPrinterFonts &H2打印機字體體cdlCFBoth&H3打印機字體體和屏幕字字體。cdlCFEffects&H100顯示刪除線線和下劃線線檢查框以以及顏色組組合框(不能單獨使使用)說明：默認情況下下，打開““字體”對對話框時除除FontName外所有屬性性都有初始始值。為了了避免賦給給字體一個個空的字體體名，建議在打開開“字體””對話框前前，為FontName屬性設置一一個初始值值。例如：CommonDialog1.Flags=cdlCFBothorcdlCFEffectsCommonDialog1.FontName="宋體"CommonDialog1.ShowFont例字體對話框框的使用第二節(jié)對對話框設設計6.“打印”對對話框通過“打印印”對話框框，用戶可可以選擇打打印機、打打印范圍和和份數。重要屬性有有：1）Max屬性、Min屬性在“打印””對話框打打開之前設設置，用于于限定用戶戶可以指定定的頁面范范圍，一般般Min=1、Max=文章總頁數數。2）FromPage屬性、ToPage屬性設置和返回回打印的起起始頁碼和和終止頁碼碼。3）Copies屬性返回用戶指指定的打印印份數。第二節(jié)對對話框設設計7.通用對話框框應用實例例設計如圖所所示的應用用程序。單單擊“打開開”可以通通過“打開開”文件對對話框選擇擇一個文本本文件，并并將文件內內容顯示在在文本框Text1中。單擊““背景色””可以通過過“顏色””對話框選選擇一個顏顏色，并將將該顏色應應用于文本本框背景。。單擊“字字體”可以以通過“字字體”對話話框設置字字體格式，，并將結果果應用于文文本框中。。單擊“打打印”可以以通過“打打印”對話話框指定打打印機和打打印份數，，并將文本本框內容通通過打印機機輸出。單單擊“保存存”可以通通過“另存存為”對話話框將修改改后的文本本框內容保保存到文件件“d:\EnglishTest.txt”中。第三節(jié)菜菜單設計計8.3菜單設計第三節(jié)菜菜單設計計下拉式菜單單系統(tǒng)的組組成結構：菜單按照外外觀和位置置可以分為為下拉式菜菜單和彈出出式菜單兩兩種。常用屬性：：1.標題題(Caption)熱鍵：前面面加&2.名名稱稱(Name)文本本框框分分隔隔符符也也應應有有名名稱稱。。3.快快捷捷鍵鍵(Shortcut)菜單單名名沒沒有有快快捷捷鍵鍵4.復復選選(Checked)檢查查框框TRUE有5.有有效效(Enabled)檢查查框框、、可可見見(Visible)檢查查框框菜單列表框菜單項屬性操作按鈕第三三節(jié)節(jié)菜菜單單設設計計下拉拉菜菜單單設設計計下拉拉菜菜單單位位于于窗窗體體的的頂頂部部，，每個個菜菜單單項項包包括括分分割割線線在在內內其其實實就就是是一一個個和和命命令令按按鈕鈕類類似似的的控控件件，，擁有有自自己己的的名名稱稱(Name)、標標題題(Caption)等屬性性，支支持持相相應應的的事件件和方法法。通通過過菜菜單單編編輯輯器器來來設設計計菜菜單單。。1)執(zhí)執(zhí)行行““工工具具””菜菜單單里里的的““菜菜單單編編輯輯器器””命命令令2)在在對對象象窗窗口口空空白白處處右右擊擊，，彈彈出出的的快快捷捷菜菜單單中中選選擇擇““菜菜單單編編輯輯器器””命命令令應用用實實例例：建建立立一一個個有有菜菜單單功功能能的的文文本本編編輯輯器器。。要要求求有有三三級級菜菜單單、、熱熱鍵鍵、、快快捷捷鍵鍵、、并并能能夠夠進進行行對對齊齊格格式式的的變變化化第三節(jié)菜菜單設計計注意：（1）各個菜單單項的名稱稱必須唯一一。（2）分割線的的標題屬性性應設置為為英文減號號。（3）主菜單中中熱鍵的調調用方法是是Alt+熱鍵字符，，下拉菜單單中的熱鍵鍵調用時不不需要Alt鍵?？旖萱I鍵無需通過過主菜單打打開下拉菜菜單，就可可以直接調調用某個下下拉菜單項項。說明：菜單單項只支持持Click事件；不能能對有子菜菜單的菜單單項編程。。彈出式菜單單(快捷菜菜單)設計計設計與普通通菜單相同同（如果不希望望菜單出現現在窗口的的頂部，可將該菜單單Visible屬性設為False）。通過PopupMenu方法可以將主菜單項項（例如MenuEdit）的子菜單單以彈出的的形式顯示示出來，但但是主菜單單項本身不不顯示。[對象.]PopupMenu菜單名,標標志,x,y標志，表示示彈出的位位置和觸發(fā)發(fā)的鍵(見見教材P222表8-6)例題Subpicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuEditMenu,vbPopupMenuCenterAlignEndSub第三節(jié)菜菜單設計計下拉式菜單單和彈出式式菜單都是是在菜單編編輯器中設設計的，區(qū)區(qū)別在于下下拉式菜單單位于窗口口頂部、內內容固定，，而彈出式式菜單出現現在鼠標右右擊的位置置、內容可可以根據用用戶意圖的的不同（例例如在表格格中右擊、、在段落上上右擊、在在圖片上右右擊等）而而變化，因因此彈出式式菜單又稱稱為“智能能菜單”。。第五節(jié)多多窗窗體操作作8.4多窗體操操作前面介紹紹的VB工程都只只包含一一個窗體體，實際際應用程程序中一一般都由由多個窗窗體構成成（身份份驗證窗窗體、數數據輸入入窗體、、結果顯顯示窗體體等），，這就用用到了多多窗體的的操作。。例子第五節(jié)多多窗窗體操作作1.多窗窗體的添添加“工程|添加窗窗體”新建

現存添加“現現存”窗窗體時要要注意：：添加的窗窗體實際際是將其其它工程程中已有有的窗體體加入，，多個工工程共享享窗體，，在一個個工程中中的修改改將影響響另一個個窗體。。2.多多窗體的的保存一個工程程中有多多個窗體體，應分分別取不同文文件名保保存在磁盤上上，VBP工程文件件中記錄錄了該工工程的所所有窗體體文件名名。因因此在打打開一個個程序的的時候應應打開工工程文件件。3.設設置啟動動窗體