第2章VisualBasic簡單程序設計

目錄2.1面向對象程序設計基本概念2.2窗體2.3基本控件2.4VisualBasic應用程序設計步驟2.1面向對象程序設計基本概念

2.1.1對象2.1.2對象的三要素2.1.1對象在現實世界中，我們身邊的一切事物都是對象，一本書、一個人、一臺計算機等等。每個對象都有描述其特征的屬性和行為。“類”是對具有相同屬性和相同操作的一組對象的共同描述，是同種對象的抽象。例如，一個班級的所有同學都屬于學生的范疇，學生就是一個類，其中“張三”是學生類中的一個具體對象。在VB中，系統預先定義了眾多的類，如控件工具箱中的命令按鈕、文本框、定時器等控件就是VB系統預先定義的類，設計程序時可以用它來定義對象，當我們將控件工具箱中某個控件拖放到窗體上時，就相當于用類定義了一個對象。2.1.1對象在VB6.0中，對象分為兩類，一類是由系統設計好的，稱為預定義對象，可以直接使用或對其進行操作；另一類是由用戶定義的，可以建立用戶自己的對象。

2.1.2對象的三要素

VB中的對象由三大要素描述，分別是：描述對象的特性，即屬性；對象執行的某種行為，即方法；作用在對象上的動作，即事件。（1）屬性(Property)屬性是用來描述對象的特性，不同的對象有不同的屬性。每個屬性的取值稱為屬性值，不同的對象其同一屬性的屬性值也不相同。

2.1.2對象的三要素

前面介紹的屬性窗口中包含各種屬性，可以在屬性列表中為某一具體的對象設置屬性；也可以在程序代碼中通過賦值語句實現，格式如下：

對象名.屬性名=屬性值例如：Label1.Caption="歡迎使用VisualBasic6.0"這里，Label1是對象名，代表標簽；Caption是屬性名，表示“標題”；"歡迎使用VisualBasic6.0"是屬性值。

2.1.2對象的三要素

（2）方法(Method)方法指的是作用在對象上的內部指令或函數的統稱，這些內部指令或函數因其作用在對象上，所以就給予一個特殊名稱叫“方法”。方法決定了對象可以執行的行為。一般格式如下：

對象名.方法名[參數列表]例：Form1.Print"VisualBasic程序設計基礎！"這里，Form1是窗體的名稱；Print是方法；整個語句的功能是在Form1的窗體上顯示字符串“VisualBasic程序設計基礎！”。2.1.2對象的三要素

（3）事件(Event)

所謂事件，是由VB預先設置好的、能夠被對象識別的動作。例如：Click(單擊)、DblClick(雙擊)、Load(裝入)、Gotfocus(獲得焦點)、Activate(被激活)、Change(改變)等。不同的對象能夠識別的事件也不一樣。例如，窗體能識別單擊和雙擊事件，而命令按鈕只能識別單擊事件。當事件由用戶觸發(如Click)或由系統觸發(如Load)時，對象就會對該事件做出響應；響應某個事件后所執行的操作是通過一段代碼來實現的，這段代碼就叫做事件過程。2.1.2對象的三要素

在VB中，編程的核心就是為每個要處理的對象事件編寫相應的事件過程，以便在觸發該事件時執行相應的操作。一般格式如下：PrivateSub對象名_事件名（[參數列表]）…（程序代碼）EndSub事件過程的開始(PrivateSub對象名_事件名)和結束(EndSub)是由系統自動生成的，因此程序員只需在事件過程中編寫對事件做出響應的程序代碼。2.1.2對象的三要素

例：PrivateSubCommand1_Click()'顯示信息Text1.Text="VisualBasic程序設計基礎！"Form1.Print"長春工程學院"EndSub這里，操作的對象是Command1；事件是Click(單擊)。

2.2窗體

2.2.1窗體結構2.2.2窗體的屬性、方法和事件2.2.1窗體結構

窗體結構與Windows下的窗口十分類似。在程序的設計階段，這些用戶界面稱為窗體；在程序運行后稱為窗口。窗口可以任意縮放、移動，可最大化也可以最小化。系統菜單標題欄最小化按鈕最大化按鈕關閉按鈕窗體2.2.2窗體的屬性、方法和事件

（1）常用屬性窗體屬性決定了窗體的外觀和操作。可以用兩種方法來設置窗體屬性：一是通過屬性窗口設置；二是在窗體事件過程中通過代碼來設置。在程序代碼中設置或改變對象屬性值使用如下賦值表達式：<對象名>.<屬性名>=屬性值。大部分屬性既可以通過屬性窗口設置，也可以通過代碼設置，只有少數屬性例外。通常把只能通過屬性窗口設置的屬性稱為“只讀屬性”，例如Name屬性。2.2.2窗體的屬性、方法和事件

序號屬性說明默認值1Name（名稱）窗體的名稱。窗體和所有控件在創建時由VB自動提供一個默認名稱，可在屬性窗口中修改。每個對象都有名稱Form12Caption（標題）窗體標題欄上顯示的文字Form13Width（寬度）對象的寬度，每個對象都有該屬性。這里是窗體的水平寬度4Height（高度）對象的高度，每個對象都有該屬性。這里是窗體的垂直高度5Left（左邊界限）窗體左上角距屏幕左邊的距離6Top（上方界限）窗體左上角距屏幕頂部的距離2.2.2窗體的屬性、方法和事件

序號屬性說明默認值7ForeColor（前景顏色）窗體工作區的前景色，即正文顏色&H80000012&8BackColor（背景顏色）窗體工作區的背景色&H8000000F&9Enabled（可用）決定窗體是否響應用戶的事件Ture：能夠響應用戶事件；False：不能響應用戶事件True10Visible（可視）決定運行后窗體是否可見Ture：窗體可見；False：窗體隱藏True11Font（字體）宋體12AutoRedraw（重繪）Ture：當縮小了的或部分內容被覆蓋的窗體復原時，重繪覆蓋的內容；False：不重繪曾被覆蓋了的內容False2.2.2窗體的屬性、方法和事件

序號屬性說明默認值13Appearance（外觀）0-平面：窗體以平面顯示；1-立體：窗體以立體顯示1-立體14BorderStyle（邊界）設定窗體邊界的樣式0：無框線，位置、大小固定；1：單線大小固定；2：可調整；3：固定大小的對話框；4：固定大小的工具窗口；5：可調整的工具窗口2-可調整15Icon（圖標）設定/改變窗體左上角的小圖片；當ControlBox屬性設為True，運行后點擊窗體圖標會彈出控制菜單[圖標]16Picture（圖案）設置將要顯示在窗體上的圖形的文件名和路徑無17WindowState（窗體狀態）程序運行后窗體以什么狀態顯示。0：正常，窗體為設計階段大小；1：最小化狀態，窗體縮為圖標；2：最大化狀態，窗體占滿整個屏幕0-正常2.2.2窗體的屬性、方法和事件

（2）常用方法窗體的方法是指窗體可以執行的動作和行為，在VB程序代碼中，對象調用方法的一般格式為：

<對象名>.<方法名>[參數1，參數2，…]

調用方法時，是否需要參數須根據是何方法以及具體的使用情況而定。2.2.2窗體的屬性、方法和事件

（2）常用方法窗體含有許多方法，通過在代碼中調用方法可以執行某種行為。常用方法如下：

Show方法：顯示被遮住的窗體，或將窗體載入內存后再顯示。語法格式為

對象名.Show[模式]調用Show方法將顯示指定的窗體。2.2.2窗體的屬性、方法和事件

（2）常用方法

Hide方法：使窗體從屏幕上暫時隱藏，但并沒有從內存中清除，需要時可用Show方法顯示。語法格式為：

對象名.Hide如果省略窗體名，則默認為當前窗體。2.2.2窗體的屬性、方法和事件

（2）常用方法

Print方法：該方法用來在窗體上輸出文本和數據。除窗體對象外，圖片框控件也有Print方法，該方法的語法格式為：

[對象名.]Print[表達式表][,|;]

2.2.2窗體的屬性、方法和事件

（2）常用方法

Move：窗體調用該方法可以進行移動，并可在移動中動態改變窗體的大小，語句格式為

[對象名.]MoveX[,Y[,Width[,Height]]]2.2.2窗體的屬性、方法和事件

（2）常用方法

Cls方法：用于清除窗體上的文本或圖形。語句格式為

[對象名.]Cls對象名省略，則清除當前窗體中所顯示的內容。2.2.2窗體的屬性、方法和事件

（3）常用事件與窗體有關的事件較多，其中常用的有以下幾個：Initialize事件：僅當窗體第一次創建時（用對象的方法）觸發該事件。編程時一般將窗體或其他對象的屬性設置的初始化代碼放在該事件過程中。Load事件：當窗體裝入到內存時就會觸發Load事件。編程時，一般把設置控件屬性默認值和窗體級變量的初始化代碼放到Load事件過程中。2.2.2窗體的屬性、方法和事件

（3）常用事件

Activate、Deactivate事件：當窗體變為活動窗口時觸發Activate事件，而在另一個窗體變為活動窗口前觸發Deactivate事件。UnLoad事件：當從內存中清除一個窗體時觸發該事件。如果重新裝入該窗體，則窗體中所有的控件都要重新初始化。Click事件：單擊鼠標左鍵時發生的事件。程序運行時，單擊窗口內的空白處將調用窗體的Form_Click事件過程，否則調用控件的Click事件過程。2.2.2窗體的屬性、方法和事件

（3）常用事件DblClick事件：雙擊鼠標左鍵時發生的事件。Paint事件：為了確保程序運行時，不至于因某些原因使窗體內容丟失，通常用Paint事件過程來重畫窗體內容。Resize事件：運行時如果改變窗體的大小，則會自動觸發該事件。2.3基本控件

2.3.1標簽2.3.2文本框2.3.3命令按鈕2.3基本控件

VB6.0控件分為三類：標準控件(內部控件)：由VB本身提供的控件，如標簽、文本框、圖片框等。啟動VB后，這些控件就顯示在工具箱中，既不能添加，也不能刪除。ActiveX控件：以前版本中稱為OLE控件或定制控件。這些控件使用前必須添加到工具箱中，否則不能在窗體中使用。可插入對象：是由其他應用程序創建的不同格式的數據，如MicrosoftExcel。因為這些對象能添加到工具箱中，所以可以把它們當作控件使用。2.3基本控件

啟動VB6.0后，工具箱中列出的就是標準控件，或稱內部控件。工具箱實際上是一個窗口，也稱為工具箱窗口。通常位于窗體的左側。可以單擊工具箱窗口右上角的“×”關閉工具箱；也可以通過“視圖”菜單的“工具箱”命令打開工具箱窗口。

工具箱窗口

指針（Pointer）標簽（Label） 框架（Frame） 復選框（CheckBox） 組合框（ComboBox） （PictureBox）圖片框

（TextBox）文本框（CommandButton）命令按鈕 水平滾動條（HScrollBar） 計時器（Timer） 目錄列表框（DirListBox） 形狀（Shape） 圖像框（Image） OLE容器（OLE） （OptionButton）單選按鈕 （ListBox）列表框

（VScrollBar）垂直滾動條（DriveListBox）驅動器列表框（FileListstBox）文件列表框框（Line）線條（Data）數據標準控件名稱與作用

名稱作用Pointer(指針)這不是一個控件，只有在選擇Pointer后，才能改變窗體中控件的位置和大小PictureBox(圖片框)用于顯示圖像，包括圖片或文本，VB把他們看成是圖形。可以裝入位圖(Bitmap)、圖標(Icon)以及.wmf、.jpg、.gif等各種圖形格式的文件，或作為其他控件的容器(父控件)Label(標簽)可以顯示(輸出)文本信息，但不能輸入文本TextBox(文本框)文本的顯示區域，既可輸入也可輸出文本，并可對文本進行編輯Frame(框架)組合相關的對象，將性質相同的控件集中在一起CommandButton(命令按鈕)用于向VB應用程序發出指令，當單擊此按鈕時，可執行指定的操作CheckBox(復選框)又稱檢查框，用于多重選擇OptionButton(單選按鈕)又稱錄音機按鈕，用于表示單項的開關狀態標準控件名稱與作用

名稱作用ComboBox(組合框)為用戶提供對列表的選擇，或者允許用戶在附加框內輸入選擇項。它把TextBox(文本框)和ListBox(列表框)組合在一起，既可選擇內容，又可進行編輯ListBox(列表框)用于顯示可供用戶選擇的固定列表HScrollBar(水平滾動條)用于表示在一定范圍內的數值選擇。常放在列表框或文本框中用來瀏覽信息，或用來設置數值輸入VScrollBar(垂直滾動條)用于表示在一定范圍內的數值選擇。可以定位列表，作為輸入設備或速度、數量的指示器Timer(計時器)在給定的時刻觸發某一事件DriveListBox(驅動器列表框)顯示當前系統中的驅動器列表標準控件名稱與作用

名稱作用DirListBox(目錄列表框)顯示當前驅動器磁盤上的目錄列表FileListstBox(文件列表框)顯示當前目錄中文件的列表Shape(形狀)在窗體上繪制矩形、圓等幾何圖形Line(線條)在窗體上畫直線Image(圖像框)顯示一個位圖式圖像，可作為背景或裝飾的圖像元素Data(數據)用來訪問數據庫OLE(OLE容器)用于對象的連接與嵌入2.3.1標簽

標簽（Label）的用途就是顯示文字。標簽的Caption屬性就決定了將要顯示的文字信息。屬性說

明默認值Name（名稱）標簽的名稱Label1Caption（標題）設置要在標簽上顯示的文字Label1AutoSize（自動調整大小）使標簽能夠自動水平擴充來適應標簽上顯示的文字。True：根據標題文字自動調整標簽控件的大小；False：控件大小不變FalseAlignment（對齊）標簽中文本的對齊的方式。0-靠左對齊；1-靠右對齊；2-居中對齊0-左對齊BorderStyle（邊界樣式）設定外框的樣式。0-無框線；1-單線固定0-無框線BackStyle（背景樣式）設定背景樣式。0-透明；1-不透明1-不透明2.3.1標簽

標簽對象可以接受的事件有單擊（Click）、雙擊、（DblClick）、改變（Change）。但標簽只用于顯示文字，因此，一般不需要編寫事件過程。2.3.2文本框

文本框（TextBox）是用于輸入和輸出信息的最主要方法。與標簽不同的是，用戶可以編輯文本框中的信息。（1）文本框的主要屬性屬性說明默認值Name（名稱）文本框的名稱Text1Text（標題）顯示在文本框上的文本，為字符型Text1MaxLength（文本最大長度）允許輸入的最多字符個數，默認為0，表示長度不限02.3.2文本框

屬性說明默認值MultiLine（多行）設置文本框中是否可以輸入/顯示多行文本。True：多行顯示，即當輸入的文本超出文本框邊界，將自動換行；False：單行顯示FalsePasswordChar（密碼字符）向文本框中輸入密碼時，所有字符均顯示為該屬性設定的字符（如*）Lock（鎖定）決定控件是否可編輯。True：不能修改，只能對文字做選取和滾動顯示；False：允許修改FalseScrollBar（滾動條）為文本框添加滾動條，僅當MultiLine屬性為真時該起作用。0-None：無滾動條；1-Horizontal：水平滾動條；2-Vertical：垂直滾動條；3-Both：水平和垂直滾動條02.3.2文本框

（2）文本框常用事件文本框可以識別鍵盤、鼠標操作的多個事件，其中Change、KeyPress、LostFocus、GotFocus是最重要的事件。Change事件：當文本框中的內容發生改變時激活Change事件。用戶輸入新內容或將Text屬性設置新值，都會改變文本框的內容。當用戶輸入一個字符時，就會觸發一次Change事件。2.3.2文本框

（2）文本框常用事件KeyPress事件：當用戶按下并且釋放鍵盤上的一個ANSI鍵時，就會觸發焦點所在控件的KeyPress事件。用于監視用戶輸入到文本框中的內容。用戶輸入的字符會通過KeyAscii參數返回到該事件過程中。2.3.2文本框

（2）文本框常用事件GotFocus與LostFocus事件：當一個對象獲得焦點時觸發事件GotFocus，反之，失去焦點則觸發LostFocus事件。以下幾種情況對象能夠獲得焦點：①鼠標點擊某對象②按Tab鍵使焦點落在某個對象上③在程序代碼中利用SetFocus方法使某對象獲得焦點④按快捷鍵（Alt＋有下劃線的字母）使相應的對象獲得焦點【例2-1】設計一個簡易的加法運算器，任意兩數相加并顯示結果

【畫面說明】用戶界面有3個Text、2個Label和2個Command。FormCaption設置為：“加法器程序”Label1Caption設置為：“+”Label2Caption設置為：“=”Text1Text設置為：“”(空)Text2Text設置為：“”(空)Text3Text設置為：“”(空)Command1Caption設置為：“計算”Command2Caption設置為：“重設”【例2-1】設計一個簡易的加法運算器，任意兩數相加并顯示結果

【程序】PrivateSubcmdAdd_Click() Text3.Text=Str(Val(Text1.Text)+Val(Text2.Text))EndSubPrivateSubcmdReset_Click() Text1.Text="" Text2.Text="" Text3.Text=""EndSub2.3.3命令按鈕

命令按鈕（CommandButton）通常用于完成某種功能，當用戶單擊命令按鈕時就會引發相應的動作。（1）命令按鈕的主要屬性屬性說

明默認值Name命令按鈕的名稱Command1Caption在命令按鈕上顯示的文字Command1Default（默認按鈕）設置命令按鈕是否為默認按鈕。程序運行時，不論窗體中哪個控件（命令按鈕除外）具有焦點，按回車鍵都相當于單擊默認按鈕。True：設為默認按鈕；False：不是默認按鈕False2.3.3命令按鈕

（1）命令按鈕的主要屬性屬性說

明默認值Cancel（取消按鈕）設置命令按鈕是否為取消按鈕。程序運行時，不論窗體中哪個控件具有焦點，按Esc鍵都相當于單擊取消按鈕。True：設為取消按鈕；False：不是取消按鈕FalseStyle（樣式）設置按鈕是標準的還是圖形的。0-標準的；1-圖形的0Picture設定按鈕上的圖形。只有當Style屬性為1，Picture屬性才會起作用None2.3.3命令按鈕

（2）命令按鈕常用的事件Click事件：單擊命令按鈕時觸發Click事件并執行Click事件過程中的代碼。命令按鈕不支持DblClick事件。2.3.3命令按鈕

（3）選擇命令按鈕程序運行時，可以用以下方法之一來選擇命令按鈕：（1）鼠標點擊命令按鈕。（2）按Tab鍵使焦點落在命令按鈕上，然后按空格鍵或者回車鍵來選擇命令按鈕。（3）在程序代碼中將命令按鈕的Value屬性設為True。（4）按Alt＋命令按鈕的訪問鍵。（5）從代碼中調用命令按鈕的Click事件。（6）對于默認按鈕，按回車鍵即可選中。（7）對于取消按鈕，按Esc鍵即可選中。選中命令按鈕時，按鈕處于按下狀態，并調用Click事件過程。【例2-2】設計一個簡單的應用程序，當用戶單擊“顯示”按鈕時，在標簽控件中顯示“VisualBasic程序設計基礎！”，當用戶單擊“清除”按鈕時，清除文本框中的內容；

【畫面說明】Form界面中2個Command，1個Label。Command1Caption設置為：顯示Name設置為：cmdDisplayCommand2Caption設置為：清除Name設置為：cmdClearLabel1Caption設置為：“”(空)Name設置為：lblMessage【例2-2】設計一個簡單的應用程序，當用戶單擊“顯示”按鈕時，在標簽控件中顯示“VisualBasic程序設計基礎！”，當用戶單擊“清除”按鈕時，清除文本框中的內容；

【程序】PrivateSubcmdClear_Click() lblMessage.Caption=""EndSubPrivateSubcmdDisplay_Click() lblMessage.Caption="VisualBasic程序設計基礎！"End