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

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

2、在窗體上。 規(guī)則：對(duì)象名稱必須以字母或漢字開頭，由字母、漢字、數(shù)字組成，長度不超過255個(gè)字符，其中可以出現(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、一個(gè)十六進(jìn)制(sh li jn zh)常數(shù)，用戶可以在調(diào)色板中直接選擇所需顏色。（5）Enabled屬性 控件是否可操作。當(dāng)設(shè)置為False時(shí)，呈灰色，禁止用戶進(jìn)行操作。（6）Visible屬性 控件是否可見。當(dāng)設(shè)置為False，程序運(yùn)行時(shí)控件不可見，但控件存在著。第5頁/共59頁第五頁，共60頁。6/ 597、BorderStyle邊框邊框(binkung)風(fēng)格屬性風(fēng)格屬性雙線外框，運(yùn)行時(shí)窗口大小不可改變vbFixedDouble3（缺省值）雙線外框，運(yùn)行時(shí)可改變窗口大小vbSizable2單線外框，運(yùn)行時(shí)窗口大小不可改變vbFixedSingle1窗口無外框vbBSNone0設(shè)定值常 量風(fēng)

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

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

6、 表達(dá)式列表1；|， 表達(dá)式列表2；|，其中：“對(duì)象名”可以是窗體（Form）、圖形框（PictureBox）或打印機(jī)（Printer）。若省略了對(duì)象則在窗體上輸出。表達(dá)式列表：要輸出的數(shù)值或字符串表達(dá)式，若省略，則輸出一個(gè)空行，多個(gè)表達(dá)式之間用空格、逗號(hào)、分號(hào)分隔(fng)，也可出現(xiàn)Spc 和Tab函數(shù)。；（分號(hào)）：表示光標(biāo)定位在上一個(gè)顯示的字符后，（逗號(hào)）：表示光標(biāo)定位在下一個(gè)打印去開始位置處，打印區(qū)每隔14行開始。無“；”或“，”表示輸出后換行。Print方法(fngf)第9頁/共59頁第九頁，共60頁。10/ 59例2.1：設(shè)窗體對(duì)象名為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)裝載事件。窗體裝入時(shí)觸發(fā)此事件 Load 雙擊事件 DblClick 初始化事件 Initialize 單擊事件 Click 事件名描 述窗體常用的事件 在窗體被改變大小時(shí)觸發(fā)本事件 Resize 卸載事件。如果關(guān)閉窗體，觸發(fā)U

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

9、 Object 卸載將使該對(duì)象(duxing)的所有屬性重新恢復(fù)為設(shè)計(jì)時(shí)設(shè)定的初始值，卸載還將引發(fā)對(duì)象(duxing)的Unload事件。如果卸載的對(duì)象(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é)束，而不是由用戶的操作來控制時(shí)，在程序代碼中可使用End語句，格式如下： End 執(zhí)行該語句將終止應(yīng)用程序的執(zhí)行，并從內(nèi)存卸載所有窗體。思考：

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

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

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

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

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

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

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

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

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

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

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

21、iSelect屬性值為0（默認(rèn)值）時(shí)，表示在一個(gè)列表框中只能選擇一項(xiàng)；MultiSelect值為1時(shí)，表示允許選擇列表框中多個(gè)項(xiàng)，每用鼠標(biāo)單擊一個(gè)項(xiàng)，則該項(xiàng)被選中；MultiSelect值為2時(shí)，表示可以選擇列表框中某個(gè)范圍內(nèi)的項(xiàng)，即可以用Shift單擊鼠標(biāo)，選擇一組連續(xù)(linx)排列的項(xiàng)，或用Ctrl單擊鼠標(biāo)，選擇一組不連續(xù)(linx)排列的項(xiàng)。 第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：添加列表項(xiàng)。格式：Object.AddItem ,插入位置序號(hào)若不指定插入位置，則插入到列表末尾。RemoveItem：刪除列表項(xiàng)。格式： Object. RemoveItem 刪除項(xiàng)序號(hào)Clear：刪除列表中所有項(xiàng)目。（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】 對(duì)列表框進(jìn)行項(xiàng)目添加(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)有何相同和不同點(diǎn)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：對(duì)齊屬性。0（默認(rèn)值），按鈕在左邊，標(biāo)題在右邊； 1，按鈕在右邊，標(biāo)題顯示在左邊。 Value：該屬性是默認(rèn)屬性。 單選按鈕被選中時(shí)，Value取值為True；未被選中時(shí)，取值為False。 復(fù)選框的Value屬性有3個(gè)可能的取值：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：移動(dòng)(ydng)Refresh：刷新。（3）事件Click：單選按鈕或復(fù)選框都能接受事件。 第31頁/共59頁第三十一頁，共60頁。32/ 59 【例2.6】編寫一個(gè)能對(duì)文本框中文字風(fēng)格進(jìn)行(jnxng)設(shè)置的應(yīng)用程序。文本框用于輸入示例文字，大小、字體和字型三個(gè)框架形成三個(gè)選項(xià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 滾動(dòng)條分為水平滾動(dòng)條（HSc

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

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

33、改滾動(dòng)條的Value屬性值觸發(fā)該事件。 Scroll 當(dāng)在滾動(dòng)區(qū)域中拖動(dòng)滾動(dòng)塊時(shí)引發(fā)Scroll事件。 6滾動(dòng)條（ScrollBar）第35頁/共59頁第三十五頁，共60頁。36/ 59【例 2.7】利用(lyng)三個(gè)水平滾動(dòng)條配置文本框的背景色。 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”，則圖片框就能自動(dòng)適應(yīng)圖片的大小了。 （2）方法 Print: 與窗體用法一直，對(duì)象名稱不能省略。第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)計(jì)時(shí)器事件（Timer）而執(zhí)行相應(yīng)的程序代碼。程序運(yùn)行時(shí)不可見。1.屬性Interval屬性單位：ms(0.001s)，

37、0.5秒是500。Interval0：屏蔽計(jì)時(shí)器。Enabled屬性True：有效計(jì)時(shí)False：停止時(shí)鐘工作2.事件事件僅有Timer 8時(shí)鐘(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，所以下面兩個(gè)語句等價(jià)： Text1.Text =

38、 Visual Basic Text1 = Visual Basic第40頁/共59頁第四十頁，共60頁。412.2 菜單菜單(ci dn)設(shè)計(jì)設(shè)計(jì)第41頁/共59頁第四十一頁，共60頁。42/ 59下拉式菜單(ci dn)系統(tǒng)的組成結(jié)構(gòu) ：主菜單名快捷鍵熱鍵下級(jí)(xij)子 菜 單 標(biāo)記主菜單(ci dn)條分隔線菜單項(xiàng)子菜單名第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)檢查框菜單列表框菜單項(xiàng)屬性 操作按鈕工具(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方法的語法格式如下：對(duì)象名.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è)計(jì) 第45頁/共59頁第四十五頁，共60頁。46/ 592.3.1多重窗體多重窗體 多重窗體：在一個(gè)工程中同時(shí)存在多個(gè)窗體，每個(gè)普通窗體都有自己的設(shè)計(jì)界面和相對(duì)應(yīng)的程序代碼，它們各自執(zhí)行著自己的功能。 1添加窗體 通過菜單欄中的“工程|添加窗體”命令或工具欄上的“添加窗體”按鈕來打開(d ki)“添加

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

43、加載任何窗體，以后由該過程根據(jù)不同情況決定是否加載和加載哪一個(gè)(y )窗體。注意：Main子過程必須放在標(biāo)準(zhǔn)模塊中，絕對(duì)不能放在窗體模塊中。2.3.1多重窗體第47頁/共59頁第四十七頁，共60頁。48/ 59【例2.8】 多重窗體的程序示例。如圖2.3.2所示，三個(gè)窗體Form1、Form2和Form3，分別作為主窗體、輸入(shr)成績窗體和計(jì)算結(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è)計(jì)(shj)：一般有菜單欄、工具欄、狀態(tài)欄MDI窗體MDI子窗體1. 創(chuàng)建和設(shè)計(jì)(shj)MDI窗體及其子窗體 (1) 創(chuàng)建和設(shè)計(jì)(shj)MDI窗體 創(chuàng)建： “工程/添

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