VB程序設(shè)計(jì)第三講VB可視化編程技術(shù)

a

?VB中的對(duì)象、事件、屬性和方法

本

章

II-VB中基本控件的使用方法

主

要II-VB可視化編程的步驟

內(nèi)

容

管理VisualBasic工程

§2.1VB中的對(duì)象、事件、屬性和方法

2.1.1對(duì)象

對(duì)象，在可視化編程語(yǔ)言中，對(duì)象

是代碼和數(shù)據(jù)的組合，可以作為一個(gè)單

位來(lái)處理。對(duì)象可以是應(yīng)用程序的一部

分，也可以是整個(gè)應(yīng)用程序。例如它可

以是控件或窗體。也可以是菜單和數(shù)據(jù)

庫(kù)等。從可視化編程技術(shù)來(lái)看，這些對(duì)

象具有屬性、方法和事件。屬性是描寫(xiě)

對(duì)象的一組特性（數(shù)據(jù)）。方法告訴對(duì)

象應(yīng)做的事情。事件是對(duì)象所產(chǎn)生的事

情，事情發(fā)生時(shí)要編寫(xiě)代碼進(jìn)行處理。

2011-6-28

【表2?1列出了在VB中可能用到的幾神

類(lèi)型的對(duì)象。

對(duì)象說(shuō)明

命令按鈕窗體上的控件，像命令按鈕、框架等，它們都是對(duì)象。

窗體VB工程中的每個(gè)窗體都是獨(dú)立的對(duì)象

數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)是對(duì)象，并且還包含其他對(duì)象，如字段、索引

等

圖表Excel中的圖表是對(duì)象

表24VB中可能用到的幾種類(lèi)型的對(duì)象

2011-6-284

2.1.2對(duì)象的事件

i?jf--*■__、工-——

對(duì)象的事件是對(duì)象可以識(shí)別的動(dòng)作，即窗體、

控件和其它對(duì)象可以識(shí)別的動(dòng)作。

如命令按鈕是對(duì)象，它可識(shí)別Click的動(dòng)作，

所以命令按鈕有Click。事件。

一個(gè)充氣的氣球作為現(xiàn)實(shí)生活中的一個(gè)對(duì)象，

用針扎它一下事件的響應(yīng)過(guò)程是放氣，對(duì)氣球松

開(kāi)手事件的響應(yīng)過(guò)程是升空。

每一個(gè)窗體和控件都有一個(gè)預(yù)定義的事件集。

可從代碼窗口中的“對(duì)象下拉列表框”中選擇一

個(gè)對(duì)象，然后再單擊“過(guò)程下拉列表框”就會(huì)看

到所選對(duì)象的所有事件過(guò)程名。如下頁(yè)圖2.1所示。

2011-6-285

圖2.1工程中的各種對(duì)象和窗體預(yù)定義的事件集

2011-6-286

2.1.2對(duì)象的事件占

在響應(yīng)事件時(shí)，需要執(zhí)行相應(yīng)的

Basic代碼。所以對(duì)于VisualBasic的中的

每個(gè)事件，都需要編寫(xiě)程序代碼。如果其

中一個(gè)事件發(fā)生，并且在相應(yīng)的事件過(guò)程

中存在代碼，則VisualBasic執(zhí)行該代碼。

盡管VisualBasic中的對(duì)象自動(dòng)識(shí)別預(yù)定

義的事件集，但是它們究竟是否響應(yīng)具體

事件以及如何響應(yīng)具體事件則是編寫(xiě)代碼

的任務(wù)。

2011-6-287

代碼部分與每個(gè)事件對(duì)應(yīng)。想通過(guò)某個(gè)事

件執(zhí)行的動(dòng)作就應(yīng)寫(xiě)在該事件的事件過(guò)程代碼

中。事件過(guò)程的一般格式為：

PrivateSub對(duì)象名_事件名0

此處應(yīng)編寫(xiě)事件響應(yīng)過(guò)程中應(yīng)執(zhí)行的代碼

EndSub

PrivateSub對(duì)象名事件名()為事件過(guò)程

頭.EndSub為事件過(guò)程層;當(dāng)你選擇好事件過(guò)

程，這些代碼將自動(dòng)生成。中間由用戶(hù)填寫(xiě)事

件響應(yīng)過(guò)程中應(yīng)執(zhí)行的代碼。

H幻?>1

2011-6-288

■

對(duì)象所識(shí)別的事件多種多樣，但多

數(shù)類(lèi)型為大多數(shù)控件所共有。例如大多

數(shù)對(duì)象都識(shí)別Click事件，如單擊窗體，

則執(zhí)行窗體的Click事件過(guò)程代碼，單擊

命令按鈕，則執(zhí)行命令按鈕的Click事件

過(guò)程的代碼。

2011-6-289

I.窗體和圖片框類(lèi)事件

(1)Paint事件：當(dāng)某一對(duì)象在屏幕中被移

動(dòng)，改變尺寸或清除后，程序會(huì)自動(dòng)調(diào)用

Paint事件o注意：當(dāng)對(duì)象的AutoDraw屬

性為T(mén)rue(—1)時(shí)，程序不會(huì)調(diào)用Paint

事件。

(2)Resize事件：當(dāng)對(duì)象的大小改變時(shí)觸發(fā)

Resize事件。

(3)Load事件：僅適用于窗體對(duì)象，當(dāng)窗

體被裝載時(shí)運(yùn)行。

(4)Unload事件：僅適用于窗體對(duì)象，當(dāng)

窗體被卸載時(shí)運(yùn)行。

2011-6-2810

2.當(dāng)前光標(biāo)(Focus'產(chǎn)事件*9^

(1)GotFocus事件：當(dāng)對(duì)象獲得焦點(diǎn)時(shí)事件發(fā)

生。

(2)LostFocus事件：當(dāng)對(duì)象失去焦點(diǎn)時(shí)事件發(fā)

生。

3.鼠標(biāo)操作事件

(1)Click事件：鼠標(biāo)單擊對(duì)象。

(2)DblClick事件：鼠標(biāo)雙擊事件。

(3)MouseDown>MouseUp：按下/放開(kāi)鼠標(biāo)

鍵事件。

(4)MouseMove事件：鼠標(biāo)移動(dòng)事件。

2011-6-28it

(1)KeyDown、KeyUp事件：按鍵的按下/

放開(kāi)事件。

(2)KeyPress事件：按鍵事件。

5.改變控制項(xiàng)事件

Change事件：當(dāng)對(duì)象的內(nèi)容發(fā)生改變時(shí)，

觸發(fā)Change事件。

6.其他事件

Timer事件：僅用于計(jì)時(shí)器，每隔一段時(shí)間

被觸發(fā)一次。

2011-6-2812

2.L3;對(duì)象的屬性*—6

屬性是一個(gè)對(duì)象的特性。每個(gè)對(duì)象都

有它自己的屬性，有些屬性可為大多數(shù)對(duì)

象所共有。有些屬性可能是某一對(duì)象獨(dú)有

的。對(duì)于屬性，可以在窗體的布局操作完

成后，直接從屬性窗口中設(shè)置，也可以在

程序運(yùn)行中改變，這應(yīng)根據(jù)自己的需要。

但有些屬性是只讀的，它只能在控件布局

時(shí)在屬性窗口中改變。有些屬性只能在程

序代碼中設(shè)定。

在屬性窗口中設(shè)定屬性的方法如下頁(yè)

圖2.2所示。

2011-6-2813

、,工程1-MicrosoftVisualBasic［設(shè)計(jì)］

文件g編輯⑥視圖叟）工程化）格式電）調(diào)試?運(yùn)行如查詢(xún)?圖表@）工具復(fù)）外接程序也）窗口世）幫助?

1

財(cái)，白，1蘇O甚電穹拗|—e＞【I二■T鼠囹后昔於國(guó)點(diǎn)七840,8402295x1455

工旦-工程1

General圖曼|回_______

?回11盲工程1（I程1）

日巴窗體.

A畫(huà)Q.FermiCForml）

17

國(guó)匡i屋柱-Textl

i1TextlTextBox

<1JJ

XI按字母序I按分類(lèi)序］

?□MaxLength0

Mouseicon(None)ZI

MousePointer0-Default

r￡lMultiLineFalse

OLEDragflode0-Manual

選定文本框，在屬性窗口中設(shè)置其屬性，OLEDropMode0-None

PasswordChar

該屬性有四個(gè)預(yù)定的值：0,1,2,3o分RightToLeftFalse

ScrollBars-Vertical

別表示無(wú)滾動(dòng)條、有水平滾動(dòng)條、有垂直Tablndex0一None

TabStop1-Horiz

2-Vertical

滾動(dòng)條和兩者都有。選擇2表示在文本框上Tag|3-Both

Textlextl

添加垂直滾動(dòng)條。如圖中所示。ScrollBars

返回/設(shè)置一個(gè)值，指出對(duì)象是否有垂

直或水平滾動(dòng)條.

1圖2.2為文本框設(shè)置屬性17:50

屈性-Textl星性-Textl

TextlTextBox|TextlTextBox

按字母序|按分類(lèi)序|按字母序|按分類(lèi)序1

MaxLength0LinkTimeout50

MouseiconQTone)3LinkTopic0

MousePointerLockedFalse

MultiLineMaxLength

OLEDragModeMouseicon(None)

OLEDropModeMousePointer0-Defaul

PasswordCharMultiLineTiro▼|

RightToLeftFalseOLEDragMode0-Manual

ScrollBars2-VerticalOLEDropMode0-None

Tab工ndordChar

"范國(guó)為文本框設(shè)置MultiLine屬性，使ToLeftFalse

文本框能接受多行文本，這里選LBars2-Vertic；

Text取True。dex0二I

■ultiLine■ultiLine

返回/設(shè)置一個(gè)值，決定一個(gè)控件是否返回/設(shè)置一個(gè)值樣1守一個(gè)格

可以接受多行文本.F范件是否可以接受副國(guó)

15

在程序中動(dòng)態(tài)改變對(duì)象的屬性的憲法可

使用下程序語(yǔ)句：

對(duì)象名.屬性名=屬性設(shè)定值

例如，在窗體上有一個(gè)文本框TextL它

的屬性之一是Text,這一屬性決定文本框中顯

示的內(nèi)容。如果在Form_Load()事件中有語(yǔ)句:

TextLText="歡迎使用VB6O'

即設(shè)定Textl的Text理性值為“歡迎使用

VB6.0”，在程序運(yùn)行時(shí)，當(dāng)發(fā)生Form_Load()

事件(即當(dāng)窗體裝入)時(shí)，就在文本框Textl

中顯示“歡迎使用VB6O，結(jié)果如下頁(yè)圖2.3

所示。

z*01162816

?.歡迎使用VB6.CI

歡迎使JfiVB6.0

圖2.3在程序中改變控件的屬性運(yùn)行結(jié)果

2011-6-28itnma17

適用于大部分對(duì)象幾個(gè)屬性：

(1)Name：該屬性用來(lái)返需匾寫(xiě)代碼過(guò)程中引用對(duì)蒙

(窗體、控件或數(shù)據(jù)訪問(wèn))的名稱(chēng)?？梢栽诔绦蛑羞M(jìn)

行調(diào)用，在運(yùn)行時(shí)是只讀的。

(2)Appearance：該屬性用來(lái)返回或設(shè)置一個(gè)對(duì)象在運(yùn)

行時(shí)是否具有三維效果。

(3)Font：該屬性用來(lái)設(shè)置控件上文本所使用的字體、

屬性和字號(hào)。

(4)Caption：該屬性用于返回或設(shè)置對(duì)象的標(biāo)題欄或圖

標(biāo)下面的文本。

(5)Height,Width：這個(gè)屬性返回或設(shè)置對(duì)象的大小，

包括其高度和寬度。

(6)Visible:這個(gè)屬性返回或設(shè)置一個(gè)指定對(duì)象是否為

可見(jiàn)的。當(dāng)這個(gè)屬性值為T(mén)rue時(shí)對(duì)象是可見(jiàn)的，值為

False時(shí)對(duì)象是隱臧的。kiizzi

2011-6-2818

(7)Enabled：這個(gè)屬性返回或設(shè)置一個(gè)值，該值二

用來(lái)確定一個(gè)窗體或控件是否具有對(duì)用戶(hù)產(chǎn)生的

事件做出反應(yīng)。當(dāng)這個(gè)屬性值為T(mén)rue時(shí)允許對(duì)象

對(duì)事件做出反應(yīng)。為False時(shí)阻止對(duì)象對(duì)事件做出

反應(yīng)。

(8)Left,Top：Left屬性返回或設(shè)置對(duì)象內(nèi)部的左

邊緣與容器的左邊緣之間的距離。Top屬性返回

或設(shè)置對(duì)象的頂端和它的容器的頂端之間的距離。

(9)BackColor：返回或設(shè)置對(duì)象中的文本和圖形

的背景顏色。

(10)ForeColor：返回或設(shè)置在對(duì)象里顯示圖片和

文本的前景顏色。

各種控件還有自己特有的屬性，我們將在以

后的實(shí)例中具體介紹。

2011-6-2819

2.1.4常用方法.

VB中的對(duì)象支持屬性、方法和事件。

在VB中，對(duì)象本身具有的一些函數(shù)或過(guò)程

稱(chēng)為方法。方法和屬性都是對(duì)象的一部分,

一般說(shuō)來(lái)方法就是對(duì)象要執(zhí)行的動(dòng)作。方

法可以影響屬性值，例如在VB的列表框具

有List屬性,使用Clear和Additem方法可

改變其List屬性。在VB中使用方法的格式

為：

對(duì)象名?方法名

2011-6-2820

■例如，Print是VB中的一種方法。如果希望把輸

出的結(jié)果從窗體上顯示可使用下列格式：

Forml.Print輸出表項(xiàng)

■如果想把結(jié)果從圖片框上輸出，可以使用下列格

疝：

Picturel.Print輸出表項(xiàng)

■如果想在窗體上輸出“您好”，可在

Form_Click()事件中加入下列語(yǔ)句：

forml.print“您好”

■則運(yùn)行程序后每單擊一次窗體就會(huì)出現(xiàn)“您好”

兩個(gè)字。運(yùn)行結(jié)果如下頁(yè)圖2.4所示

2011-6-2821

您好

好

好

好

好

圖2.4用Print方法窗體上輸入“您好”的運(yùn)行結(jié)果

22

2011-6-28

對(duì)象中最常見(jiàn)幾種方法：二;

1.Clear:

該方法告訴控件要放棄它所擁有的內(nèi)容。如

果是列表框，則Clear方法刪除列表框中的內(nèi)容。

若是文本框，則清除其內(nèi)容，并將其字符串屬性

設(shè)置為零長(zhǎng)度字符串。

2.AddITem,RemovelTem:

這些方法用于操作列表框和組合框控件中的

項(xiàng)目。應(yīng)用程序不必知道項(xiàng)目在控件中是如何存

放的，只要使用方法，控件就會(huì)向表中添加、插

入新項(xiàng)目或刪除已有的項(xiàng)目。方法就是每個(gè)控件

不需要編程人員編寫(xiě)代碼就可以自動(dòng)完成的操作。

2011-6-2823

.2VB中的基本控件的使用方法

在窗體上用于輸入、輸出信息的圖形

或文字符號(hào)稱(chēng)為控件。如命令按鈕、標(biāo)簽、

文本框等。也有一些為了增強(qiáng)用戶(hù)界面，

或使用戶(hù)界面更漂亮而另外編制的

ActiveX控件

2011-6-2824

VB中的控件通常分為三種類(lèi)型:

(1)標(biāo)準(zhǔn)控件：在VB中提供了許多標(biāo)準(zhǔn)捽件它們

是由VB中的.exe文件提供，常用的標(biāo)準(zhǔn)控件以圖標(biāo)

的形式出現(xiàn)在工具箱中供用戶(hù)選擇使用。工具箱一

般是放在VB集成環(huán)境中窗口的左邊。用用戶(hù)可以

直接在工具箱中選擇使用它們。但用戶(hù)不能增加和

刪標(biāo)準(zhǔn)控件。

(2)ActiveX控件:這類(lèi)捽件單獨(dú)保存在.ocx類(lèi)型

的文件中，其中包括各種版本VB控件。

(3)可插入的對(duì)象:用戶(hù)可將Excel工作表作為一個(gè)

對(duì)象添加到工具箱中也可根據(jù)需要在編程創(chuàng)建。

2011-6-2825

7

ynr'弋-一

S±TH

控件是VB編程的基礎(chǔ)，也是VB作為可

視化編程的重要工具，第一章中我們對(duì)控件

的名稱(chēng)已經(jīng)作了介紹，下面介紹在窗體上添

加基本控件的方法。

2.2.1在窗體上添加VB的基本控件的方法

在工具箱中有許多基本控件按鈕，在窗

體上添加控件的方法有兩種：

2011-6-2826

1.用鼠標(biāo)單擊工具箱中相應(yīng)的控件按鈕，

再把鼠標(biāo)移到窗體上，這時(shí)鼠標(biāo)變成十字

形，在合適的位置上按下鼠標(biāo)左鍵并拖動(dòng),

這時(shí)窗體上有一個(gè)矩形框，當(dāng)其大小合適

時(shí)，松開(kāi)鼠標(biāo)左鍵，窗體上就會(huì)顯示一個(gè)

相應(yīng)大小的控件。同時(shí)可看到控件周?chē)?/p>

現(xiàn)八個(gè)小方框，它們稱(chēng)為尺寸調(diào)節(jié)柄。利

用尺寸調(diào)節(jié)柄可調(diào)節(jié)控件的大小。當(dāng)控件

上有尺寸調(diào)節(jié)柄時(shí)，說(shuō)明該控件是“活動(dòng)

的”或“被選中的”。

2.雙擊工具箱中要添加的控件按鈕。就可

在窗體的中央添加一個(gè)控件。然后再把它

移到合適的位置。

2011-6-2827

-2.2.2VB基本控件的使用行一■

利用上節(jié)的方法可在窗體上添加控件，

并且可利用控件周?chē)某叽绫鷣?lái)調(diào)節(jié)控件

的大小。也可用鼠標(biāo)拖動(dòng)控件放到合適的

位置上。除此之外，還可使用網(wǎng)格對(duì)控件

的位置進(jìn)行精確調(diào)整，VB窗體上的控件默

認(rèn)落在網(wǎng)格上。

L網(wǎng)格屬性的設(shè)置。

學(xué)會(huì)使用網(wǎng)格，可使用戶(hù)的應(yīng)用程序

更加規(guī)范和正規(guī)。在VB集成環(huán)境中選擇

“選項(xiàng)”菜單中的“通用”選項(xiàng)卡可出現(xiàn)

如圖2?5所示的對(duì)話框，在此對(duì)話框中可以

對(duì)窗體的網(wǎng)格屬性進(jìn)行設(shè)置。

2011-6-2828

選項(xiàng)X

編輯器I編輯器格式通用I可連接的I環(huán)境I高級(jí)I

印窗體網(wǎng)格設(shè)置

錯(cuò)誤捕獲F.,二

口顯示網(wǎng)格??:「發(fā)生錯(cuò)誤盹中斷也）

網(wǎng)格單位：堤3在類(lèi)模塊內(nèi)中斷出）

寬度（V）:[120「遇到未處理的錯(cuò)誤時(shí)中斷（2）

高度（旦）：[120

F請(qǐng)求時(shí)編譯也）

廠對(duì)齊控件到網(wǎng)格（。）P后臺(tái)編譯（總

B顯本工具提小（工）

B項(xiàng)目折疊收起時(shí)隱藏窗口（C）

確定取消幫助

圖2?5設(shè)置網(wǎng)格屬性

2011-6-2829

在出現(xiàn)的對(duì)話框中可進(jìn)行下列內(nèi)容的設(shè)置：

（1）顯示網(wǎng)格：它決定是否在窗體上顯示網(wǎng)

格。默認(rèn)為顯示網(wǎng)格。

（2）寬度和高度：它們分別決定網(wǎng)格的水平

和垂直間距，單位是提（1/1440英寸）

（3）對(duì)齊控件到網(wǎng)格；它們決定是否將控件

自動(dòng)放置在網(wǎng)格的網(wǎng)點(diǎn)上。

2.使用多個(gè)控件。

如果用戶(hù)希望在同一個(gè)窗體上使用多個(gè)

相同的控件，往往希望它們?cè)诔叽缟弦粯樱?/p>

且希望能進(jìn)行位置對(duì)齊等操作。這時(shí)可使

用“格式”菜單中的各種命令來(lái)進(jìn)行調(diào)節(jié)。

2011-6-2830

方法是先同時(shí)選擇多個(gè)控件，如果要調(diào)一

節(jié)大小，可選擇“格式”菜單中的“統(tǒng)一尺

寸”命令，這時(shí)出現(xiàn)三種選擇：“寬度相

同”、“高度相同”和“兩者都有相同”。

從中選擇一種方法就可使用戶(hù)的多個(gè)控件按

選擇的方法來(lái)統(tǒng)一尺寸。如果要對(duì)齊窗體中

多個(gè)控件，也是先選擇多個(gè)控件，然后在選

擇“格式”菜單中的對(duì)齊方式，有7種選項(xiàng)可

供選擇。它們是“左對(duì)齊”、“居中對(duì)齊”、

“右對(duì)齊”、“頂端對(duì)齊”、“中間對(duì)齊”、

“底端對(duì)齊”和“對(duì)齊到網(wǎng)格”。從中選擇

一種就可按所選方式對(duì)齊，如圖2?6所示。

2011-6-2831

、工程1-MicrosoftVisualBasic［設(shè)計(jì)］

□文件但）編輯①）視圖工程（E）格式（色調(diào)試①）運(yùn)行（R）查詢(xún)工）圖表（D工具（工）外接程序彷）窗口皿）幫助出）

k上4名電亳對(duì)一齊（A）.1°一左對(duì)■齊?（L）M60,600972x372

x統(tǒng)一尺寸S居中對(duì)齊￡）

身右對(duì)齊（R）

General4按網(wǎng)格調(diào)整大?、伲?/p>

二

H噩?工程1-Forml(1

-而頂端對(duì)齊（D

￡A水平間距國(guó)）

1！?.Forml嗎中間對(duì)齊國(guó)）

-K垂直間距過(guò)）

巴他底端對(duì)齊（珍

，

-；

9在窗體中居中對(duì)齊（0>

國(guó)

二?6對(duì)齊到網(wǎng)格（&）

□□

1順序?》

-磔□Commar

8cz)

圖

二a鎖定控件（口

6，

、

二?

號(hào)

翟■Conunand2"

二

遢

~三

及按字母序|按分類(lèi)序|

口（Appearance1-3D

IBackColor□&H800000C-

芯Caption

4CausesValidaTrue

gDragMode0-Manual

EnabledTrue

占Font

向Height372

HelpContextl0二1

Caption

立叩X返回/設(shè)置對(duì)象的標(biāo)題欄中或圖

標(biāo)下面的文本。

石

ABC

E(XJ

繪圖（R）?fe&I自選圖形①匕、二I卜含.?三家已.

1FK1節(jié)13/1圖2?6使用“格式”菜單來(lái)調(diào)節(jié)控

蒯開(kāi)始|3b13:56

2011-6-2832

§2.3VB可視化編程

2.3.1VB可視化編程的步驟

VB可視化編程的方法與傳統(tǒng)的方法不

同，不再需要編寫(xiě)大量的代碼去描述界面元

素的外觀和位置，而是采用面向?qū)ο?，事?/p>

驅(qū)動(dòng)的方法。這種方法將代碼和數(shù)據(jù)集成到

一個(gè)獨(dú)立的對(duì)象中去，當(dāng)運(yùn)用這個(gè)對(duì)象來(lái)完

成某項(xiàng)任務(wù)時(shí)，并不需要知道這個(gè)對(duì)象是怎

樣工作的，只需要編寫(xiě)一段代碼來(lái)簡(jiǎn)單地傳

遞一些消息就可以了。因此，VB可視化編

程的一般步驟如下：

2011-6-2833

1.創(chuàng)建工程，設(shè)計(jì)界面。VB創(chuàng)建工程有

兩種方法

(1)啟動(dòng)VB在“新建工程”對(duì)話框中選

“標(biāo)準(zhǔn)EXE”工程，單擊“打開(kāi)”按鈕。就

出現(xiàn)了窗體設(shè)計(jì)器，也就創(chuàng)建了第一個(gè)窗

體，再利用控件工具箱在窗體上創(chuàng)建各種

對(duì)象。

(2)如果已經(jīng)啟動(dòng)了VB,若需再創(chuàng)建新工

程，可從“文件”菜單中選“新建工程”

在出現(xiàn)的對(duì)話框中選“標(biāo)準(zhǔn)EXE”并單擊

“打開(kāi)”按鈕。也可出現(xiàn)窗體設(shè)計(jì)器，再

利用控件工具箱在窗體上創(chuàng)建各種對(duì)象。

Ml則網(wǎng)到|

2011-6-2834

2.設(shè)置屬性。

在屬性窗口上設(shè)置窗體或控件等對(duì)象的屬

性。

3.編寫(xiě)代碼。

在代碼窗口編寫(xiě)代碼。

4.運(yùn)行程序。

按F5鍵和按工具欄上的執(zhí)行按鈕>就可

執(zhí)行一個(gè)工程。

2011-6-2835

5.保存工程。

第一次保存工程分二步，從“文件”菜

單選“保存工程”出現(xiàn)“另存為”對(duì)話框，

輸入一個(gè)文件名，先保存窗體文件，生

成.frm文件；然后又出現(xiàn)一個(gè)對(duì)話框，需

要再輸入文件名，接著保存工程文件，生

成.vbp文件

6.編譯程序，生成.EXE文件。

從“文件”菜單中選“生成工程

名.EXE”就可生成在非VB環(huán)境質(zhì)漆播的可

十邸行知住.36

232創(chuàng)建第一個(gè)工程祎

【例2-1】設(shè)計(jì)一個(gè)工程，運(yùn)行時(shí)首先出現(xiàn)

一個(gè)文本框和兩個(gè)命令按鈕“歡迎”和

“時(shí)間”按鈕。并在文本框中顯示“今天

是：2003年某月某日"。單擊“歡迎”按

鈕在文本框中顯示“歡迎學(xué)習(xí)VB6.0編程

技術(shù)”，單擊“時(shí)間”按鈕，則顯示當(dāng)前

時(shí)間。

L設(shè)計(jì)用戶(hù)界面。

首先應(yīng)創(chuàng)建窗體。然后是在窗體上繪

制構(gòu)成界面的對(duì)象，添加相座的拴件。

2011-6-2837

二二本例中需要在窗體上添加三個(gè)控件，一

個(gè)文本框，兩個(gè)命令按鈕。添加的方法如下:

(1)用鼠標(biāo)單擊工具箱中的文本框控件，然后

把鼠標(biāo)(此時(shí)鼠標(biāo)變成十字形指針)移到窗

體上的適當(dāng)位置拖動(dòng)鼠標(biāo)就可在窗體上添加

一個(gè)文本框。也可用鼠標(biāo)雙擊文本框控件，

同樣可在窗體上出現(xiàn)一個(gè)文本框。

(2)在添加的文本框上出現(xiàn)八個(gè)小方框，稱(chēng)尺

寸柄。通過(guò)對(duì)尺寸柄的操作可調(diào)節(jié)控件的大

小知位置。如圖2-7所示。

(3)同樣可在窗體上添加兩個(gè)命令按鈕一

Commandl^nCommand!o如圖2-8所示。

2011-6-28Bmoi38

?工程1-Fond(Form).nh

▲

?Forml-□X

Commandl■CowandZ

圖2?7文本框中四周出現(xiàn)的尺寸柄圖2-8添加一個(gè)文本框和兩個(gè)命令按鈕

2011-6-2839

2.設(shè)置窗體和控件的屬性

創(chuàng)建工程的下一步是給窗體和控件設(shè)置

屬性，而設(shè)置對(duì)象屬性是在屬性窗口中進(jìn)行

的。在“視圖”菜單中選擇“屬性窗口”命

令打開(kāi)屬性窗口，如圖2?9所示。

(1)首先設(shè)置窗體Forml的屬性，從對(duì)象框中

選Formlform對(duì)象，然后在屬性列表中選定

屬性名，如Caption。

(2)接著在屬性窗口的右列中輸入屬性值

“歡迎學(xué)習(xí)VB6.0”。則窗體的Caption屬性

設(shè)置為“歡迎學(xué)習(xí)VB6.0”。其它控件的屬性

設(shè)置方法同上所述。各對(duì)象的屬性值設(shè)定如

表2-2o"AZ

2011-6-2840

屬性-Foralx

|FOTB1Form*3對(duì)象框

按字母序|按分類(lèi)庫(kù)4排序選項(xiàng)卡

（名稱(chēng)）Form1_____1

Appearance1-3D____1

AutoRediliwFalbc屬性列表

BackColor□0800000^屬性值

BorderStyle2-Sizable

歡迎學(xué)習(xí)VB或

Caption

ClipControlsTrue'

ControlBoxTrue

DrawMode13-CopyP▼

___________

Caption

返回繆置對(duì)象的標(biāo)題欄中或圖

標(biāo)下回的文本。

▼.一

圖2-9設(shè)置屬性窗口

2011-6-2841

對(duì)象屬性設(shè)置

窗體Caption歡迎學(xué)習(xí)VB6.0

文本框Text

MultilineTrue

CommandlCaption歡迎

Command!Caption時(shí)間

表2?2例1中窗體和控件的屬性值

2011-6-2842

3.編寫(xiě)代碼。

打開(kāi)“代碼編輯器”，單擊“對(duì)象

列表框”右邊的下拉鈕，從中選擇Form

對(duì)象，如圖2?10所示。再單擊過(guò)程列表

框的左邊的下拉鈕選load事件如圖2?11

所示。

2011-6-2843

圖2-10從對(duì)象列表框中選Form圖2-11從過(guò)程列表框選load事件

2011-6-2844

在代碼窗口中輸入下列代碼

PrivateSubForm_Load()

TextLText="今天是"&_

CStr(Format(Date,nddddddn))

EndSub

用同樣的方法，輸入命令按鈕Commandl和

Command2的Click事件過(guò)程為：

PrivateSubCommandl_Click()

Textl.Text="歡迎但用VB6.0”

EndSub

2011-6-2845

PrivateSubCommand2click()

TextLText="現(xiàn)在是北京時(shí)間”&_

CStr(Format(Time,

EndSub

4.運(yùn)行工程。

按F5或按運(yùn)行按鈕就可運(yùn)行工程。最后

運(yùn)行結(jié)果見(jiàn)圖2?12所示。

2011-6-2846

?歡迎使用VisualBasic

初迎使用.

VisualBasic

歡迎面;時(shí)間(1)

圖2?12”歡迎使用VB6.0”工程運(yùn)行結(jié)果

2011-6-2847

5.保存工程.

設(shè)計(jì)好的工程應(yīng)及時(shí)保存。保存工程的

方法是：

從“文件”菜單項(xiàng)中選“保存工程”命

令，然后在出現(xiàn)的“文件另存為”對(duì)話框中填

寫(xiě)保存文件的驅(qū)動(dòng)器、文件夾和文件名(如

examl)o接著按“保存”按鈕。若為第一次

存盤(pán)時(shí)，將先保存窗體文件(examl.frm)后，

系統(tǒng)接著出現(xiàn)“工程另存為”對(duì)話框，填寫(xiě)工

程名(examl)后，則保存工程文件

(examl.vbp),保存的各種類(lèi)型的文件應(yīng)放

在同一個(gè)文件夾中，如d:\VbWork。如果已經(jīng)

存放在磁盤(pán)的文件經(jīng)修改后再存盤(pán)時(shí)不會(huì)出現(xiàn)48

6.編譯生成可執(zhí)行的.EXE文件?！?/p>

工程調(diào)試結(jié)果正確后，可將其編譯生

成可執(zhí)行的.EXE文件。方法是從“文件”

菜單中選“生成工程examl.exe(K)”，接著

出現(xiàn)“生成工程”對(duì)話框。如圖2?13所示。

在“保存在(I)選項(xiàng)”中輸入要保存的文

件夾，然后輸入要保存的文件名，這里通

常會(huì)出現(xiàn)一個(gè)默認(rèn)的文件名是與存放窗體

文件相同的文件名。直接按“確定”按鈕

或按回車(chē)鍵就開(kāi)始編譯成生可執(zhí)行的.EXE

文件，文件名為examl.exe。

2011-6-2849

圖2?13生成工程對(duì)話框

2011-6-2850

233創(chuàng)建一個(gè)簡(jiǎn)單的動(dòng)畫(huà)工程…

【例2-2】下面我們動(dòng)手來(lái)設(shè)計(jì)一個(gè)有趣

的動(dòng)畫(huà)顯示的是一個(gè)不斷跳動(dòng)的小球。

首先啟動(dòng)VB,在新建工程中選

“標(biāo)準(zhǔn)EXE”，單擊“打開(kāi)”按鈕。出

現(xiàn)一個(gè)灰白色的空白窗體，這就是前面

講過(guò)的窗體設(shè)計(jì)器，在此窗體上用戶(hù)可

以設(shè)計(jì)工程。

2011-6-2851

1.設(shè)計(jì)工程界面

(1)將鼠標(biāo)移到工具箱上，單擊形狀控

件，然后在窗體上畫(huà)出形狀控件。

(2)再用鼠標(biāo)單擊工具箱上的Timer控

件，然后在窗體上畫(huà)出Timer控件。

(3)再用同樣方法在窗體上畫(huà)出

Commandl控件。工程界面設(shè)計(jì)如圖2-

14所示。

2011-6-2852

FormlCForml)

小

1

0

?

H

I

■

,開(kāi)始|國(guó)MicrosoftPowe產(chǎn)工一1_8站士工皿51皿——1.14工皿-皿一一彳||兇色畫(huà)匠??回Ki16:11

冏2-14設(shè)計(jì)動(dòng)畫(huà)工程界一'iko.

53

2011-6-28扁

2.設(shè)置窗體和控件的屬性一

單擊“屬性窗口”的標(biāo)題欄，使其

成為活動(dòng)窗口。再單擊窗體，使八個(gè)小

方框出現(xiàn)在窗體周?chē)?，此時(shí)就可設(shè)置窗

體的屬性。設(shè)置完窗體屬性后再分別單

擊形狀控件和Timer控件，分別設(shè)置形

狀控件和Timer控件的屬性。它們的屬

性設(shè)定值如表2?3所示。屬性設(shè)置后顯示

如下頁(yè)圖中所示。

2011-6-2854

出,工程1-MicrosoftVisualBasic［設(shè)計(jì)］-In|x|：

文件圾）編輯⑤視圖9工程⑥格式?）調(diào)試①）運(yùn)行?登詢(xún)@）圖表9工具（工）外接程序?囪口世）幫助&）

3，13?1自口噌瓢|-出直四皆出以力-H0,04800x3600

KB9回