VB程序設(shè)計(jì)第6章--窗體與基本控件-PPT課件

1、第6章 窗體與基本控件6.1 對(duì)象的基本屬性本節(jié)介紹VB內(nèi)部控件的基本屬性，多數(shù)的控件或窗體都具有這些屬性。6.1.1 屬性的分類對(duì)象的屬性分為3種：只讀屬性、運(yùn)行時(shí)只讀屬性和可讀寫屬性。只讀屬性：運(yùn)行時(shí)只讀屬性：可讀寫屬性：6.1.2 對(duì)象的基本屬性(1)Name名稱屬性(2)Caption標(biāo)題屬性(3)Width、Height與Left、Top屬性，Width和Height屬性分別表示對(duì)象的寬度和高度，即對(duì)象的大小。Left和Top屬性分別是控件的左邊到其容器的左邊，控件的上邊到其容器的上邊的距離，即對(duì)象的位置。對(duì)于窗體，Top表示窗體到屏幕頂部的距離，Left表示窗體到屏幕左邊的距離。6

2、.1.2 對(duì)象的基本屬性(4)Visible屬性該屬性決定對(duì)象是否可見。True：程序運(yùn)行時(shí)控件可見。False：程序運(yùn)行時(shí)控件隱藏起來，不可見，但控件本身還存在。(5)Enabled屬性該屬性決定對(duì)象是否是有效。True：允許用戶操作，并對(duì)操作作出響應(yīng)。False：禁止用戶操作，呈暗淡色。(6)Appearance屬性該屬性是窗體與有邊框的控件都具有的一個(gè)屬性，它的值決定了邊框的繪制樣式。它的取值有兩個(gè)：0表示以平面樣式繪制，沒有立體效果。1表示以立體樣式繪制邊框。6.1.2 對(duì)象的基本屬性(7)BorderStyle屬性該屬性用來設(shè)置窗體和控件邊框樣式。BorderStyle屬性在運(yùn)行時(shí)是

3、只讀的。0-None：控件周圍沒有邊框。1-Fixed Single：控件帶有單邊框。(8)Font屬性該屬性改變文字的外觀，其“字體”對(duì)話框如圖6.2所示。FontName屬性是字符型，決定了控件上正文的字體。FontSize屬性是整型，決定了控件上正文的字體大小，以磅為單位。 FontBold屬性是邏輯型，表示控件上正文是否是粗體。FontItalic屬性是邏輯型，表示控件上正文是否是斜體。FontStrikethru屬性是邏輯型， 表示控件上正文是否加刪除線。FontUnderline屬性是邏輯型，表示控件上正文是否帶下劃線。6.1.2 對(duì)象的基本屬性(9)ForeColor屬性該屬性用

4、來設(shè)置對(duì)象的前景顏色，即正文和作圖時(shí)的顏色。其值是一個(gè)16進(jìn)制常數(shù)，用戶可以在調(diào)色板中直接選擇所需要的顏色。(10)BackColor屬性該屬性用來設(shè)置對(duì)象的背景顏色，即正文以外的顯示區(qū)域的顏色。(11)FillColor屬性該屬性用來設(shè)置填充封閉圖形所用的顏色。(12)BackStyle屬性該屬性用來設(shè)置背景風(fēng)格。0-Transparent：透明顯示，即控件背景顏色顯示不出來，若控件后面有其他控件或背景，均可設(shè)置為透明顯示。1-Opaque：不透明，此時(shí)可為控件設(shè)置背景顏色。6.1.2 對(duì)象的基本屬性(13)Alignment屬性該屬性決定控件上正文水平對(duì)齊方式。0-Left Justify

5、: 正文左對(duì)齊。 1-Rigth Justify: 正文右對(duì)齊。2-Center:正文居中。(14)AutoSize屬性該屬性決定控件是否根據(jù)正文自動(dòng)調(diào)整大小。True：自動(dòng)調(diào)整大小。False：保持原來設(shè)計(jì)時(shí)的大小，正文若太長(zhǎng)多余部分會(huì)被隱藏掉。默認(rèn)為False。6.1.2 對(duì)象的基本屬性(15)WordWarp屬性該屬性決定文本在垂直方向上是否改變顯示區(qū)域的大小。WordWarp屬性必須是在AutoSize屬性設(shè)置為True時(shí)，WordWarp屬性才有效。True：表示按照文本和字體大小在垂直方向上改變顯示區(qū)的大小，而在水平方向上不發(fā)生變化。False：表示在水平方向上按正文長(zhǎng)度放大和縮小

6、；在垂直方向上以字體大小來放大或縮小顯示區(qū)。(16)Tag屬性每一個(gè)窗體和控件都有一個(gè)Tag屬性，VB內(nèi)部并不使用這個(gè)屬性，只是在程序中利用它來標(biāo)識(shí)對(duì)象實(shí)例。6.1.2 對(duì)象的基本屬性(17)ToolTipText屬性這是每一個(gè)可視控件都具有的屬性，它用于返回或設(shè)置當(dāng)鼠標(biāo)在控件上暫停時(shí)顯示的文本(提示信息)。(18)TabIndex屬性該屬性決定了當(dāng)用戶按Tab鍵時(shí)，焦點(diǎn)在各個(gè)控件轉(zhuǎn)移的順序。焦點(diǎn)是接收用戶鼠標(biāo)或鍵盤輸入的能力。當(dāng)對(duì)象具有焦點(diǎn)時(shí)，可接收用戶的輸入。在Windows環(huán)境下，可同時(shí)運(yùn)行多個(gè)應(yīng)用程序，有多個(gè)窗口，但焦點(diǎn)只能有一個(gè)。焦點(diǎn)能由用戶或應(yīng)用程序設(shè)置。當(dāng)在窗體上有多個(gè)控件時(shí)，對(duì)

7、于大部分控件，VB會(huì)給它分配一個(gè)Tab鍵順序，所謂Tab鍵順序，就是按Tab鍵時(shí)，焦點(diǎn)在各個(gè)控件上移動(dòng)的順序。一般，其順序與控件建立的順序相同，若要改變此順序，可以設(shè)置控件的TabIndex屬性，TabIndex屬性決定了它在Tab中的位置。按默認(rèn)值規(guī)定，第一個(gè)建立的控件的TabIndex屬性值為0，第二個(gè)為1，依次類推。在設(shè)計(jì)時(shí)用屬性窗口或在運(yùn)行時(shí)用代碼可改變控件的TabIndex屬性。運(yùn)行時(shí)，不可見或無效的控件以及不能接收焦點(diǎn)的控件(如Frame、Lablel等控件)，仍保持在Tab鍵順序中，但切換時(shí)要跳過這些控件。6.1.2 對(duì)象的基本屬性(19)TabStop屬性TabStop屬性返回

8、或設(shè)置一個(gè)值，該值用來指示是否能夠使用Tab鍵將焦點(diǎn)從另一個(gè)對(duì)象移動(dòng)到這個(gè)對(duì)象上。當(dāng)一個(gè)控件的TabStop屬性設(shè)置為False時(shí)，用Tab鍵就不能使該控件獲得輸入焦點(diǎn)，只有那些可以獲得輸入焦點(diǎn)的控件才具有該屬性?！纠?.1】在窗體上建立一個(gè)命令按鈕：Command1，一個(gè)標(biāo)簽框：Label1，運(yùn)行結(jié)果如圖6.3所示?！纠?.2】窗體上有6個(gè)標(biāo)簽：Label1Label6，每個(gè)標(biāo)簽的寬度和高度相同，其屬性設(shè)置如表6.1所示，運(yùn)行結(jié)果如圖6.4所示。6.2 窗體的屬性、事件和方法6.2.1 窗體的常用屬性1.窗體基本屬性1.窗體基本屬性包括：Name、Caption、Height、Width、L

9、eft、Top、Font、Enabled、Visible、ForeColor、BackColor屬性等。2.窗體的特有屬性(1)MaxButton屬性指定窗體標(biāo)題欄的最大化按鈕是否有效。只能在屬性窗口中設(shè)置。True：窗體右上角有最大化按鈕。False：窗體右上角無最大化按鈕。窗體的特有屬性(2)MinButton屬性指定窗體標(biāo)題欄中的最小化按鈕是否有效。只能在屬性窗口中設(shè)置。True：窗體右上角有最小化按鈕。False：窗體右上角無最小化按鈕。(3)ControlBox屬性該屬性指定是否在窗體左上角有控制菜單框。該屬性在運(yùn)行時(shí)是只讀的。True：在窗體左上角有控制菜單框。False：在窗體左

10、上角無控制菜單框。窗體的特有屬性(4)WindowState屬性該屬性表示窗體執(zhí)行時(shí)以什么狀態(tài)顯示。0Normal：正常窗口狀態(tài)，有窗口邊界。1Minimized：最小化狀態(tài)，以圖標(biāo)方式運(yùn)行。2Maximized：最大化狀態(tài)，無邊框，充滿整個(gè)屏幕。(5)Icon屬性在屬性窗口中，可以單擊Icon設(shè)置框邊的(省略號(hào))，打開一個(gè)“加載圖標(biāo)”對(duì)話框，用戶可以選擇一個(gè)圖標(biāo)文件裝入，當(dāng)窗體最小化時(shí)，以該圖標(biāo)顯示。(6)Moveable屬性指定用戶是否可以用拖動(dòng)窗口標(biāo)題欄來移動(dòng)窗口。若其值為Ture，則可以移動(dòng)。窗體的特有屬性(7)ShowInTaskbar屬性指定一個(gè)窗體對(duì)象在運(yùn)行時(shí)的窗口是否出現(xiàn)在Wi

11、ndows任務(wù)欄中。若它的值為True，則出現(xiàn)在任務(wù)欄中。該屬性在運(yùn)行時(shí)是只讀的。(8)BorderStyle屬性指定窗體的邊框樣式。改變此屬性值，會(huì)改變MinButton、MaxButton和ShowInTaskbar屬性的設(shè)置值。(9)Picture屬性該屬性設(shè)置在窗體或控件中顯示的圖片。在設(shè)計(jì)時(shí)，單擊屬性窗口中Picture屬性右端的(省略號(hào))，可以打開一個(gè)“加載圖片”對(duì)話框，用戶可以選擇一個(gè)圖形文件裝入。圖片框Picture控件，也具有Picture屬性。6.2.2 窗體的常用事件窗體的事件較多，一般分鼠標(biāo)事件、鍵盤事件、窗體裝載事件等，下面分別介紹。1.鼠標(biāo)事件所謂鼠標(biāo)事件是指由用戶

12、操作鼠標(biāo)而引發(fā)的但能被VB中的各種對(duì)象識(shí)別的事件。鼠標(biāo)有五個(gè)事件：Click、DblClick、MouseDown、MouseUp和MouseMove事件。(1)Click(單擊)事件(2)DblClick(雙擊)事件(3)MouseDown(按下鼠標(biāo))事件(4)MouseUp(釋放鼠標(biāo))事件(5)MouseMove(移動(dòng)鼠標(biāo))事件如果是雙擊一個(gè)控件時(shí)，將按順序產(chǎn)生下列事件：MouseDown、MouseUp、Click、DblClick和MouseMove事件。窗體的事件2.鍵盤事件鍵盤事件包括：KeyPress、KeyDown和KeyUp事件。(1)KeyPress事件(2)KeyDown

13、事件(3)KeyUp事件3.其他事件(1)Load(裝入)事件(2)Unload(卸載)事件(3)Activate(活動(dòng))和DeActivate(非活動(dòng))事件(4)Paint(繪畫)事件6.2.3 窗體的常用方法1.Move方法Move方法是幾乎任何一個(gè)可視對(duì)象都具有的方法。它的作用是改變對(duì)象的位置和大小。格式：對(duì)象.Move Left ，Top ，Width ，Height功能：用來移動(dòng)窗體和控件，并可以改變其大小。說明：對(duì)象是窗體或控件。2.SetFocus方法窗體對(duì)象和可以獲得輸入焦點(diǎn)的對(duì)象都具有此方法。調(diào)用對(duì)象的此方法后,任何輸入將指向該對(duì)象。此方法不需要任何參數(shù)。只有當(dāng)對(duì)象已經(jīng)顯示并

14、且其Enabled屬性為True時(shí)，才可調(diào)用對(duì)象的這個(gè)方法。6.2.4 控件的常用事件鼠標(biāo)事件：Click、DblClick、MouseDown、MouseUp、MouseMove事件。鍵盤事件：KeyDown、KeyUp、KeyPress事件。6.2.5 LoadPicture函數(shù)如果要在窗體、圖片框、圖像框中裝入圖片，除了在設(shè)計(jì)中用屬性窗口裝載外，還可以在程序中使用LoadPicture函數(shù)。格式：對(duì)象名.Picture=LoadPicture(文件名)功能：LoadPicture是一個(gè)函數(shù)，用來將指定圖形文件調(diào)入內(nèi)存。【例6.3】在窗體中裝入圖形作為背景，當(dāng)用戶單擊窗體或雙擊窗體時(shí)，顯示

15、的標(biāo)題、圖形和文字都有所不同。6.8 DblClick事件的運(yùn)行效果 【例6.4】設(shè)計(jì)一個(gè)程序，在窗體上添加四個(gè)圖像框，當(dāng)用戶在窗體上移動(dòng)鼠標(biāo)，四個(gè)圖形文件就會(huì)裝入圖像框。當(dāng)用戶在窗體內(nèi)移動(dòng)鼠標(biāo)時(shí)，就會(huì)發(fā)生MouseMove事件，執(zhí)行Form_MouseMove過程語(yǔ)句將四個(gè)圖形文件分別裝入四個(gè)圖像框中。程序的執(zhí)行屏幕如圖6.10所示。將上述程序代碼剪切到MouseUp事件中，釋放鼠標(biāo)也能將四個(gè)圖形文件分別裝入四個(gè)圖像框中。6.8 DblClick事件的運(yùn)行效果【例6.5】用窗體鍵盤的KeyDown事件，在窗體上畫一個(gè)圓。如圖6.11所示?！纠?.6】用窗體的單擊Click事件，在窗體上和圖片

16、框上各畫一個(gè)圓。如圖6.12所示?！纠?.7】利用KeyPress事件，在窗體上顯示按鍵的ASCII碼及對(duì)應(yīng)的字符。如圖6.13所示。【例6.8】利用KeyPress事件，可以對(duì)輸入的數(shù)據(jù)進(jìn)行過濾。如圖6.14所示?！纠?.9】使用Move方法使窗體移動(dòng)并改變其大小。如圖6.15所示。6.3 多窗體在集成開發(fā)環(huán)境中，使用“工程添加窗體”菜單，就可以在一個(gè)工程中使用多個(gè)窗體。被設(shè)置為啟動(dòng)對(duì)象的窗體在程序運(yùn)行之初會(huì)被自動(dòng)加載和顯示，但是只能在工程屬性中設(shè)置一個(gè)窗體模塊為啟動(dòng)對(duì)象。當(dāng)啟動(dòng)對(duì)象是Sub Main過程時(shí)，要顯示窗體或當(dāng)顯示一個(gè)窗體后再顯示其他的窗體，就要考慮窗體的加載、顯示、隱藏和卸載問

17、題。6.3.1 加載窗體加載窗體使用Load語(yǔ)句。格式：Load 窗體名功能：加載窗體到內(nèi)存。說明：加載窗體只是將這個(gè)窗體對(duì)象裝入內(nèi)存，但并不顯示這個(gè)窗體對(duì)象。此語(yǔ)句只是需要在初始化時(shí)加載所有的窗體并在以后需要他們的時(shí)候顯示。當(dāng)VB加載窗體時(shí)，先把窗體的各屬性設(shè)置為初始值，再執(zhí)行Load事件。6.3.2 顯示窗體顯示一個(gè)窗體就要把它的Visible屬性設(shè)置為True。顯示一個(gè)窗體還可以用窗體對(duì)象的Show方法。格式：窗體名.Show功能：將窗體顯示在屏幕上。說明：如果在調(diào)用一個(gè)窗體的Show方法時(shí)，指定的窗體尚未加載，VB將自動(dòng)裝載該窗體。6.3.3 隱藏窗體把一個(gè)窗體的Visible屬性設(shè)置

18、為False或使用它的Hide方法，就可以把窗體隱藏。格式：窗體名.Hide功能：將窗體隱藏起來。說明：隱藏窗體并不把窗體從內(nèi)存中卸載，只是變得不可見。在使用Visible屬性或Hide方法隱藏窗體時(shí)，如果窗體尚未加載，則VB會(huì)加載該窗體，但不會(huì)讓它顯示出來。6.3.4 卸載窗體窗體用完后可以卸載窗體，要用Unload語(yǔ)句。Unload語(yǔ)句的語(yǔ)法格式與Load語(yǔ)句相同。格式：UnLoad 窗體名功能：將窗體從內(nèi)存中卸載下來。說明：當(dāng)卸載一個(gè)窗體時(shí)它的子窗體也會(huì)被卸載。6.3.5 建立多窗體1.建立多窗體的操作步驟2.啟動(dòng)窗體【例6.10】設(shè)計(jì)一個(gè)具兩個(gè)窗體的程序，在每個(gè)窗體中裝入一幅畫?！纠?

19、.11】設(shè)計(jì)一個(gè)程序，當(dāng)在窗體上選擇“輸入成績(jī)”按鈕后，屏幕就彈出一個(gè)輸入學(xué)生成績(jī)窗體，用戶可以輸入學(xué)生的每科成績(jī)，輸入完成，單擊“計(jì)算”按鈕，屏幕就彈出計(jì)算總分與平均分的窗體，并計(jì)算出學(xué)生的總分與平均分。6.4 鼠標(biāo)事件與鍵盤事件6.4.1 鼠標(biāo)事件 MouseDown、MouseUp和MouseMove三個(gè)鼠標(biāo)事件過程如下(以Form對(duì)象為例)：Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single) Sub Form_MouseUp(Button As Integer,Shift As

20、Integer, X As Single,Y As Single) Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single,Y As Single)這三個(gè)鼠標(biāo)事件過程具有相同的參數(shù)，他們把鼠標(biāo)的信息傳給過程。6.4.1 鼠標(biāo)事件(1)Button：被按下的鼠標(biāo)按鈕，可以取以下3個(gè)值，如表6.5所示。(2)Shift：表示Shift、Ctrl和Alt的狀態(tài)。如表6.7所示。(3)X,Y：這兩個(gè)值對(duì)應(yīng)于當(dāng)前鼠標(biāo)的位置，采用ScaleMode屬性指定的位置。說明：(1)有些鼠標(biāo)只有兩個(gè)按鈕，或者雖有3個(gè)按鈕，但Window

21、s鼠標(biāo)驅(qū)動(dòng)程序不能識(shí)別中間按鈕。在這種情況下，表6.6中的后4個(gè)參數(shù)值不能使用。6.4.1 鼠標(biāo)事件表6.5 Button按鈕的3個(gè)取值符號(hào)常量 值 作 用 LEFT_BUTTON 1 按下鼠標(biāo)左按鈕RIGHT_BUTTON 2 按下鼠標(biāo)右按鈕MIDDLE_BUTTON 4 按下鼠標(biāo)中間按鈕表6.6 Button按鈕狀態(tài)十進(jìn)制 二進(jìn)制 作 用 0 000 沒按下任何按鈕 1 001 左鍵被按下(默認(rèn)) 2 010 右鍵被按下 3 011 左、右按鈕同時(shí)被按下 4 100 中間按鈕被按下 5 101 同時(shí)按下中間和左按鈕 6 110 同時(shí)按下中間和右按鈕 7 111 3個(gè)按鈕同時(shí)被按下6.4.1

22、 鼠標(biāo)事件(2)對(duì)于單按鼠標(biāo)器，它的按鈕定義為左按鈕。如果鼠標(biāo)帶兩個(gè)按鈕，并使用Windows的控制面板交換了鼠標(biāo)器的左、右鈕，那么，當(dāng)按右按鈕時(shí)，VB認(rèn)為是按了左按鈕。例如，如果按住Ctrl鍵，然后在坐標(biāo)為(2000，3000)的點(diǎn)上按下鼠標(biāo)器右鍵，則立即調(diào)用Form_MouseDown過程，釋放鼠標(biāo)右鍵時(shí)，調(diào)用Form_MouseUp過程。此時(shí)Button、Shift、X、Y這四個(gè)參數(shù)的值分別為2、2、2000和3000。6.4.1 鼠標(biāo)事件(3)Shift是轉(zhuǎn)換鍵，它指的是3個(gè)轉(zhuǎn)換狀態(tài)，包括Shift、Ctrl和Alt。這3個(gè)鍵分別以二進(jìn)制方式表示，每個(gè)鍵用三位，即：Shift鍵為001

23、，Ctrl鍵為010，Alt鍵為100。當(dāng)按下Shift鍵時(shí)，Shift參數(shù)的值為001(十進(jìn)制數(shù)1)，當(dāng)按下Ctrl鍵時(shí),Shift參數(shù)的值為010(十進(jìn)制數(shù)2)，而按下Alt鍵時(shí)，Shift參數(shù)的值為100(十進(jìn)制數(shù)4)。如果同時(shí)按下兩個(gè)或三個(gè)轉(zhuǎn)換鍵，則Shift參數(shù)的值即為上述兩者或三者之和。因此，Shift參數(shù)共可取8種值，如表6.7所示。表6.7 Shift參數(shù)的值十進(jìn)制 二進(jìn)制 作 用 0 000 沒有按下轉(zhuǎn)換鍵 1 001 按下一個(gè)Shift鍵 2 010 按下一個(gè)Ctrl鍵 3 011 按下一個(gè)Ctrl+Shift鍵 4 100 按下一個(gè)Alt鍵 5 101 按下一個(gè)Alt+S

24、hift鍵 6 110 按下一個(gè)Alt+Ctrl鍵 7 111 按下一個(gè)Alt+Ctrl+Shift鍵6.4.2 鍵盤事件當(dāng)控制焦點(diǎn)置于某對(duì)象上，同時(shí)用戶按下鍵盤中的任一鍵，便會(huì)使對(duì)象引發(fā)KeyDown事件，釋放按鍵便引發(fā)對(duì)象的KeyUp事件。與KeyPress事件不同，KeyUp事件和KeyDown事件返回的是被按下或釋放的鍵盤掃描碼和組合鍵的狀態(tài)。其事件過程形式如下： Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Sub object_KeyDown(Index As Integer,KeyCode As Integer,Shift As Integer) Sub Form_KeyUp(KeyCode As Integer,Shift As Integer) Sub object_KeyUp(Index As Integer,KeyCode As Integer,Shift As Integer)6.4.2 鍵盤事件其中：(1)KeyCode參數(shù)是用戶所操作的那個(gè)鍵的掃描代碼，它告訴事件過程，用戶操作的物理鍵，也就是說，大寫字母和小寫字母使用同一個(gè)鍵，他們的KeyCode相同。對(duì)于有上檔字符和下檔字符的鍵，其KeyCode也是相同的，即為下