常用控件及界面設(shè)計實用教案

1、1/ 59教學(xué)要求教學(xué)要求掌握窗體的常用屬性、事件(shjin)和方法一掌握常用控件的常用屬性、事件(shjin)和方法二掌握制作(zhzu)菜單的使用方法 三掌握多窗體界面設(shè)計方法四第1頁/共59頁第一頁，共60頁。22.1 2.1 窗體和常用窗體和常用(chn (chn yn)yn)控件控件第2頁/共59頁第二頁，共60頁。3/ 592.1.1 2.1.1 窗體窗體（1）Name名稱屬性 窗體名稱。該屬性是每個對象都必不可少的屬性。每當(dāng)(mi dn)創(chuàng)建一個對象，VB都會自動提供一個默認(rèn)名稱，用戶可以在“屬性”窗口的“名稱”欄進(jìn)行修改。Name屬性在程序代碼中被作為對象的標(biāo)識名，而不會顯示

2、在窗體上。 規(guī)則：對象名稱必須以字母或漢字開頭，由字母、漢字、數(shù)字組成，長度不超過255個字符，其中可以出現(xiàn)下劃線(但最好不用，以免與代碼中的續(xù)行符相混)。 （2）Caption標(biāo)題屬性決定窗體標(biāo)題欄顯示的內(nèi)容。1. 主要(zhyo)屬性：第3頁/共59頁第三頁，共60頁。4/ 59 Left Top HeigWidth （3）Height、Width、Top和Left屬性(shxng)1twip=1/567cm第4頁/共59頁第四頁，共60頁。5/ 591. 主要主要(zhyo)屬性：屬性：（4）Forecolor、Backcolor顏色屬性 設(shè)置窗體的前景、背景顏色（即正文顏色)。 其值是

3、一個十六進(jìn)制(sh li jn zh)常數(shù)，用戶可以在調(diào)色板中直接選擇所需顏色。（5）Enabled屬性 控件是否可操作。當(dāng)設(shè)置為False時，呈灰色，禁止用戶進(jìn)行操作。（6）Visible屬性 控件是否可見。當(dāng)設(shè)置為False，程序運(yùn)行時控件不可見，但控件存在著。第5頁/共59頁第五頁，共60頁。6/ 597、BorderStyle邊框邊框(binkung)風(fēng)格屬性風(fēng)格屬性雙線外框，運(yùn)行時窗口大小不可改變vbFixedDouble3（缺省值）雙線外框，運(yùn)行時可改變窗口大小vbSizable2單線外框，運(yùn)行時窗口大小不可改變vbFixedSingle1窗口無外框vbBSNone0設(shè)定值常 量風(fēng)

4、 格包含一個“關(guān)閉”按鈕，標(biāo)題欄字體縮小，窗口大小不可改變vbFixedToolWindow4包含一個“關(guān)閉”按鈕，標(biāo)題欄字體縮小，窗口大小可以改變vbSizabeToolWindow5窗體邊框風(fēng)格第6頁/共59頁第六頁，共60頁。7/ 59（8）Font屬性 Fontname：字體；Fontsize：字體大?。籉ontbold：是否是粗體；Fontitalic：是否斜體；Fontstrikethru：是否加一刪除(shnch)線。 Fontunderline：是否帶下劃線。 （9）Picture屬性 該屬性用于設(shè)置窗體中要顯示的圖片。第7頁/共59頁第七頁，共60頁。8/ 592. 方法方法

5、(fngf)移動對象。是對象移動，同時也可以改變對象的尺寸。用法：對象名.Move 左邊距,上邊距,寬度,高度 Move 打印方法。在窗體上顯示文字，也可以在打印機(jī)上輸出。用法：對象名.Print 表達(dá)式列表1；|， 表達(dá)式列表2；|， Print 顯示對象。用法：對象名.Show Show 隱藏對象。用法：對象名.Hide Hide 方法名描 述窗體常用的方法 清除由其他方法在窗體中顯示的文本和圖形，用法：對象名.Cls Cls 刷新對象。用法：對象名.Refresh Refresh 第8頁/共59頁第八頁，共60頁。9/ 59Print方法的作用：在對象上輸出信息。格式：對象名.Print

6、 表達(dá)式列表1；|， 表達(dá)式列表2；|，其中：“對象名”可以是窗體（Form）、圖形框（PictureBox）或打印機(jī)（Printer）。若省略了對象則在窗體上輸出。表達(dá)式列表：要輸出的數(shù)值或字符串表達(dá)式，若省略，則輸出一個空行，多個表達(dá)式之間用空格、逗號、分號分隔(fng)，也可出現(xiàn)Spc 和Tab函數(shù)。；（分號）：表示光標(biāo)定位在上一個顯示的字符后，（逗號）：表示光標(biāo)定位在下一個打印去開始位置處，打印區(qū)每隔14行開始。無“；”或“，”表示輸出后換行。Print方法(fngf)第9頁/共59頁第九頁，共60頁。10/ 59例2.1：設(shè)窗體對象名為frm1，執(zhí)行下列語句(yj)后的運(yùn)行結(jié)果如下圖

7、所示：Private Sub Form_Click() Frm1.Print abcde Frm1.Print 53, 5 3 Frm1.Print 23+5; 23 + 5 Frm1.Print Frm1.Print Visual & BasicEnd SubPrint方法(fngf)第10頁/共59頁第十頁，共60頁。11/ 593. 事件事件(shjin)裝載事件。窗體裝入時觸發(fā)此事件 Load 雙擊事件 DblClick 初始化事件 Initialize 單擊事件 Click 事件名描 述窗體常用的事件 在窗體被改變大小時觸發(fā)本事件 Resize 卸載事件。如果關(guān)閉窗體，觸發(fā)U

8、nload事件 Unload 失去激活事件，當(dāng)窗體失去激活狀態(tài)，即另一個窗體變?yōu)楫?dāng)前活動窗體時觸發(fā)本事件Deactivate 激活事件，當(dāng)窗體變?yōu)楫?dāng)前活動窗體時觸發(fā)本事件 Activate 第11頁/共59頁第十一頁，共60頁。12/ 59裝載窗體和Load事件 使用裝載語句可把窗體(或其他對象)載入內(nèi)存，但并不顯示它，會引發(fā)Load事件。格式： Load Object 其中Object 是對象名。由于VB程序在執(zhí)行(zhxng)時會自動裝載窗體，所以沒有必要對窗體使用Load 語句。 卸載窗體與Unload事件 使用卸載語句可把窗體(或其他對象(duxing)從內(nèi)存卸載。格式： Unload

9、 Object 卸載將使該對象(duxing)的所有屬性重新恢復(fù)為設(shè)計時設(shè)定的初始值，卸載還將引發(fā)對象(duxing)的Unload事件。如果卸載的對象(duxing)是程序唯一的窗體，則將終止程序的運(yùn)行?！纠?-2】窗體事件(shjin)第12頁/共59頁第十二頁，共60頁。13/ 59End語句 在Windows下，用戶可通過使用菜單中的“關(guān)閉”命令或單擊應(yīng)用程序窗口上的“關(guān)閉”按紐來關(guān)閉窗口，并結(jié)束程序的運(yùn)行。但當(dāng)希望(xwng)是由程序來控制其結(jié)束，而不是由用戶的操作來控制時，在程序代碼中可使用End語句，格式如下： End 執(zhí)行該語句將終止應(yīng)用程序的執(zhí)行，并從內(nèi)存卸載所有窗體。思考：

10、在程序中使用End語句(yj)和Unload語句(yj)有什么異同之處？第13頁/共59頁第十三頁，共60頁。14/ 594設(shè)置對象設(shè)置對象(duxing)屬性的方法屬性的方法 有兩種設(shè)置對象屬性的方法。一是在設(shè)計態(tài)通過屬性窗口為其設(shè)定各種屬性值；一是在程序代碼中改變屬性值。 在設(shè)計態(tài)設(shè)定對象屬性值的方法是在屬性窗口中完成的。應(yīng)該注意的是：在屬性窗口列出的屬性中大多可采用系統(tǒng)缺省值。 在程序代碼中采用如下格式的代碼行來改變屬性值：對象名.屬性名 = 值 缺省情況下，對象名是指窗體名。說明：并不是所有的屬性值都能在屬性窗口見到。有些屬性見不到，只能在運(yùn)行(ynxng)時應(yīng)用，稱為運(yùn)行(ynxng

11、)態(tài)屬性。第14頁/共59頁第十四頁，共60頁。15/ 59控件是放在窗體中可操作的對象控件箱中提供的可以和用戶進(jìn)行交互的可視化部件?？丶凶约?zj)的屬性，事件，方法2.1.2 控件添加控件的方法用鼠標(biāo)單擊控件箱中所需的控件按鈕，在窗體的適當(dāng)位置(wi zhi)上按住鼠標(biāo)左鍵拖動。用鼠標(biāo)雙擊控件箱中所需的控件按鈕，在窗體上自動添加標(biāo)準(zhǔn)大小的控件。第15頁/共59頁第十五頁，共60頁。16/ 591. 作用:用于在窗體上增加文字說明，通常為沒有Caption屬性的對象添加標(biāo)識。2. 屬性Name：標(biāo)簽名稱。Caption：標(biāo)題屬性，它的值即為標(biāo)簽所顯示的文本內(nèi)容。Alignment：對齊屬性

12、。屬性值有：0-Left Justify：正文左對齊（默認(rèn)值）1- Right Justify：正文左對齊2-Center：正文居中AutoSize：大小自適應(yīng)屬性。BackStyle ：背景(bijng)風(fēng)格屬性。 返回或設(shè)置控件的背景(bijng)樣式是否透明。當(dāng)屬性值為0時，標(biāo)簽的背景(bijng)是透明的；當(dāng)屬性值為1（默認(rèn)值）時，標(biāo)簽的背景(bijng)不透明，背景(bijng)色即BackColor屬性所設(shè)置的顏色。說明：標(biāo)簽可用于顯示文本(輸出)信息，不能作為輸入信息的界面。1.標(biāo)簽(bioqin) Label按鈕提示(tsh)tip第16頁/共59頁第十六頁，共60頁。17/

13、59是一個(y )文本編輯區(qū)域，可在該區(qū)域輸入，編輯和顯示正文內(nèi)容。（1）主要屬性 Name：文本框名稱。Text ：文本屬性，它的值就是用戶從文本框輸入的內(nèi)容。Passwordchar: 密碼屬性。MaxLength：最大長度屬性。取值范圍是0-65535。MultiLine： 多行屬性。ScrollBars： 滾動條屬性 。 值為0（默認(rèn)值）時，無滾動條。值為1時，加水平滾動條。值為2時，加垂直滾動條。值為3時，同時加水平、垂直滾動條。只有在文本框的MultiLine屬性設(shè)置為True時，該屬性才有效。Alignment：對齊屬性。2.文本框 Textbox演示口令(kulng)驗證例2.

14、4溫度(wnd)換算第17頁/共59頁第十七頁，共60頁。18/ 59補(bǔ)充屬性：SelLength返回或設(shè)置所選擇的字符數(shù)。SelStart返回或設(shè)置所選擇的文本的起始點；如果沒有文本被選中，則指出插入(ch r)點的位置。SelText返回或設(shè)置包含當(dāng)前所選擇文本的字符串；如果沒有字符被選中，則為零長度字符串 ()。說明：這些屬性在設(shè)計時是不可用的。例：舉例說明以上三個函數(shù)的使用。Sel（Text)第18頁/共59頁第十八頁，共60頁。19/ 59（3）事件 Change：當(dāng)改變文本框的Text屬性時會引發(fā)該事件。LostFocus：當(dāng)控件失去(shq)焦點時發(fā)生。GotFocus：當(dāng)控件獲

15、得焦點時發(fā)生。KeyPress(KeyAscii As Integer)：該事件在文本框獲得焦點并且用戶按下了鍵盤上的按鍵后觸發(fā)。KeyAscii 為13，按回車鍵；為0 去除剛輸入的字符。（2）方法 Refresh：刷新控件。對象(duxing).SetFocus：設(shè)置焦點，是把光標(biāo)移到指定的文本框中 ，使之成為焦點（即當(dāng)前活動文本框）。第19頁/共59頁第十九頁，共60頁。20/ 59（1）主要屬性Name 命令按鈕名稱。系統(tǒng)為窗體上第一個命令按鈕的缺省命名(mng mng)是Command1。Caption 標(biāo)題屬性。返回或設(shè)置按鈕上顯示的文本?？稍O(shè)置快捷鍵，例 “&Ok”，顯示

16、 Ok。Default默認(rèn)屬性。將該按鈕設(shè)置為默認(rèn)命令按鈕，當(dāng)用戶按回車時，自動激活該按鈕。Cancel取消屬性。當(dāng)該屬性值設(shè)為True時，按【Esc】鍵等同于單擊本按鈕。Style風(fēng)格屬性。用來設(shè)置或返回命令按鈕的外觀風(fēng)格。該屬性值為0（默認(rèn)值）時，為標(biāo)準(zhǔn)按鈕風(fēng)格；為1時，為圖形按鈕風(fēng)格。Picture圖形屬性。只有當(dāng)按鈕的Style屬性值為1時，可以用Picture屬性為其裝入一幅顯示圖形。ToolTipText提示文本屬性。設(shè)置當(dāng)鼠標(biāo)懸停在控件上時顯示的提示性文字。3.命令(mng lng)按鈕 CommandButton第20頁/共59頁第二十頁，共60頁。21/ 59 激活命令按鈕可

17、以有三種方式(fngsh)：鼠標(biāo)單擊、Tab鍵焦點到該按鈕、快捷鍵。（2）方法 SetFocus：設(shè)置焦點。設(shè)置為焦點的按鈕將有一個邊框（如右圖），可直接按回車鍵，執(zhí)行該按鈕代表的動作。（3）事件 命令按鈕最常用的事件是Click()，當(dāng)鼠標(biāo)單擊命令按鈕時發(fā)生。焦點在此按鈕上演示(ynsh)圖形按鈕例2.3Click第21頁/共59頁第二十一頁，共60頁。22/ 594 4列表框列表框(ListBox)(ListBox)和組合和組合(zh)(zh)框框(ComboBox)(ComboBox)（1）共有的主要屬性List：列表屬性。該屬性是一個字符型數(shù)組，用來列出列表框或組合框的選項內(nèi)容。Lis

18、t數(shù)組的下標(biāo)值從0開始，即由上到下第一個項目(xingm)的下標(biāo)為0。語法格式為：對象名.List (列表項序號) 其中，“對象名”即為列表框的Name屬性值；“列表項序號”即為下標(biāo)，由上到下依次為0、1、2、3等。ListCount：列表項數(shù)目。該屬性只能在程序中設(shè)置或引用。ListCount的值表示列表框或組合框中項目(xingm)的數(shù)量。ListCount-1表示最后一項的序號。第22頁/共59頁第二十二頁，共60頁。23/ 59ListIndex：列表項索引。該屬性只能在程序中設(shè)置或引用。ListIndex的值表示程序運(yùn)行時被選定的選項的序號。如果未選中任何選項，則ListIndex值

19、為-1。Text：列表項正文。該屬性只能在程序中設(shè)置或引用。其值為最后選中的列表項的文本。 Text與List(Object.ListIndex) 的返回值相同。Sorted：排序?qū)傩?。該屬性只能在設(shè)計狀態(tài)設(shè)置。該屬性決定在程序運(yùn)行期間列表框或組合框的選項是否按字母順序排列顯示(xinsh)。如果Sorted值為True，則項目按字母順序顯示(xinsh)；如果值為False（默認(rèn)值），則按選項加入的先后順序排列。第23頁/共59頁第二十三頁，共60頁。24/ 59（2） ListBox特有的主要屬性(shxng)Selected 選擇屬性(shxng)。該屬性(shxng)只能在程序中設(shè)置或

20、引用。該屬性(shxng)返回或設(shè)置列表框控件中的一個項目的選擇狀態(tài)。當(dāng)某一列表項被選中時，該列表項的Selected屬性(shxng)值為True,否則為False。Selected屬性(shxng)的表示方法同List屬性(shxng)。Columns 列表框顯示的列數(shù)。取值為0時，逐行顯示列表框，可能有垂直滾動條；取值大于0時，列表項可占多列顯示。4 4列表框列表框(ListBox)(ListBox)和組合和組合(zh)(zh)框框(ComboBox)(ComboBox)第24頁/共59頁第二十四頁，共60頁。25/ 59MultiSelect 該屬性確定列表框是否允許選擇多項。Mult

21、iSelect屬性值為0（默認(rèn)值）時，表示在一個列表框中只能選擇一項；MultiSelect值為1時，表示允許選擇列表框中多個項，每用鼠標(biāo)單擊一個項，則該項被選中；MultiSelect值為2時，表示可以選擇列表框中某個范圍內(nèi)的項，即可以用Shift單擊鼠標(biāo)，選擇一組連續(xù)(linx)排列的項，或用Ctrl單擊鼠標(biāo)，選擇一組不連續(xù)(linx)排列的項。 第25頁/共59頁第二十五頁，共60頁。26/ 59（3）組合框特有的主要屬性(shxng)Style：風(fēng)格屬性(shxng)。4列表框列表框(ListBox)和組合和組合(zh)框框(ComboBox)不能2下拉式列表框能1簡單組合框能0下拉式

22、組合框類 型Style能否輸入第26頁/共59頁第二十六頁，共60頁。27/ 59（4）方法AddItem：添加列表項。格式：Object.AddItem ,插入位置序號若不指定插入位置，則插入到列表末尾。RemoveItem：刪除列表項。格式： Object. RemoveItem 刪除項序號Clear：刪除列表中所有項目。（5）事件 Click（常用(chn yn)） DblClick（很少使用） 說明：組合框Style屬性為1才能響應(yīng)DblClick事件。 4 4列表框列表框(ListBox)(ListBox)和組合和組合(zh)(zh)框框(ComboBox)(ComboBox)第27

23、頁/共59頁第二十七頁，共60頁。28/ 59 【例 2.5】 對列表框進(jìn)行項目添加(tin ji)、修改和刪除操作。Private Sub Form_Load() List1.AddItem 蠶豆(cndu) List1.AddItem 扁豆 List1.AddItem 綠豆 List1.AddItem 紅豆 List1.AddItem 刀豆End SubPrivate Sub Command1_Click() List1.AddItem Text1 Text1 = End SubPrivate Sub Command2_Click() List1.RemoveItem List1.List

24、IndexEnd SubPrivate Sub Command3_Click() List1.ClearEnd SubPrivate Sub Command4_Click() EndEnd Sub第28頁/共59頁第二十八頁，共60頁。29/ 594 4列表框列表框(ListBox)(ListBox)和組合和組合(zh)(zh)框框(ComboBox)(ComboBox)列表框各主要(zhyo)屬性的值： List1.ListIndex = 3 (下標(biāo)從0開始的) List1. ListCount = 5 List1. Selected(3) = True，其余為False。 List1. S

25、orted = False，沒有排序。 List1. Text 為 “cox” ， 與List1. List(List1. ListIndex)相等List1. Text與List1. List(List1. ListIndex)有何相同和不同點List1 下拉式組合框下拉式組合框 簡單組合框簡單組合框 下拉式列表框下拉式列表框 組合框各主要屬性(shxng)的值： Combo1.ListIndex = 0Combo1. ListCount = 8 Combo1. Selected(0) = True其余為False。Combo1. Sorted = FalseCombo1. Text 為 “

26、李寧”Combo1組合與列表第29頁/共59頁第二十九頁，共60頁。30/ 59（1）主要屬性 Caption：標(biāo)題屬性。 Alignment：對齊屬性。0（默認(rèn)值），按鈕在左邊，標(biāo)題在右邊； 1，按鈕在右邊，標(biāo)題顯示在左邊。 Value：該屬性是默認(rèn)屬性。 單選按鈕被選中時，Value取值為True；未被選中時，取值為False。 復(fù)選框的Value屬性有3個可能的取值：0-未選中（默認(rèn)值）；1-選中；2-變灰，禁止(jnzh)選擇。5單選按鈕(OptionButton)、復(fù)選框(CheckBox)與框架(kun ji)控件(Frame)第30頁/共59頁第三十頁，共60頁。31/ 595.

27、5.單選按鈕單選按鈕(OptionButton)(OptionButton)、復(fù)選框、復(fù)選框(CheckBox)(CheckBox)與框與框架架(kun ji)(kun ji)控件控件(Frame)(Frame)（2）方法Move：移動(ydng)Refresh：刷新。（3）事件Click：單選按鈕或復(fù)選框都能接受事件。 第31頁/共59頁第三十一頁，共60頁。32/ 59 【例2.6】編寫一個能對文本框中文字風(fēng)格進(jìn)行(jnxng)設(shè)置的應(yīng)用程序。文本框用于輸入示例文字，大小、字體和字型三個框架形成三個選項組，其中字型可復(fù)選。 Private Sub Check1_Click() If Che

28、ck1.Value = 1 Then Text1.FontBold = True ElseIf Check1.Value = 0 Then Text1.FontBold = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True ElseIf Check2.Value = 0 Then Text1.FontItalic = False End IfEnd SubPrivate Sub Command1_Click() EndEnd Sub第32頁/共59頁第三十

29、二頁，共60頁。33/ 59Private Sub Option1_Click() If Option1.Value Then Text1.FontSize = 14 Text1.RefreshEnd SubPrivate Sub Option2_Click() If Option2.Value Then Text1.FontSize = 18 Text1.RefreshEnd SubPrivate Sub Option3_Click() If Option3.Value Then Text1.FontSize = 20 Text1.RefreshEnd SubPrivate Sub Opti

30、on4_Click() If Option4.Value Then Text1.FontName = 宋體 Text1.RefreshEnd SubPrivate Sub Option5_Click() If Option5.Value Then Text1.FontName = 黑體(hit) Text1.RefreshEnd SubPrivate Sub Option6_Click() If Option6.Value Then Text1.FontName = 隸書 Text1.RefreshEnd Sub第33頁/共59頁第三十三頁，共60頁。34/ 59 滾動條分為水平滾動條（HSc

31、rollBar）和垂直滾動條（VScrollBar)）。兩種滾動條除方向不同外，其功能是相同的，都用來滾動內(nèi)容或用于平滑地選擇數(shù)據(jù)。 （1）主要屬性Max和MinMax ：水平滾動條的最右端或垂直滾動條的最下端時對應(yīng)的Value值。取值范圍是-3276832767，缺省值為32767。Min ：水平滾動條的最左端或垂直滾動條的最上端時對應(yīng)的Value值。取值范圍是-3276832767，缺省值為0。LargeChange ：最大變動值屬性該屬性用于返回或設(shè)置當(dāng)用戶(yngh)用鼠標(biāo)單擊滾動區(qū)域時，滾動塊每次移動的距離，表示Value值的改變量。6滾動條（ScrollBar）第34頁/共59頁第

32、三十四頁，共60頁。35/ 59SmallChange：最小變動值屬性該屬性用于返回或設(shè)置當(dāng)用戶用鼠標(biāo)單擊滾動箭頭時，滾動塊每次移動(ydng)的距離，表示Value值的改變量。為了精確地度量滾動條的值，一般設(shè)置SmallChange的值為1。對SmallChange和LargeChange兩個屬性，均可指定132767之間的整數(shù)。缺省值為1。Value值屬性:表示滾動塊的當(dāng)前位置值。 Value值隨滾動塊的位置改變而改變，其值介于Min和Max之間。（2）方法SetFocus:獲取焦點。Refresh :刷新（3）事件 Change 當(dāng)滾動塊的位置被改變時引發(fā)Change事件，也可在代碼中修

33、改滾動條的Value屬性值觸發(fā)該事件。 Scroll 當(dāng)在滾動區(qū)域中拖動滾動塊時引發(fā)Scroll事件。 6滾動條（ScrollBar）第35頁/共59頁第三十五頁，共60頁。36/ 59【例 2.7】利用(lyng)三個水平滾動條配置文本框的背景色。 Option ExplicitDim R As Integer, G As Integer, B As IntegerPrivate Sub HScroll1_Change(Index As Integer) R = HScroll1(0).Value G = HScroll1(1).Value B = HScroll1(2).Value Lab

34、el4(Index).Caption = HScroll1(Index).Value Text1.BackColor = RGB(R, G, B)End SubPrivate Sub HScroll1_Scroll(Index As Integer) R = HScroll1(0).Value G = HScroll1(1).Value B = HScroll1(2).Value Label4(Index).Caption = HScroll1(Index).Value Text1.BackColor = RGB(R, G, B)End Sub第36頁/共59頁第三十六頁，共60頁。37/ 5

35、97 7圖片圖片(tpin)(tpin)框（框（PictureBoxPictureBox）圖片框功能：用于繪制圖形，顯示圖片或圖像以及文本或數(shù)據(jù)，可做容器。（1）主要屬性 Picture :該屬性用于設(shè)置圖片框加載的圖片文件。 可以通過剪切/復(fù)制、再粘貼到圖片框中，其效果(xiogu)與通過Picture屬性加載完全相同。 AutoSize :設(shè)置為“True”，則圖片框就能自動適應(yīng)圖片的大小了。 （2）方法 Print: 與窗體用法一直，對象名稱不能省略。第37頁/共59頁第三十七頁，共60頁。38/ 597 7圖片圖片(tpin)(tpin)框（框（PictureBoxPictureBox

36、）在代碼中使用LoadPicture函數(shù)加載圖片 格式如下： LoadPicture（Filename,Size,Colordepth,x,y） 其中：Filename 是圖片文件及其路徑名； Size 指定加載圖片大??； Colordepth 圖片的顏色深度(shnd)； x,y 指定圖片位置。例如： Pic1.Picture = LoadPicture(C:win.bmp)picture第38頁/共59頁第三十八頁，共60頁。39/ 59 功能：有規(guī)律地間隔觸發(fā)(chf)計時器事件（Timer）而執(zhí)行相應(yīng)的程序代碼。程序運(yùn)行時不可見。1.屬性Interval屬性單位：ms(0.001s)，

37、0.5秒是500。Interval0：屏蔽計時器。Enabled屬性True：有效計時False：停止時鐘工作2.事件事件僅有Timer 8時鐘(shzhng)控件(Timer)timer第39頁/共59頁第三十九頁，共60頁。40/ 599控件默認(rèn)控件默認(rèn)(mrn)屬性屬性Picture 圖形、圖像框 Default 命令按鈕 Value 復(fù)選框 Caption 標(biāo)簽 Value 單選按鈕 Text 文本框 控件 屬性 控件的默認(rèn)屬性 屬性 控件 VB中把控件最重要的常用屬性作為(zuwi)默認(rèn)屬性。見表2.1.5。 文本框默認(rèn)屬性為Text，所以下面兩個語句等價： Text1.Text =

38、 Visual Basic Text1 = Visual Basic第40頁/共59頁第四十頁，共60頁。412.2 菜單菜單(ci dn)設(shè)計設(shè)計第41頁/共59頁第四十一頁，共60頁。42/ 59下拉式菜單(ci dn)系統(tǒng)的組成結(jié)構(gòu) ：主菜單名快捷鍵熱鍵下級(xij)子 菜 單 標(biāo)記主菜單(ci dn)條分隔線菜單項子菜單名第42頁/共59頁第四十二頁，共60頁。43/ 592.2.1 “菜單(ci dn)編輯器”的使用常用屬性：1.標(biāo)題(Caption) 熱鍵 前面加&2. 名稱(mngchng)(Name)文本框 分隔符也應(yīng)有名稱(mngchng)3. 快捷鍵(Shortcu

39、t) 菜單名沒有快捷鍵4. 復(fù)選(Checked)檢查框 TRUE 有5. 有效(Enabled)檢查框6. 可見(Visible)檢查框菜單列表框菜單項屬性 操作按鈕工具(gngj)菜單編輯器(Ctrl+E)第43頁/共59頁第四十三頁，共60頁。44/ 592.2.2 彈出式菜單彈出式菜單(ci dn)(快捷菜單快捷菜單(ci dn) 與普通(ptng)菜單一樣設(shè)置，只需將頂層菜單名的Visible屬性設(shè)置為False，即在菜單編輯器內(nèi)不選中可見復(fù)選框。然后應(yīng)用PopupMenu方法來顯示彈出菜單。PopupMenu方法的語法格式如下：對象名.PopupMenu 菜單名,標(biāo)志,x,y 其中

40、，菜單名是必須的，其他參數(shù)可選。x、y參數(shù)指定彈出菜單顯示的位置。標(biāo)志參數(shù)用于進(jìn)一步定義彈出菜單的位置和性能。Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu EditMenu, vbPopupMenu CenterAlignEnd SubvbPopupMenuLeftAlign vbPopupMenuCenterAlign vbPopupMenuRightAlign vbPopupMenuLeftButton 0489X

41、位置確定彈出菜單的左邊界（默認(rèn)值） 彈出菜單以x為中心 X位置確定彈出菜單的右邊界只能用鼠標(biāo)左鍵觸發(fā)彈出菜單（默認(rèn)值） 位置性能 常 數(shù) 值 說 明 分 類vbPopupMenuRightButton 2能用鼠標(biāo)左鍵和右鍵觸發(fā)彈出菜單第44頁/共59頁第四十四頁，共60頁。452.3 多窗體界面設(shè)計 第45頁/共59頁第四十五頁，共60頁。46/ 592.3.1多重窗體多重窗體 多重窗體：在一個工程中同時存在多個窗體，每個普通窗體都有自己的設(shè)計界面和相對應(yīng)的程序代碼，它們各自執(zhí)行著自己的功能。 1添加窗體 通過菜單欄中的“工程|添加窗體”命令或工具欄上的“添加窗體”按鈕來打開(d ki)“添加

42、窗體”對話框，然后選擇“新建”選項卡新建一個窗體；也可選擇“現(xiàn)存”選項卡把一個已有的窗體添加到當(dāng)前工程。 第46頁/共59頁第四十六頁，共60頁。47/ 59 2設(shè)置啟動對象 當(dāng)工程中有多個窗體時，程序運(yùn)行時首先執(zhí)行的對象稱為啟動對象，默認(rèn)情況下第一個(y )創(chuàng)建的窗體被指定為啟動對象，即啟動窗體。在VB中啟動對象既可以是窗體，也可以是Main子過程。 設(shè)置啟動對象：通過菜單欄中的“工程|工程屬性”命令，打開“工程屬性”對話框，在“通用”選項卡， “啟動對象”下?lián)炝斜砜蛑?，選擇指定的對象做為啟動對象。 若在列表框中選擇了“Sub Main”，表示設(shè)置的啟動對象是Main子過程，這時程序啟動時不

43、加載任何窗體，以后由該過程根據(jù)不同情況決定是否加載和加載哪一個(y )窗體。注意：Main子過程必須放在標(biāo)準(zhǔn)模塊中，絕對不能放在窗體模塊中。2.3.1多重窗體第47頁/共59頁第四十七頁，共60頁。48/ 59【例2.8】 多重窗體的程序示例。如圖2.3.2所示，三個窗體Form1、Form2和Form3，分別作為主窗體、輸入(shr)成績窗體和計算結(jié)果顯示窗體。 第48頁/共59頁第四十八頁，共60頁。49/ 59Private Sub Command1_Click() Form1.Hide Form2.ShowEnd SubPrivate Sub Command2_Click() Form

44、1.Hide form3.ShowEnd SubPrivate Sub Command3_Click() Unload Form1 Unload Form2 Unload Form3 EndEnd SubPrivate Sub Command1_Click() Form2.Hide Form1.ShowEnd SubPrivate Sub Command1_Click() Unload Me Form1.ShowEnd SubPrivate Sub Form_Load() Dim Sum As Single Sum = Val(Form2.Text1.Text) + _Val(Form2.Te

45、xt2.Text) + Val(Form2.Text3.Text) + _ Val(Form2.Text4.Text) Text1.Text = Sum / 4 Text2.Text = SumEnd Sub窗體Form1程序代碼如下(rxi)：窗體Form2程序代碼如下(rxi)：窗體Form3程序代碼如下(rxi)：第49頁/共59頁第四十九頁，共60頁。50/ 592.3.2 多文檔界面(jimin)(MDI)（選講）設(shè)計(shj)：一般有菜單欄、工具欄、狀態(tài)欄MDI窗體MDI子窗體1. 創(chuàng)建和設(shè)計(shj)MDI窗體及其子窗體 (1) 創(chuàng)建和設(shè)計(shj)MDI窗體 創(chuàng)建： “工程/添

46、加MDI窗體”命令第50頁/共59頁第五十頁，共60頁。51/ 59(2) 創(chuàng)建和設(shè)計MDI子窗體 創(chuàng)建： MDI子窗體是一個MDIChild屬性為True的普通(ptng)窗體。 設(shè)計：可有菜單欄，但必須有文本框。2.3.2 多文檔界面(jimin)(MDI)（選講）第51頁/共59頁第五十一頁，共60頁。522.4 工具欄（選講）（選講）第52頁/共59頁第五十二頁，共60頁。53/ 592.4 工具欄工具欄* 在VB中做比較簡單的方法是通過組合使用ToolBar、ImageList控件創(chuàng)建(chungjin)工具欄，這些控件是ActiveX控件的一部分，在使用前必須通過菜單欄中的“工程|部件”命令，打開“部件”對話框，選中Microsoft Windows CommonControl6.0，將控件添加到工具箱。 第53頁/共59頁第五十三頁，共60頁。54/ 592.4.1 在ImageList中添加(tin ji)圖像 在窗