2 VB可視化程序設(shè)計(jì)

第二章VB可視化程序設(shè)計(jì)

面向?qū)ο缶幊趟枷氪绑w的應(yīng)用標(biāo)簽控件的應(yīng)用文本框控件的應(yīng)用命令按鈕控件的應(yīng)用本章內(nèi)容：2.1可視化程序設(shè)計(jì)引例【案例2.1】設(shè)計(jì)一個(gè)登錄界面，當(dāng)用戶輸入的用戶名及密碼都正確時(shí)，轉(zhuǎn)入下一窗口，否則提示用戶重新輸入。程序需要添加兩個(gè)窗體，由登陸窗體正確登陸后進(jìn)入另一窗體。登陸窗體中用到兩個(gè)文本框、兩個(gè)標(biāo)簽控件和一個(gè)命令按鈕控件。界面實(shí)現(xiàn)如下：代碼：PrivateSubCommand1_Click()DimaAsInteger,sAsStringIfText1.Text="jlj"AndText2.Text="123"ThenForm1.Hide '用戶名密碼正確

Form2.ShowElse

s=Text1.Texta=MsgBox("用戶名或密碼有誤，“確定”重新輸入，“取消”退出",vbOKCancel+vbExclamation)Ifa=1Then '重新輸入

Text1.Text=""Text2.Text=""Text1.SetFocusElseEndEndIfEndIfEndSub代碼（續(xù)）：PrivateSubCommand2_Click()EndEndSub

保存后運(yùn)行，當(dāng)用戶名輸入jlj，密碼輸入123時(shí)，登陸正確，進(jìn)入下一窗體，否則提示錯(cuò)誤。2.2對象的屬性、事件和方法2.2.1屬性

屬性值用于描述或設(shè)置對象的某些性質(zhì)，用戶可在運(yùn)行模式和設(shè)計(jì)模式下修稿屬性值，必要時(shí)也可讀取某一屬性值作為程序的已知量。

對象是面向?qū)ο缶幊痰闹黧w，如引例中添加到窗體上的具體控件以及窗體本身都屬于對象。每一個(gè)對象都具有各自的屬性、事件和方法。屬性說明名稱（Name）每個(gè)對象都具有，用于識別該對象Caption設(shè)置對象在運(yùn)行模式下所顯示的字符（窗體為標(biāo)題）ForeColor設(shè)置對象的前景色BackColor設(shè)置背景色Width設(shè)置對象的寬度Height設(shè)置對象的高度Left設(shè)置對象左上角的橫坐標(biāo)Top設(shè)置對象左上角的縱坐標(biāo)Font對象上顯示文字的字體、字號等字符格式化設(shè)置Enabled設(shè)置對象在運(yùn)行模式下是否可用，為布爾類型：True時(shí)可用，F(xiàn)alse時(shí)不可用Visible設(shè)置對象在運(yùn)行模式下是否可見，為布爾類型：True時(shí)可見，F(xiàn)alse時(shí)隱藏（實(shí)際存在）常用屬性2.2.2事件

用戶將若干程序代碼置于事件過程中，當(dāng)應(yīng)用程序進(jìn)入運(yùn)行模式后，系統(tǒng)并不會依次去執(zhí)行每一個(gè)事件過程代碼，而是處于等待狀態(tài)，當(dāng)某一事件發(fā)生時(shí)，該事件過程才被執(zhí)行，這就是事件驅(qū)動(dòng)程序。事件觸發(fā)條件Click鼠標(biāo)單擊對象時(shí)觸發(fā)該事件Dbclick鼠標(biāo)雙擊對象時(shí)觸發(fā)該事件GotFocus當(dāng)對象獲得焦點(diǎn)時(shí)觸發(fā)該事件LostFocus當(dāng)對象失去焦點(diǎn)時(shí)觸發(fā)該事件KeyDown按下鍵盤上一個(gè)鍵時(shí)觸發(fā)焦點(diǎn)對象的該事件KeyUp釋放鍵盤上一個(gè)鍵時(shí)觸發(fā)焦點(diǎn)對象的該事件常用事件KeyPress按下并釋放鍵盤上一個(gè)鍵時(shí)觸發(fā)焦點(diǎn)對象的該事件MouseDown按下鼠標(biāo)任意鍵時(shí)觸發(fā)該事件MouseMove鼠標(biāo)滑過對象時(shí)觸發(fā)該對象的事件MouseUp抬起鼠標(biāo)任意鍵時(shí)觸發(fā)該事件Resize對象第一次顯示或尺寸發(fā)生變化時(shí)觸發(fā)該事件2.2.3方法對象的方法已定義好的、嵌入對象內(nèi)部的一段代碼。語法格式：對象.方法[參數(shù)列表]常用的方法有：Print方法：在窗體、圖片框、打印機(jī)或調(diào)試窗口中輸出字符串。Cls方法：清除運(yùn)行過程中由Print方法打印在對象上的文本或圖形。Move方法：移動(dòng)、改變對象或窗體。2.3窗體2.3.1窗體的屬性

作為特殊對象，窗體也是其他對象的載體。窗體也有相應(yīng)的屬性、事件和方法。

除了常用屬性外，窗體還有一些特有的主要屬性，見下表。屬性名說明備注Boderstyle設(shè)置窗體邊界樣式、是否可改變大小只在設(shè)計(jì)模式有效MaxButtonMinButton設(shè)置在運(yùn)行模式下，窗體的最大化、最小化按鈕是否可用只在設(shè)計(jì)模式有效Icon設(shè)置控制菜單的圖標(biāo)ControlBox是否顯示控制菜單圖標(biāo)與狀態(tài)控制按鈕ShowInTaskbar設(shè)置窗體是否在任務(wù)欄中顯示只在設(shè)計(jì)模式有效WindowState設(shè)置窗體啟動(dòng)時(shí)的狀態(tài)0：正常狀態(tài)1：最小化狀態(tài)2：最大化狀態(tài)Moveable設(shè)置窗體是否可移動(dòng)只在設(shè)計(jì)模式有效Picture為窗體加載背景圖片AutoRedraw設(shè)置窗體重繪功能是否有效，即窗體被隱藏重新顯示后，是否可以還原之前的畫面默認(rèn)為False窗體主要屬性2.3.2窗體的事件窗體可響應(yīng)所有鼠標(biāo)事件和鍵盤事件，以及一些其他事件。常用的窗體事件如下：Click、Dbclick事件：鼠標(biāo)單擊、雙擊時(shí)觸發(fā)。Load、Unload事件：窗體加載、卸載時(shí)觸發(fā)。GotFocus、LostFocus事件：窗體得到焦點(diǎn)、失去焦點(diǎn)時(shí)觸發(fā)。Activate、Deactivate事件：窗體由活動(dòng)變?yōu)椴换顒?dòng)、由不活動(dòng)變?yōu)榛顒?dòng)狀態(tài)時(shí)觸發(fā)。Resize事件：窗體大小改變時(shí)觸發(fā)。2.3.3窗體的方法（1）Show方法用于顯示窗體。語法格式：Form.Show（2）Hide方法用于隱藏窗體。語法格式：Form.Hide（3）Print方法用于在窗體上顯示內(nèi)容。語法格式：Form.Print[參數(shù)列表]

以下代碼段運(yùn)行結(jié)果為：a="我是表達(dá)式"Form1.Print"--------"Form1.PrintaForm1.PrintPrint3+4（4）Cls方法語法格式：Form.Cls用于清除在程序運(yùn)行過程中由Print方法顯示在窗體上的內(nèi)容。（5）Move方法語法格式：Form.MoveLeft,[Top],[Width],[Height]用于改變窗體的位置和大小。參數(shù)分別指示出窗體移動(dòng)后的左邊距、上邊距，以及寬度、高度。【案例2.2】

創(chuàng)建兩個(gè)可互相調(diào)用的窗體，由Form1進(jìn)入Form2后，F(xiàn)orm2可選擇“最大化”或“標(biāo)準(zhǔn)”兩種顯示狀態(tài)，不允許用戶手工拖動(dòng)改變Form2的位置。關(guān)閉Form2時(shí)，有“確實(shí)要卸載本窗體”的文字提示。2.4基本控件

基本控件是VisualBasic內(nèi)部定義的控件，所以也叫內(nèi)部控件。啟動(dòng)VisualBasic集成環(huán)境后，工具箱中顯示的就是VisualBasic的內(nèi)部控件?！景咐?.3】通過標(biāo)簽控件的單擊事件實(shí)現(xiàn)該控件大小的改變。2.4.1標(biāo)簽控件

除了Caption、FontSize等公共屬性外，標(biāo)簽控件還有一些特殊屬性。①Alignment屬性，設(shè)置標(biāo)簽控件上文本的對齊方式，屬性值有三種選擇：LeftJustify：左對齊。RightJustify：右對齊。Center：居中對齊。②AutoSize屬性，決定標(biāo)簽控件的尺寸是否能隨著文本內(nèi)容的多少自動(dòng)調(diào)整大?。篢rue：可調(diào)整。False：不可調(diào)整。該屬性可與WordWrap屬性結(jié)合用。③WordWrap屬性，是否允許標(biāo)簽控件換行。只有當(dāng)AutoSize屬性值為True時(shí)，該屬性設(shè)置才有效。True：可換行。False：不可換行。④BackStyle屬性，設(shè)置標(biāo)簽控件的背景：Transparent：透明背景。Opaque：不透明，可通過BackColor屬性設(shè)置背景顏色。⑤BorderStyle屬性，設(shè)置標(biāo)簽控件的邊框樣式：None：不帶邊框。FixedSingle：帶單邊框。標(biāo)簽控件也可響應(yīng)鼠標(biāo)、鍵盤等事件，但在程序設(shè)計(jì)中很少使用。【案例2.4】設(shè)計(jì)一個(gè)具有復(fù)制功能的文本框。2.4.2文本框?qū)傩哉f明備注Text文本框的內(nèi)容Locked決定文本框是否可編輯，值為True時(shí)為只讀文本True：不可編輯False：可編輯（默認(rèn)）Maxlength限制文本框可接收的最長字符長度0：不限制（默認(rèn)）n：限制長度不超過正整數(shù)nMultiLine決定文本框是否允許多行顯示True：允許False：不允許（默認(rèn)）ScrollBars設(shè)置文本框滾動(dòng)條的狀態(tài)。需加滾動(dòng)條時(shí)，應(yīng)先置MultiLine值為True0-None1-Horizontal2-Vertical3-BothPasswordChar設(shè)置運(yùn)行模式下文本框內(nèi)容的替代字符SelStart返回選定字符串的起始位置（起始位置為0）運(yùn)行時(shí)有效SelLength返回選定字符串長度（整數(shù)類型）SelText返回選定字符串內(nèi)容1.屬性2．事件文本框控件常用的有以下事件：Change事件。當(dāng)文本框Text屬性值發(fā)生改變時(shí)觸發(fā)。KeyPress事件。當(dāng)用戶按下并抬起鍵盤上任意鍵時(shí)觸發(fā)，同時(shí)將此次按鍵的ASCII碼（整數(shù)）作為返回值保存在名為KeyAscii變量中，以識別所按下的鍵名。GotFocus、LostFocus事件。文本框得到、失去焦點(diǎn)時(shí)觸發(fā)的事件。MouseUp、MouseDown和MouseMove事件。這是三個(gè)鼠標(biāo)事件，分別為在文本框上鼠標(biāo)鍵按下、鼠標(biāo)鍵抬起以及鼠標(biāo)滑過時(shí)觸發(fā)的事件。3．方法

SetFocus方法是文本框常用的方法，執(zhí)行結(jié)果是將光標(biāo)置于文本框上。如：

Text1.SetFocus '光標(biāo)置于Text1【案例2.6】設(shè)計(jì)一個(gè)識字卡應(yīng)用程序。2.4.3命令按鈕命令按鈕常用屬性如下：（1）Caption屬性設(shè)置命令按鈕的顯示文本。（2）Default屬性設(shè)置命令按鈕為缺省的活動(dòng)按鈕。運(yùn)行模式下，按【Enter】鍵相當(dāng)于單擊該命令按鈕。（3）Cancel屬性設(shè)置為缺省的取消按鈕。按【Esc】鍵相當(dāng)于單擊該按鈕。（4）Style屬性設(shè)置按鈕的外觀。0-Standard：標(biāo)準(zhǔn)Windows按鈕。1-Graphical：可在按鈕上放置圖片。（5）Picture、DownPicture、DisabledPicture屬性當(dāng)Style屬性值設(shè)為1時(shí)，可通過這三個(gè)屬性為按鈕添加顯示圖片，形成按鈕圖標(biāo)。正常情況下，顯示的是Picture屬性加載的圖形。按鈕按下時(shí)，顯示的是Down