vb-計(jì)算機(jī)程序設(shè)計(jì)基礎(chǔ)部分

實(shí)驗(yàn)一VB的集成環(huán)境

【實(shí)驗(yàn)?zāi)康摹?/p>

?熟悉VisualBasic6.0（VB6.0）的集成開(kāi)發(fā)環(huán)境。

?了解使用VB6.0實(shí)現(xiàn)一個(gè)應(yīng)用程序的操作過(guò)程。

?掌握VB6.0應(yīng)用程序界面設(shè)計(jì)的操作方法。

?掌握VB6.0程序代碼的輸入、修改和運(yùn)行的方法。

【相關(guān)知識(shí)提要】

1.Windows資源管理器的基本操作

用VB6.0（實(shí)現(xiàn)的應(yīng)用程序都是由多個(gè)文件組成的，為了便于管理，一般為每一個(gè)應(yīng)

用程序都建立一個(gè)文件夾，用以保存該應(yīng)用程序中的所有文件。

2.VB6.0的啟動(dòng)與退出

啟動(dòng)VB6.0的步驟如下：

1）點(diǎn)擊菜單【開(kāi)始|程序|MicrosoftVisualBasic6.0中文版|MicrosoftVisualBasic

6.0中文版】（說(shuō)明：在本指導(dǎo)書(shū)中，黑方括號(hào)（［］）中的內(nèi)容表示菜單選擇操作。

例如，【XX|YY|ZZ】表示選擇“XX”菜單、選擇“XX”菜單下的“YY”菜

單、選擇“YY”菜單下的“ZZ”菜單。）

2）在“新建”選項(xiàng)卡中選擇“標(biāo)準(zhǔn)EXE”工程，單擊“打開(kāi)”按鈕（VB啟動(dòng)完畢,

進(jìn)入其集成開(kāi)發(fā)環(huán)境，如圖1.1所示）。

圖1.1VB開(kāi)發(fā)環(huán)境

-1-

3）退出VB就是關(guān)閉其集成開(kāi)發(fā)環(huán)境的窗口。操作方法是：點(diǎn)擊【文件|退出】

3.VB的集成開(kāi)發(fā)環(huán)境

VB6.0集成開(kāi)發(fā)環(huán)境除了具有標(biāo)準(zhǔn)Windows環(huán)境的標(biāo)題欄、菜單欄、快捷工具欄外,

還有工具箱窗口、屬性窗口、工程管理器窗口、對(duì)象窗口（窗體設(shè)計(jì)器窗口）、代碼窗口、

立即執(zhí)行窗口、窗體布局窗口等開(kāi)發(fā)工具。

1）菜單和快捷工具欄

同其他任何Windows軟件一樣，VB集成開(kāi)發(fā)環(huán)境的“菜單”列出了在此環(huán)境中可以

進(jìn)行的各種操作，“快捷工具欄”上擺放了常用操作的快捷方式。有關(guān)菜單項(xiàng)的意義，將

在以后用到時(shí)加以說(shuō)明。這里先簡(jiǎn)要介紹一下快捷工具欄上的快捷方式。

VB提供了“編輯”、“標(biāo)準(zhǔn)”、“窗體編輯器”和“調(diào)試”等4種快捷工具欄，并允許

用戶定義自己所需要的工具欄。一般情況下，集成環(huán)境中只顯示標(biāo)準(zhǔn)工具欄，其他工具欄

可以通過(guò)“視圖”菜單中的“工具欄”命令打開(kāi)（或關(guān)閉）。

“標(biāo)準(zhǔn)”工具欄中的常用按鈕如表1.1所示。

表1.1標(biāo)準(zhǔn)工具欄中的常用按鈕

圖標(biāo)名稱功能

旬添加窗體在工程中添加新窗體，相當(dāng)于【工程1添加窗體】

直菜單編輯器顯示菜單編輯器對(duì)話框

打開(kāi)工程用于打開(kāi)已有的工程文件

a保存工程用于保存當(dāng)前的工程文件

剪切將選中的內(nèi)容剪切到剪貼板中

電復(fù)制將選中的內(nèi)容復(fù)制到剪貼板中

粘貼將剪貼板中的內(nèi)容粘貼到當(dāng)前位置

?啟動(dòng)開(kāi)始運(yùn)行當(dāng)前的工程

■結(jié)束結(jié)束當(dāng)前工程的運(yùn)行

尊工程資源管理器打開(kāi)工程資源管理器窗口

囪屬性窗口打開(kāi)屬性窗口

2）對(duì)象窗口及其基本操作

對(duì)象窗口（也叫窗體設(shè)計(jì)器窗口，見(jiàn)圖1.1）是用來(lái)設(shè)計(jì)應(yīng)用程序用戶界面的。用VB

開(kāi)發(fā)的應(yīng)用程序執(zhí)行時(shí)打開(kāi)的窗口，就是在此窗口中設(shè)計(jì)出來(lái)的。

（1）顯示對(duì)象窗口

要打開(kāi)或調(diào)出對(duì)象窗口，可以這樣操作：【視圖I對(duì)象窗口】；或者選定要涉及的窗體

之后，單擊“工程資源管理器”窗口中的“查看對(duì)象”按鈕。

（2）將控件放置到窗體中的方法

在“工具箱”窗口選中所需的控件圖標(biāo)（指向某控件時(shí)會(huì)出現(xiàn)提示），在窗體中拖畫(huà)

出捽件?；蛘咴凇肮ぞ呦洹贝翱陔p擊所需的控件圖標(biāo)（該控件已被放置到窗體的中間），

將其拖放到適當(dāng)?shù)奈恢谩?/p>

（3）調(diào)整窗體或者捽件位置和大小的方法

-2-

?粗調(diào)控件位置：拖動(dòng)控件到合適位置放下。

?粗調(diào)大?。涸趯?duì)象窗口選中窗體或者控件，移動(dòng)鼠標(biāo)到其四周的某一小方塊（調(diào)

整點(diǎn)）上，當(dāng)鼠標(biāo)指針變?yōu)殡p向箭頭時(shí)，拖動(dòng)鼠標(biāo)以調(diào)整對(duì)象大小，當(dāng)大小合適

時(shí)放下。

?細(xì)調(diào)位置和大?。和ㄟ^(guò)屬性窗口設(shè)置其左上角坐標(biāo)（Left和Top屬性）和高度與

寬度值（Height和Width屬性）。

3）工具箱窗口及其基本操作

工具箱窗口（見(jiàn)圖1.1）中存放著構(gòu)成VB應(yīng)用程序的常用基本構(gòu)件，稱為控件（Control）。

每個(gè)控件由一個(gè)工具圖標(biāo)表示。

要打開(kāi)或調(diào)出工具箱窗口，可以這樣操作：【視圖I工具箱】

4）屬性窗口及其基本操作

屬性窗口（見(jiàn)圖1.1）用來(lái)對(duì)選定的窗體或控件的屬性進(jìn)行設(shè)置。

（1）顯示屬性窗口

要打開(kāi)或調(diào)出屬性窗口，可以這樣操作：【視圖I屬性窗口】

（2）選擇窗體或控件

?選擇窗體：?jiǎn)螕舸绑w的空白處，或者從“屬性窗口”上端的對(duì)象組合框中選擇。

?選擇控件：?jiǎn)螕舸绑w中的控件（如果要選擇多個(gè)控件，可按下Shift鍵然后再單

擊要選擇的各個(gè)控件；或者在窗體上拖鼠標(biāo)使得虛線框罩住要選擇的控件時(shí)放

開(kāi)）?；蛘邚膶傩源翱谏隙说膶?duì)象組合框中選擇。

（3）設(shè)置屬性。利用屬性窗口為窗體或者控件設(shè)置屬性的操作步驟如下:

①先選中要設(shè)置屬性的窗體或者控件（選中的對(duì)象四周有,8個(gè)小方塊）

②在“屬性”窗口中找到需要設(shè)置的屬性名并單擊之

③設(shè)置屬性。具體做法是:

如果屬性名右邊是文本框（比如，窗體的Caption屬性IonForml),則

在其中輸入屬性值;

如果屬性名右邊是組合框（比如，圖像框的Visible屬性VisibleTrue』),

則從組合框中選擇所需的屬性值；

?如果屬性名右邊是具有瀏覽按鈕（省略號(hào)）的文本框（比如，圖像框的Picture

屬性國(guó)505^^?gone））,則可以直接在文本框中輸入屬性值，也可以單擊瀏

覽按鈕，去尋找所需的屬性值。

5）工程資源管理器窗口

VB6.0把應(yīng)用程序稱為“工程”。一個(gè)工程一般都是由許多各種類型的文件組成的。

例如工程文件（.vbp）、窗體文件（.frm）、標(biāo)準(zhǔn)模塊文件（.bas）等等。

工程資源管理器窗口（見(jiàn)圖1.1）就是用來(lái)管理工程中的各種文件的。該窗口中以樹(shù)

狀列表的形式顯示當(dāng)前工程的文件組成。通過(guò)該窗口，可以很方便地對(duì)選中的文件進(jìn)行管

理（如查看代碼、查看對(duì)象、保存文件等）。

6）代碼窗口及其基本操作

-3-

代碼窗口（圖1.2）用來(lái)編輯事件過(guò)程（即事件響應(yīng)代碼）和其他通用過(guò)程。

|顯示一個(gè)代碼黃|顯示全部代碼娛］

圖1.2代碼窗口

（1）顯示代碼窗口

啟動(dòng)VB6.0時(shí)，代碼窗口并不自動(dòng)打開(kāi)。當(dāng)需要編寫(xiě)代碼時(shí)可以通過(guò)如下任意一種

方式來(lái)打開(kāi)代碼窗口：【視圖I代碼窗口】；或者雙擊窗體的任何地方；或者在對(duì)象窗口中

右擊鼠標(biāo)【查看代碼】；或者單擊工程管理窗口中的“查看代碼”按鈕。

（2）輸入/編輯代碼

輸入代碼的操作步驟如下：

①?gòu)摹皩?duì)象”下拉列表框（見(jiàn)圖1.2）中選擇要輸入代碼的對(duì)象

②從“事件”下拉列表框（見(jiàn)圖1.2）中選擇要輸入代碼的事件

③在事件過(guò)程中輸入自己編寫(xiě)的代碼。

特別提醒：輸入代碼時(shí)必須弄清楚代碼定多個(gè)對(duì)象哪個(gè)亮仔的？!

4.VB應(yīng)用程序的實(shí)現(xiàn)過(guò)程

使用VB實(shí)現(xiàn)一個(gè)應(yīng)用程序一般需要如下幾個(gè)步驟:

（1）創(chuàng)建新的VisualBasic工程

（2）創(chuàng)建應(yīng)用程序的用戶界面

（3）設(shè)置對(duì)象的屬性

（4）編寫(xiě)程序代碼

（5）調(diào)試和運(yùn)行程序

（6）保存程序

（7）編譯、生成可執(zhí)行的應(yīng)用程序

（8）制作發(fā)布包

【實(shí)驗(yàn)內(nèi)容】

1.任務(wù)

用“Windows資源管理器”在某磁盤(pán)（比如D:盤(pán)）上建立一個(gè)以自己的學(xué)號(hào)為名的文

-4-

件夾（用來(lái)保存自己編寫(xiě)的程序）。然后，實(shí)現(xiàn)一個(gè)完成如下功能的程序：

1）程序運(yùn)行時(shí)出現(xiàn)一個(gè)標(biāo)題為“我的第一個(gè)程序”的窗口（一般來(lái)說(shuō)，每一個(gè)VB

應(yīng)用程序都至少有一個(gè)窗體）；

2）窗口中顯示藍(lán)色的隸書(shū)體文字“我們開(kāi)始學(xué)習(xí)VB了！”，所顯示的信息在窗口中

從左往右移動(dòng)，當(dāng)從窗口右端消失時(shí)，再?gòu)拇翱诘淖筮叧霈F(xiàn)。

實(shí)現(xiàn)步驟：

（先照著做，別問(wèn)為什么，但要特別注意每一步的操作方法）

1）創(chuàng)建?個(gè)工程

如果VB沒(méi)有啟動(dòng)，則按如下步驟進(jìn)行：

（1）【開(kāi)始I程序IIMicrosoftVisualBasic6.0中文版】（出現(xiàn)"新建工程”對(duì)話

框，如圖1.3所示）

（2）在“新建工程”對(duì)話框中選擇“新建”頁(yè)面中的“標(biāo)準(zhǔn)EXE”，然后單擊“打開(kāi)”

按鈕（圖1.3中畫(huà)圈之處）。

至此，一個(gè)應(yīng)用程序的基本框架已經(jīng)

建立。

如果VB已經(jīng)啟動(dòng)，則在VB界面中按

如下步驟進(jìn)行：

（1）保存當(dāng)前工程（【文件I保存工

程】或者【文件I工程另存為】）

（2）新建工程（【文件I新建工程】）

（出現(xiàn)“新建工程”對(duì)話框，如圖1.3所示）

（3）在“新建工程”時(shí)話框中選擇“新

建”頁(yè)面中的“標(biāo)準(zhǔn)EXE”，然后單擊“打

開(kāi)”按鈕。

至此，一個(gè)應(yīng)用程序的基本框架已經(jīng)圖1.3“新建工程”對(duì)話框

建立。

2）設(shè)計(jì)界面

根據(jù)程序功能要求，在窗體中放置?個(gè)標(biāo)簽控件（Labell）和個(gè)計(jì)時(shí)器控件

圖1.4界面設(shè)計(jì)的操作界面

-5-

按照表1.2設(shè)置窗體和控件的有關(guān)屬性:

表1.2設(shè)置窗體和控件的有關(guān)屬性

窗體或控件屬性設(shè)置值說(shuō)明

Name（名稱）forml（默認(rèn)）［注］

窗體

Caption我的第一個(gè)程序

Name（名稱）labell（默認(rèn)）

AutoSizeTrue

用來(lái)顯示

標(biāo)簽Caption我們開(kāi)始學(xué)習(xí)VB了！

文字

Font隸書(shū)，三號(hào)

ForeColor藍(lán)色

Name（名稱）Timerl（默認(rèn)）用來(lái)控制

計(jì)時(shí)器

InterVai200文字移動(dòng)

［注］:每一個(gè)對(duì)象在創(chuàng)建時(shí)系統(tǒng)都為其取一個(gè)默認(rèn)的名字，如果使用該默認(rèn)名字，

則“名稱”屬性無(wú)需設(shè)置。

對(duì)象（窗體或窗體中的控件）的屬性，可以通過(guò)屬性窗口在設(shè)計(jì)階段設(shè)置（靜態(tài)設(shè)置）,

也可以通過(guò)代碼在程序運(yùn)行時(shí)設(shè)置（動(dòng)態(tài)設(shè)置）。現(xiàn)在，讓我們通過(guò)屬性窗口來(lái)設(shè)置標(biāo)簽

（Label1）的Caption和AutoSize屬性。操作步驟如下：

（1）在屬性窗口的“對(duì)象”下拉列表框中選擇要設(shè)置屬性的對(duì)象（這里是Label1,

如圖1.5所示），或者在窗體中選擇好對(duì)象然后激活屬性窗口；

（2）找到Caption屬性，輸入屬性值：“我們開(kāi)始學(xué)VB了！"（注意：雙引號(hào)不要輸

入）；

（3）找到AutoSize屬性,選擇要設(shè)置的屬性值:True（如圖1.6所示）。

星性-Labell

ItabellLabelV]

單擊下拉按鈕|

Label1Label

Timer

Appearance1-3Dr選擇對(duì)冢?

AutoRedrawFalse

BackColor口&H800000

BorderStyle2-Sizabl（

[Caption.Forml

|ClipContr?lsTrue

IControlBoxTrue

AutoSize

iCaption

鑫用霰建的標(biāo)照欄中或圖決定控件是否能自動(dòng)調(diào)整大小以顯示所有的

內(nèi)容.

圖1.5在屬性窗口中選擇對(duì)象圖L6為選中的對(duì)象設(shè)置屬性

按上述方法繼續(xù)設(shè)置FontsForcColor屬性以及窗體和其它控件的有關(guān)屬性。

3）編寫(xiě)代碼

在Timerl控件的Timer事件中編寫(xiě)如下代碼（注意下圖中輸入代碼的位置）:

,標(biāo)簽的位置右移100個(gè)單位

-6-

Label1.Left=Label1.Left+100

,如果標(biāo)簽移出窗體的右邊界，則將其重置與左邊界以外

IfLabel1.Left>=Me.WidthThen

Label1.Left=-Label1.Width

EndIf

注意：?jiǎn)我?hào)后的文字為注釋。注釋?般用來(lái)對(duì)代碼的作用作簡(jiǎn)要的說(shuō)明。操作方法

如下:

（1）打開(kāi)“代碼窗口”：（雙擊當(dāng)前設(shè)計(jì)的窗體，或者【視圖I代碼窗口】）

（2）從“對(duì)象”下拉列表框中選擇要編寫(xiě)代碼的對(duì)象Timerl（如圖1.7所示）

（3）從“過(guò)程”下拉列表框

中選擇要編寫(xiě)代碼的（事件）過(guò)程。

由于Timerl對(duì)象只有一個(gè)（事件）

過(guò)程Timer,所以此步無(wú)需進(jìn)行。

（4）將代碼輸入到所選對(duì)象

的指定（事件）過(guò)程中。本例是

Timerl對(duì)象的Timer（事件）過(guò)圖1.7選擇要編碼的對(duì)象

程。（如圖1.8所示）

特別提醒：

（1）注意字母“O”和數(shù)字

“0”的區(qū)別，小寫(xiě)字母“1”和

數(shù)字“1”的區(qū)別；

（2）代碼中的標(biāo)點(diǎn)符號(hào)都是

西文的，不得出現(xiàn)中文標(biāo)點(diǎn)；圖1.8Timerl對(duì)象的Timer事件過(guò)程代碼輸入位置

（3）注釋可以不輸入。

圖1.9所示的是上述代碼輸入

后的情況。

4）保存工程

在以自己的學(xué)號(hào)為名的文件夾

中，再建立一個(gè)名為“0101”的文

件夾，然后將本程序的所有文保存

在0101文件夾中。窗體文件和工程

文件都用默認(rèn)的文件名（Forml.frm圖1.9Timerl對(duì)象的Timer事件過(guò)程代碼

和工程l.vbp）o

操作步驟:

（1）【文件I保存工程】（出現(xiàn)“文件另存為”對(duì)話框）

（2）從“文件另存為”對(duì)話框中的“保存在”下拉列表框中找到并打開(kāi)自己的文件

夾（比如2005xxxx,如圖1.10所示）

-7-

（3）單擊“創(chuàng)建新文件夾”

工具按鈕（當(dāng)’）（建立了名為

“新建文件夾”的文件夾）

（4）輸入文件夾名“0101”,

并將0101文件夾打開(kāi)（雙擊）

（5）指定相應(yīng)的文件名，并

單擊“保存”按鈕

圖1.10“文件另存為”對(duì)話框

5）運(yùn)行程序

運(yùn)行程序的方法是：選擇菜單【運(yùn)行I啟動(dòng)工或者單擊“啟動(dòng)”工具按鈕（>）;或

者直接使用F5鍵。

注意：要想關(guān)閉運(yùn)行中的程序，可以采用如下方法中的一種：關(guān)閉運(yùn)行的窗體：或者

選擇菜單【運(yùn)行I結(jié)束】；或者單擊工具欄中的“結(jié)束”工具按鈕（?）。

程序運(yùn)行之后應(yīng)該檢查程序是否實(shí)現(xiàn)了預(yù)期的功能，如果有錯(cuò)誤或者欠缺，應(yīng)該對(duì)程

序進(jìn)行修改，修改后需要重新保存。

至此，一個(gè)應(yīng)用程序基本制作完畢，剩下來(lái)的工作就是將該應(yīng)用程序編譯并生成可執(zhí)

行的文件（.EXE）,然后打包發(fā)布。不過(guò)這些暫時(shí)還用不到，故從略。

現(xiàn)在，想知道文字為什么能夠移動(dòng)嗎？其實(shí)很簡(jiǎn)單：因?yàn)橛?jì)時(shí)器控件的Timer事件代

碼會(huì)每隔一定的時(shí)間（該間隔時(shí)間由InterVai屬性值決定，比如本例為200毫秒）自動(dòng)執(zhí)

行一次，而我們?yōu)橛?jì)時(shí)器控件的Timer事件所寫(xiě)的代碼功能是將顯示文字的標(biāo)簽控件向右

移動(dòng)100個(gè)單位，這樣標(biāo)簽就向右不停的移動(dòng)了。

想一想，怎樣能讓文字移動(dòng)的更快一點(diǎn)或者更慢一點(diǎn)？想好了就試一試。

2.練習(xí)

（1）仿照上題步驟，自己實(shí)現(xiàn)另一個(gè)程序，保存于名為0102的文件夾中。該程序完

成的功能與上題類似，只是文字信息為紅色黑體字，而且移動(dòng)方向改為從右往左。程序的

窗體文件以Exp02.frm為名，工程文件以Exp02.vbp為名。

界面和上題相同，計(jì)時(shí)器控件的Timer事件的代碼為：

，標(biāo)簽的位置左移100個(gè)單位

Label1.Left=Label1.Left-100

1如果標(biāo)簽移出窗體的左邊界，則將其重置于窗體的右邊界以外

IfLabel1.Left<-Label1.WidthThen

Label1.Left=Me.Width

EndIf

（2）如果有興趣，現(xiàn)在或者課后再實(shí)現(xiàn)一個(gè)程序，該程序兼有上面兩個(gè)程序的特性,

即藍(lán)色文字從左往右移，紅色的文字從右往左移。

-8-

提示如下：

①界面設(shè)計(jì)：窗口中放置兩個(gè)標(biāo)簽控件（Label1和Labcl2）和兩個(gè)計(jì)時(shí)器控件（Timerl

和Timer2）。

②編寫(xiě)代碼：用計(jì)時(shí)器控件Timerl控制標(biāo)簽控件Label1的移動(dòng)，計(jì)時(shí)器控件Timer2

控制標(biāo)簽控件Label2的移動(dòng)。這樣計(jì)時(shí)器控件Timerl的事件代碼可以原樣照抄2題的代

碼，而計(jì)時(shí)器控件Timer2的事件代碼可以仿抄3題的代碼（將3題代碼中的所有Label1

均改為L(zhǎng)abel2）?

-9-

實(shí)驗(yàn)二窗體與對(duì)話框

【實(shí)驗(yàn)?zāi)康摹?/p>

?鞏固在實(shí)驗(yàn)一中所學(xué)到的知識(shí)一一VB集成開(kāi)發(fā)環(huán)境的基本操作。

?學(xué)習(xí)并掌握窗體的常用屬性、事件和方法的作用于用法。

?學(xué)習(xí)并掌握系統(tǒng)預(yù)定義對(duì)話框的作用于用法。

【相關(guān)知識(shí)提要】

1.對(duì)象以及對(duì)象的屬性、事件和方法等有關(guān)概念

1）對(duì)象

我們將現(xiàn)實(shí)世界中任何有明確意義的事物稱為實(shí)體。實(shí)體既可以是具體的事物，也可

以是人為的概念。例如，學(xué)校、學(xué)生、成績(jī)、公司、職工、貸款、債權(quán)等等，都是實(shí)體。

對(duì)象就是描述實(shí)體特性的數(shù)據(jù)和對(duì)這些數(shù)據(jù)的處理程序的封裝體。

在現(xiàn)實(shí)世界中，一個(gè)事物可以由多個(gè)其它事物組成。類似地，在面向?qū)ο蟮某绦蛟O(shè)計(jì)

中，,個(gè)對(duì)象也可以由多個(gè)其它對(duì)象組成。

在程序?qū)崿F(xiàn)（解決實(shí)際問(wèn)題）時(shí)，對(duì)象可以表現(xiàn)為一個(gè)窗口、窗口中的一個(gè)按鈕、?

個(gè)圖畫(huà)框、一個(gè)表格等可視的程序組件，還可以表現(xiàn)為變量、文件等不可視的程序元素。

2）屬性

對(duì)象中描述實(shí)體靜態(tài)特性的數(shù)據(jù)稱為（對(duì)象的）屬性。例如，對(duì)于對(duì)象“學(xué)生”，學(xué)

號(hào)、姓名、性別、年齡等等都是其屬性。

在程序中，引用某屬性的值或者改變某屬性的值稱為訪問(wèn)該屬性。訪問(wèn)對(duì)象屬性的一

般形式為：對(duì)象名.屬性名。

例如，假設(shè)Student是學(xué)生對(duì)象，Age是學(xué)生對(duì)象的年齡屬性，則下面的程序段是先

將學(xué)生年齡加1,然后顯示出年齡：

Student.Age=Student.Age+1

PrintStudent.Age

3）方法

對(duì)象中用以模擬實(shí)體行為的數(shù)據(jù)處理程序稱為（對(duì)象的）方法。例如，對(duì)于“圓”這

個(gè)對(duì)象，移動(dòng)其位置、改變其大小等等都是方法。

在程序中，使某個(gè)方法執(zhí)行稱為調(diào)用該方法。調(diào)用對(duì)象方法的一般形式為：

〈對(duì)象名〉.〈方法名〉〈參數(shù)表》

或者

〈對(duì)象名》.〈方法名〉（〈參數(shù)表））

例如，C是窗體上的一個(gè)對(duì)象，Move是移動(dòng)其位置的方法，則下面的語(yǔ)句可以將其移

-10-

動(dòng)到窗體的左上角：

C.Move0,0

4）事件

導(dǎo)致對(duì)象的某個(gè)“操作”（即方法）被執(zhí)行的過(guò)程稱為事件。

在面向?qū)ο蟮某绦蛟O(shè)計(jì)中，某個(gè)事件發(fā)生時(shí)對(duì)象所執(zhí)行的操作稱為事件響應(yīng)。每一個(gè)

對(duì)象都預(yù)先定義了許多事件，一個(gè)事件發(fā)生了，如何響應(yīng)，需要程序員根據(jù)具體功能編寫(xiě)

相應(yīng)的響應(yīng)代碼。例如，窗口中有一個(gè)按鈕對(duì)象，希望在用戶單擊此按鈕時(shí)顯示一個(gè)信息

框：“你剛才單擊了我！”，則應(yīng)該為該按鈕的Click（單擊）事件編寫(xiě)響應(yīng)代碼：

MsgBox''你剛才單擊了我！”

2.窗體及窗體的常用屬性、事件和方法

窗體的屬性決定了窗體的外觀特性和某些行為特征。常用的屬性列于表2.1：

表2.1窗體的常用屬性

屬性名意義

Name對(duì)象名稱

Caption對(duì)象的標(biāo)題

AutoRedraw窗體是否具有自動(dòng)重繪特性

Fontname,fontsize,font…對(duì)象上所顯示文字的字體名稱、大小、…

Forecolor,Backcolor指定對(duì)象的前景和背景顏色

MaxButton,MinButton窗體是否有最大（?。┗粹o

BorderStyle指定窗體的邊框類型

Picture指定窗體的背景圖像

窗體的事件決定了窗體何時(shí)可以處理程序員編寫(xiě)的代碼。常用的事件列于表2.2：

表2.2窗體的常用事件

事件觸發(fā)時(shí)間

Click單擊窗體時(shí)

Load裝入窗體時(shí)

Initialize窗體初始化時(shí)

Resize窗體大小改變時(shí)

Unload窗體關(guān)閉時(shí)[注3]

窗體的方法決定了窗體可以提供1可種服務(wù)。常用的方法列于表2.3：

表2.3窗體的常用方法

方法功能

Show顯示窗體

Hide隱藏窗體

Cis清除窗體上的輸出信息

Print輸出數(shù)字或文本

Line,Circle,…繪圖（詳見(jiàn)第9章）

3.系統(tǒng)預(yù)定義對(duì)話框

1）消息對(duì)話框（MsgBox）

消息對(duì)話框的作用主要是用來(lái)向用戶發(fā)出提示信息或者詢問(wèn)有關(guān)問(wèn)題，它有兩種使用

格式，如果不關(guān)心用戶的回答，則一般使用如下格式：

-11-

MsgBox〈信息內(nèi)容》[,〈對(duì)話框類型＞[,〈對(duì)話框標(biāo)題＞]]

或者

CallMsgBox（〈信息內(nèi)容＞[,〈對(duì)話框類型＞[,〈對(duì)話框標(biāo)題＞]]）

如果需要根據(jù)用戶的回答進(jìn)行不同的操作，則使用如下格式：

變量=MsgBox（〈信息內(nèi)容＞[,〈對(duì)話框類型＞[,〈對(duì)話框標(biāo)題＞]]）

其中，對(duì)話框類型是一個(gè)整數(shù)，用來(lái)控制在對(duì)話框內(nèi)顯示的按鈕、圖標(biāo)，其值與按鈕

和圖標(biāo)的關(guān)系如表2.4所示：

表2.4對(duì)話框類型參數(shù)

類型常量值作用

vbOKOnly0只顯示“確定”按鈕

vbOKCanccl1顯示“確定”及“取消”按鈕

vbAbortRetrylgnore2顯示“終止”、“重試”及“忽略”按鈕

按鈕類型

vbYesNoCancel3顯示“是”、“否”及“取消”按鈕

vbYesNo4顯示“是”及“否"按鈕

vbRetryCancel5顯示“重試”及“取消”按

vbCritical16顯示停止圖標(biāo)

vbQuestion32顯示問(wèn)號(hào)（？）圖標(biāo)

圖標(biāo)按鈕

vbExclamation48顯示感嘆號(hào)（！）圖標(biāo)

vbInformation64顯示信息圖標(biāo)

vbDefoultButtonl0指定默認(rèn)按鈕為第1個(gè)按鈕

默認(rèn)按鈕vbDefaultButton2256指定默認(rèn)按鈕為第2個(gè)按鈕

vbDefaultButton3512指定默認(rèn)按鈕為第3個(gè)按鈕

類型參數(shù)的組成原則是從每一類中選擇?個(gè)值，把這幾個(gè)值加在一起決定對(duì)話框類

型。

MsgBox函數(shù)的返回值是一個(gè)整數(shù)，這個(gè)整數(shù)與所單擊的命令按鈕有關(guān)，具體關(guān)系如

表2.5所示。

表2.5MsgBox對(duì)話框函數(shù)的按鈕與返回值

按鈕確定取消終止重試忽略是否

返回值1234567

常量vbOKvbCancelvbAbortvbRetryvblgnorevbYesvbNo

2）輸入對(duì)話框（InputBox）

InputBox函數(shù)的作用是提示用戶輸入數(shù)據(jù)，其使用格式一般為:

變量=InputBox（〈信息內(nèi)容＞[,〈對(duì)話框標(biāo)題＞][,〈默認(rèn)內(nèi)容〉]）

注意，用InputBox函數(shù)接收的用戶輸入，是作為?個(gè)字符串來(lái)處理的，如果用于接收

該輸入的變量類型不是字符串（String）類型（有關(guān)變量類型的說(shuō)明參見(jiàn)教材第3章），則

一般需要使用類型轉(zhuǎn)換函數(shù)進(jìn)行類型轉(zhuǎn)換。比如，如果用于接收輸入數(shù)據(jù)的變量x的類型

為整型（Integer）,則應(yīng)使用語(yǔ)句：

x=Val（InputBox（"請(qǐng)輸入年齡"，"提示"，18））

其中，Val（s）是個(gè)函數(shù)，作用是將自變量s轉(zhuǎn)換為數(shù)值返回給調(diào)用者。

-12-

【實(shí)驗(yàn)內(nèi)容】

1.任務(wù)1

編寫(xiě)滿足如下要求的程序：

當(dāng)窗體的Click,Load,Initialize,Unload事件發(fā)生時(shí)，給出相應(yīng)的報(bào)告：

“窗體發(fā)生了XX事件”

（運(yùn)行該程序時(shí)，請(qǐng)注意Load,Initialize,Unload三個(gè)事件發(fā)生的先后順序）

實(shí)現(xiàn)步驟：

1）創(chuàng)建一個(gè)工程

操作方法：參見(jiàn)實(shí)驗(yàn)一。

2）設(shè)計(jì)界面

本程序只需一個(gè)窗體。

3）編寫(xiě)代碼

在窗體（Forml）的上述各事件過(guò)程中編寫(xiě)如下形式的代碼：

MsgBox“窗體發(fā)生了XX事件”

代碼輸入情況如圖2.1所示。

4）保存工程

保存于0201文件夾中，工程文件以prj0201.vbp為名。

5）運(yùn)行程序

2.練習(xí)1

仿照上題，自己實(shí)現(xiàn)另個(gè)報(bào)告窗體事件發(fā)生的程序，保存于名為“0202”的文件夾

中。要求當(dāng)窗體的Load,ReSize,QueryUnload事件發(fā)生時(shí)，給出相應(yīng)的報(bào)告：

“窗體發(fā)生了XX事件”

3.任務(wù)2

編寫(xiě)一個(gè)計(jì)算圓面積的程序，圓的半徑由鍵盤(pán)輸入。

要求程序的執(zhí)行情況如下：

1）程序運(yùn)行后顯示?個(gè)標(biāo)題為“計(jì)算圓面積”

的窗口，并在窗口中顯示提示如下信息：

“這是一個(gè)可以計(jì)算圓面積的程序，如果您想

計(jì)算圓的面積，請(qǐng)單擊窗體

2）當(dāng)單擊窗口時(shí)，顯示提示輸入圓半徑的對(duì)

話框（如圖2.2所示）。

3）當(dāng)用戶輸入了一個(gè)半徑（比如10）并單

圖提示輸入圓半徑的對(duì)話框

擊“確定”按鈕時(shí)，顯示如圖2.3所示的報(bào)告計(jì)算2.2

結(jié)果的信息框?

-13-

實(shí)現(xiàn)步驟：

1）創(chuàng)建一個(gè)工程

操作方法：參見(jiàn)實(shí)驗(yàn)一。

2）設(shè)計(jì)界面

本程序只需要一個(gè)窗體，但需要設(shè)置窗體的如下屬性：

AutoRedraw屬性設(shè)置為True（表示當(dāng)窗口由不活動(dòng)變?yōu)榛顒?dòng)時(shí)，自動(dòng)重新顯示其中

用Pr血等方法輸出的內(nèi)容）。

Caption屬性設(shè)置為“計(jì)算圓面積”。

3）編寫(xiě)代碼

為實(shí)現(xiàn)提示的功能，可以在窗體的Load事件中用Print方法顯示提示信息。代碼為：

PrivateSubForm_Load（）

Print"這是一個(gè)可以計(jì)算圓面積的程序，如果您想計(jì)算圓的面積，請(qǐng)單擊窗體?！?/p>

EndSub

為實(shí)現(xiàn)提示輸入和報(bào)告計(jì)算結(jié)果的功能，可以使用輸入對(duì)話框（InputBox）來(lái)提示用

戶輸入數(shù)據(jù)，使用消息對(duì)話框（MsgBox）來(lái)報(bào)告計(jì)算結(jié)果，這些工作應(yīng)該在窗體的單擊

事件中完成，所以需要編寫(xiě)窗體的Click（單擊）事件代碼。具體代碼為：

PrivateSubForm_Click（）

r=Val（InputBox（"請(qǐng)輸入圓的半徑","提示"，10））

s=3.14*r*r

MsgBox"半徑為"&r&"的圓，其面積為："&s,0+vblnformation,"計(jì)算結(jié)果"

EndSub

請(qǐng)注意InputBox函數(shù)和MsgBox過(guò)程的參數(shù)設(shè)置。

4）保存工程并運(yùn)行該程序

4.練習(xí)2

1）仿照上題，自己編寫(xiě)一個(gè)計(jì)算圓的周長(zhǎng)的程序。

2）創(chuàng)建?個(gè)工程，測(cè)試窗體的BorderStyle、ControlBox>MaxButton和MinButton

等屬性對(duì)窗體外觀特性的影響。

提示：測(cè)試的方法是每改變一下窗體的上述某個(gè)屬性的值，就運(yùn)行一下程序，注意觀

察窗體的外觀特征，并試一試改變窗體大小、使窗體最大化、最小化、移動(dòng)窗體位置等操

作，從中體會(huì)這些屬性的意義。

-14-

實(shí)驗(yàn)三標(biāo)簽、文本框及命令按鈕控件

【實(shí)驗(yàn)?zāi)康摹?/p>

?通過(guò)實(shí)例來(lái)進(jìn)一步理解對(duì)象以及對(duì)象的屬性、事件和方法等有關(guān)概念。

?熟悉標(biāo)簽、文本框及命令按鈕控件的常用屬性和事件。

?學(xué)習(xí)使用標(biāo)簽、文本框及命令按鈕控件來(lái)編寫(xiě)簡(jiǎn)單程序。

【相關(guān)知識(shí)提要】

1.標(biāo)簽的作用及其常用屬性、事件和方法

標(biāo)簽主要用于顯示（輸出）文本信息。其主要屬性和事件列于表3.1：

表3.1標(biāo)簽的常用屬性

屬性名稱意義說(shuō)明

Caption顯示的文本標(biāo)簽的事件

Alignment文本的對(duì)齊方式和方法很少

AutoSize是否自動(dòng)大小使用

BackStyle背景是否透明

BorderStyle有無(wú)邊框

Wordwrap文本是否自動(dòng)折行

2.文本框的作用及其常用屬性、事件和方法

文本框用來(lái)編輯（輸入）數(shù)據(jù)（文本或數(shù)字信息）。其主要屬性和事件列于表3.2：

表3.2文本框的常用屬性、事件和方法

屬性/事件名稱意義/觸發(fā)條件

Text顯示待編輯的文本

Alignment文本的對(duì)齊方式

Locked是否可以編輯

MultiLine是否多行

屬性

BorderStyle有無(wú)邊框

Maxlength最大長(zhǎng)度（0=任意）

ScrollBars有無(wú)滾動(dòng)條

PasswordChar密碼回顯字符

Change內(nèi)容改變時(shí)觸發(fā)。

事件GotFocus獲得焦點(diǎn)時(shí)觸發(fā)。

LostFocus失去焦點(diǎn)時(shí)觸發(fā)。

方法Setfocus設(shè)置焦點(diǎn)

3.命令按鈕的作用及其常用J屬性、事件和方法

命令按鈕主要用來(lái)發(fā)布某種操作的執(zhí)行命令。其主要屬性和事件列于表3.3：

-15-

表3.3命令按鈕的常用屬性、事件和方法

屬性/事件名稱意義/觸發(fā)條件

Caption按鈕上顯示的文字

Cancel是否為取消按鈕（ESC二單擊）

屬性Default是否為缺省按鈕（Enter二單擊）

Style外觀（標(biāo)準(zhǔn)，圖形）

Picture按鈕上的圖片文件

事件Click單擊時(shí)觸發(fā)

【實(shí)驗(yàn)內(nèi)容】

1.任務(wù)1

編寫(xiě)一個(gè)滿足如下要求的程序（程序保存于名為0301的文件夾中，工程文件以Prj0301

為名）：

1）程序運(yùn)行界面如圖3.1；

2）當(dāng)單擊“計(jì)算”按鈕時(shí)、在該按鈕右邊的標(biāo)簽中顯示圓的面積。

實(shí)現(xiàn)步驟：

1）創(chuàng)建一個(gè)工程

操作方法：略。

2）設(shè)計(jì)界面

由圖3.1可知，本程序需在窗體中一個(gè)文本框（用于輸入圓的半徑）、三個(gè)標(biāo)簽（兩個(gè)

用于顯示提示信息，一個(gè)用于顯示計(jì)算結(jié)果）和一個(gè)命令按鈕（用于發(fā)布計(jì)算命令）。

窗體和有關(guān)控件的屬性，按表3.4設(shè)置。

表3.4窗體和有關(guān)對(duì)象的屬性設(shè)置

窗體或控件屬性設(shè)置值說(shuō)明

Name(名稱)frm0301

窗體

Caption計(jì)算圓的面積

Name（名稱）txtR

文本框Alignment1（右對(duì)齊）清除Text屬性內(nèi)容

Text

Name(名稱)cmdjs

命令按鈕

Caption計(jì)算

Name（名稱）Label1>Label2,IblA

僅對(duì)IblA設(shè)置

標(biāo)簽（三個(gè)）Caption半徑:，面積：，（空）

BorderStyle屬性

BorderStyle1(FixedSingle)

3）編寫(xiě)代碼

本程序只需編寫(xiě)命令按鈕的Click事件代碼:

PrivateSubcmdJs_Click（）

r=Val(txtR.Text)'獲得圓的半徑

s=3.14159*r*r'計(jì)算圓的面積

-16-

IblA.Caption=s'輸出圓的面積

EndSub

4）保存工程并運(yùn)行該程序

本例告訴我們，對(duì)于一個(gè)簡(jiǎn)單的數(shù)據(jù)計(jì)算問(wèn)題，我們可以這樣實(shí)現(xiàn)：

?用一些標(biāo)簽和文本框控件來(lái)提示用戶輸入原始數(shù)據(jù)；

?用一些標(biāo)簽來(lái)顯示計(jì)算的結(jié)果信息；

?用命令按鈕來(lái)完成計(jì)算任務(wù)（計(jì)算代碼寫(xiě)在其Click事件過(guò)程中）。

請(qǐng)思考下列問(wèn)題：

①這個(gè)程序和實(shí)驗(yàn)二的計(jì)算圓面積的程序相比，你認(rèn)為哪個(gè)更好一些？理山是什

么？

②運(yùn)行這個(gè)程序，單擊使窗體標(biāo)題行上的最大化按鈕，或者拖一拖窗口的邊框（改

變了窗口的大?。?，這時(shí)有什么感覺(jué)？是不是有了“這個(gè)窗口不應(yīng)該有最大化按鈕”、“這

個(gè)窗口不應(yīng)該能夠改變大小”之類的想法？如果有，那就動(dòng)動(dòng)手，讓它符合你的想法（如

果實(shí)驗(yàn)二的第5題做了，你肯定已經(jīng)知道該怎么做了）。

③在實(shí)現(xiàn)本程序時(shí)，我們?cè)O(shè)置了窗體和一些控件的Name（名稱）屬性，比如三個(gè)標(biāo)

簽控件，前兩個(gè)都使用默認(rèn)名稱Label1和LabeI2,而第3個(gè)卻沒(méi)有使用默認(rèn)名稱Label3,

而改設(shè)置為IblA,能知道為什么要這樣做嗎？

2.練習(xí)1

仿照上題，自己編寫(xiě)一個(gè)計(jì)算圓的周長(zhǎng)的程序（程序保存于名為0302的文件夾中，

窗體文件以frm0302為名，工程文件以Pij0302為名）。

3.任務(wù)2

編寫(xiě)一個(gè)計(jì)算圓柱體體積的程序（程序保存于名為0303的文件夾中，窗體文件以

limOBOB為名，工程文件以PijO3O3為名）。

1）程序運(yùn)行界面如圖3.2；

2）當(dāng)單擊“計(jì)算”按鈕時(shí)，在該

按鈕右邊的標(biāo)簽中顯示圓柱體的體

積。

實(shí)現(xiàn)步驟：

1）創(chuàng)建一個(gè)工程

圖3.2任務(wù)2的程序運(yùn)行時(shí)界面

操作方法：略。

2）設(shè)計(jì)界面

由圖3.2可知，本程序需在窗體中兩個(gè)文本框（用于輸入圓柱體的底圓半徑和高）、四

個(gè)標(biāo)簽（三個(gè)用于顯示提示信息，一個(gè)用于顯示計(jì)算結(jié)果）和?個(gè)命令按鈕（用于發(fā)布計(jì)

算命令）。

窗體和有關(guān)控件的屬性，按表3.5設(shè)置。

-17-

表3.5窗體和有關(guān)對(duì)象的屬性設(shè)置

窗體或控件屬性設(shè)置值說(shuō)明

Name（名稱）frm0301

控件位置調(diào)整好之后將

窗體Caption計(jì)算圓的面積

窗口調(diào)整到適當(dāng)大小

BordeStyle3

Name（名稱）txtR,txtH

文本框

Alignment1（右對(duì)齊）清除Text屬性內(nèi)容

（2個(gè)）

Text

Name（名稱）cmdjs

命令按鈕

Caption計(jì)算

Name(名稱)Label1,Label2,Label3,IblV

僅對(duì)IblV設(shè)置

標(biāo)簽（4個(gè)）Caption半徑:，高:，體積:，（空）

BorderStyle屬性

BorderStyle1(FixedSingle)

3）編寫(xiě)代碼

本程序只需編寫(xiě)命令按鈕的Click事件代碼:

PrivateSubcmdJs_Click()

r=X^l(txtR.Text),獲得底圓半徑

h=Val(txtH.Text)'獲得圓柱體的高

s=3.14159*r*r’計(jì)算底圓面積

v=s*h'計(jì)算體積

IbIV.Caption=v'輸出體積

EndSub

4）保存工程并運(yùn)行該程序

4.練習(xí)2

編寫(xiě)一個(gè)以上各題功能的程序，要求程

序運(yùn)行界面如圖3.3所示。程序保存于名為

0304的文件夾中，窗體文件以frm0304為名，

工程文件以Prj0304為名。

5.練習(xí)3圖3.3練習(xí)2的程序運(yùn)行時(shí)界面

使用控件常見(jiàn)的錯(cuò)誤及其處理方法

使用控件編程時(shí)經(jīng)常會(huì)遇到“要求對(duì)象”和“未找到方法或數(shù)據(jù)成員”這樣的錯(cuò)誤提

示。本練習(xí)將介紹如何進(jìn)行處理。

清按如下要求建立一個(gè)新工程（文件保存于

名為0305的文件夾中，工程文件以PijO3O5為名）：

1）程序設(shè)計(jì)界面如圖3.4。窗體及各控件的

屬性按表3.6設(shè)置；

2）程序代碼如下：

圖3.4練習(xí)3的程序設(shè)計(jì)界面

-18-

PrivateSubcmdzh_Click()

yc=Val(txtYC.Caption)

Im=2.54*yc

Label3.Caption=Im

EndSub

表3.6練習(xí)3的窗體和有關(guān)對(duì)象的屬性設(shè)置

窗體或控件屬性設(shè)置值說(shuō)明

Name（名稱）Form1(默認(rèn))

窗體

Caption英制轉(zhuǎn)換為公制

Name（名稱）txtYC

文本框Alignment1（右對(duì)齊）清除Text屬性內(nèi)容

Text

Name（名稱）cmdZH

命令按鈕

Caption=

Name(名稱)Label1,Label2,IblLM

僅對(duì)IblLM設(shè)置

標(biāo)簽（3個(gè)）Caption英寸:，厘米:，（空）

BorderStyle屬性

BordcrStylc1(FixedSingle)

完成設(shè)計(jì)之后，請(qǐng)運(yùn)行該程序。

當(dāng)在文本框中輸入了數(shù)據(jù)之后單擊“=”MicrosoftVisualBasic

按鈕時(shí)程序出錯(cuò)，顯示如圖3.5所示的“未A弱譯錯(cuò)誤：

找到方法或數(shù)據(jù)成員”錯(cuò)誤信息框。單擊該q未找到方法或數(shù)據(jù)成員。

信息框中的“確定”按鈕時(shí)，系統(tǒng)將程序掛

|{…糠筵…il幫助1

起（暫停執(zhí)行），并自動(dòng)進(jìn)入代碼編輯窗口，

顯示出出錯(cuò)的代碼（如圖3.6）。圖3.5“未找到方法或數(shù)據(jù)成員”錯(cuò)誤提示框

這種錯(cuò)誤，?般都是由錯(cuò)寫(xiě)了對(duì)象的方

法名或?qū)傩悦鸬摹１热?，本例是將文本框E工程1-frm0305(Code)

|?dZH

txtYC的"Text”屬性誤寫(xiě)為"Caption"T?

遇到這種錯(cuò)誤時(shí)，應(yīng)該分析錯(cuò)誤原因，修改中PrivateSubcmdzh_Click()

yc=Vai1txtYCKBTtB?)

代碼中的錯(cuò)誤，然后可以繼續(xù)運(yùn)行程序（按F5Im=2.54*yc

鍵或單擊工具欄上的快捷按鈕.），也可以終止Label3.Caption=Im

EndSub

程序的執(zhí)行（單擊工具欄上的快捷按鈕■）。

比如,本例,將“Caption”改為“Text”后圖3.6錯(cuò)誤的屬性