常用控件與多窗體

藪袁常用控件與多窗體

第3章介紹了窗體的使用及最基本控件的屬性、事

件和方法。本章介紹另外的幾個(gè)常用控件以及多窗體。

主要內(nèi)容有：圖片框與圖像框、定時(shí)器、單選鈕與復(fù)

選框、框架、列表框與組合框滾動(dòng)條、焦點(diǎn)與Tab順

序、多窗體。

退出

鼠標(biāo)左1

6.1圖片框與圖像框

6.2定時(shí)器

6.3單選鈕與復(fù)選框

6.4容器與框架

6.5列表框與組合框

6.6滾動(dòng)條

6.7焦點(diǎn)與Tab順序

6.8多窗體

6.1圖片框與圖像框

圖片框控件(PictureBox)和圖像框控件

(ImageBox)主要用于在窗體的指定位置顯示圖形信

息。VB6.0支持.bmp、.ico>.wmf>.emf>.jpg>.gif

等格式的圖形文件。

6.1.1圖片框、圖像框的常用屬性

1.Picture屬性

圖片框和圖像框中顯示的圖片由Picture屬性決定。

圖形文件可以在設(shè)計(jì)階段裝入，也可以在運(yùn)行期間裝

入。

(1)在設(shè)計(jì)階段裝入

在設(shè)計(jì)階段，可以用屬性窗口中的Picture屬性裝

入圖形文件。

(2)在運(yùn)行期間裝入

在運(yùn)行期間，可以用LoadPicture函數(shù)把圖形文件

裝入圖片框或圖像框中。語句格式如下：

對(duì)象名.Picture=LoadPicture([filename])

2.AutoSize屬性

該屬性用于圖片框。決定控件是否自動(dòng)改變大小

以顯示圖像全部內(nèi)容。缺省值為False,此時(shí)保持控件

大小不變，超出控件區(qū)域的內(nèi)容被裁減掉；若值為

True時(shí)，自動(dòng)改變控件大小以顯示圖片全部內(nèi)容（注

意：不是圖形改變大?。?。

3.stretch屬性

用于圖像框。當(dāng)該屬性的取值為False時(shí)，圖像控

件將自動(dòng)改變大小以與圖形的大小相適應(yīng)；當(dāng)其值為

True時(shí)，顯示在控件中的圖像的大小將完全適合于控

件的大小，這時(shí)，圖片可能會(huì)變形。

6.1.2圖片框、圖像框的區(qū)別

(1)圖片框控件可以作為其它控件的容器。

.(2)圖片框可以通過Print方法接收文本，而圖像

框則不能接收用Print方法輸入的信息。

(3)圖像框比圖片框占用的內(nèi)存少，顯示速度快。

6.2定時(shí)器

VB提供了一種叫定時(shí)器（Timer）的控件。定時(shí)

器每隔一定的時(shí)間間隔就產(chǎn)生一次Timer事件（可理解

為報(bào)時(shí)），用戶可以根據(jù)這個(gè)特性設(shè)置時(shí)間間隔控制

某些操作或用于計(jì)時(shí)。

1.屬性

定時(shí)器控件的屬性不是很多，最常用的是Interval

屬性，該屬性用來決定兩次調(diào)用定時(shí)器的間隔，以ms

為單位，取值范圍為0-65535,所以最大時(shí)間間隔不

能超過66s,該屬性的缺省值為0,即定時(shí)器控件不起

作用。如果希望每秒產(chǎn)生〃個(gè)事件，則應(yīng)設(shè)置屬性

Interval的值為1000/〃。

2.事件

定時(shí)器只支持Timer事件。對(duì)于一個(gè)含有定時(shí)器控

件的窗體，每經(jīng)過一段由屬性Interval指定的時(shí)間間隔,

就產(chǎn)生一個(gè)Timer事件。

【例6.2】建立數(shù)字計(jì)時(shí)器，要求每秒鐘時(shí)間變化

一次。

設(shè)計(jì)界面:

在窗體上添加一個(gè)定時(shí)器控件、一個(gè)標(biāo)簽，并按

表6-1設(shè)置屬性。

表6」屬性設(shè)式

新象屎性設(shè)置

Tingrlhueival1000

親母

L^bell

疝@

BZWorV^ireVr^SZVt"y^JWeV1-Fixed

HE

程序代碼如下：

PrivateSubTimerl_Timer()

Labell.FontSize=48

Labell.Caption=Time，將Time函數(shù)返回的系統(tǒng)時(shí)

間顯示在標(biāo)簽中

EndSub

執(zhí)行結(jié)果如下圖6-3所示，每隔1s鐘顯示一次時(shí)間。

6殿

坊

0七

例

門

/

匚9子

S

匚E

6.3單選鈕與復(fù)選框

有時(shí)希望在應(yīng)用程序的界面上提供一些項(xiàng)目，讓

用戶從幾個(gè)選項(xiàng)中選擇其中之一，這就要用“單選鈕”

控件。如果有多個(gè)選擇框，每個(gè)選擇框都是獨(dú)立的、

互不影響的，用戶可以任意選擇它們的狀態(tài)組合，則

可以用“復(fù)選框”控件。

6.3.1單選鈕

單選鈕(OptionButton)通常成組出現(xiàn)，主要用

于處理“多選一”的問題。用戶在一組單選鈕中必須

選擇一項(xiàng)，并且最多只能選擇一項(xiàng)。當(dāng)某一項(xiàng)被選定

后，其左邊的圓圈中出現(xiàn)一個(gè)黑點(diǎn)。例如，圖6-4所示

就是一組單選鈕，用戶只能在這3個(gè)單選鈕選項(xiàng)中選擇

0

1.屬性

(1)Value屬性

該屬性表示單選按鈕選中或不被選中的狀態(tài)。

True為選中；False為不被選中。

(2)Caption屬性

該屬性顯示出現(xiàn)在單選鈕旁邊的文本。

(3)Style屬性

該屬性用來設(shè)置控件的外觀。值為0時(shí)，控件顯示

如圖6-4所示標(biāo)準(zhǔn)樣式；值為1時(shí)，控件外觀類似命令

按鈕。

一般說來，單選鈕總是作為一個(gè)組(單選鈕組)

發(fā)揮作用的。圖Q4關(guān)于顏色的單選鈕就是一個(gè)按鈕組。

2.事件

單選鈕常用事件是Click事件。

【例6.4】程序運(yùn)行后，單擊某個(gè)單選鈕，在標(biāo)簽

中顯示相應(yīng)的字體。運(yùn)行結(jié)果如圖6-5所示。

分析：需要在窗體上建立一個(gè)標(biāo)簽和3個(gè)單選鈕［

其主要屬性設(shè)置如表6-2所示。

表6-2對(duì)象屬性設(shè)置

新象屎性設(shè)置

Cqztion顯示不同字體

LabellN^meL&bell

Font麥體

紋及對(duì)像屎性設(shè)置

Cation定住

Option1NameSang

Font束體

Csptiom束書

Option2NameLi

Font京書

Caption格佑

Optiom3NameKai

Font楷體_GB2312

■R1C3

?安恒

rn

困6-5例6.4運(yùn)行結(jié)果

事件過程代碼如下：

PrivateSubkai_Click()

Labell.FontName=”皆體_gb2312"

EndSub

PrivateSubli_Click()

Labell.FontName=”隸書”

EndSub

PrivateSubsong_Click()

Labell.FontName="宋體”

EndSub

6.3.2復(fù)選框

復(fù)選框（CheckBox）也稱檢查框，單擊復(fù)選框一

次時(shí)被選中，左邊出現(xiàn)號(hào)，再次單擊則取消選中,

清除復(fù)選框中的?？赏瑫r(shí)使多個(gè)復(fù)選框處于選中

狀態(tài)，這一點(diǎn)和單選按鈕不同。如圖6-6所示，有四個(gè)

復(fù)選框。

0冏百列打

三月旬”

LhttiS

國6-6復(fù)建框

1.屬性

(1)Value屬性

決定復(fù)選框的狀態(tài)：0—未選中，1一已選中，2—變灰暗。

(2)Picture屬性

用來指定當(dāng)復(fù)選框被設(shè)計(jì)成圖形按鈕時(shí)的圖像。

?2.事件、

復(fù)選框常用事件為Click事件。

【例6.5］用復(fù)選框控制文本是否加下劃線和斜體

顯示。在程序執(zhí)行期間，如果選定“加下劃線”復(fù)選

框，則文本框中的內(nèi)容就加上了下劃線，如果清除

“加下劃線”復(fù)選框，則文本框中的內(nèi)容就沒有下劃

線；如果選定“斜體”復(fù)選框，則文本框中的文字字

形就變成斜體，如果清除“斜體”復(fù)選框，則文本框

中的文字字形就不是斜體。運(yùn)行界面如圖6-7所示。

fml

旦選框舉例

p加下劃線

下鋁體

圖6了復(fù)選框舉例運(yùn)行處累界面

設(shè)計(jì)界面：

在窗體上建立一個(gè)文本框，兩個(gè)復(fù)選框。3個(gè)控件

的屬性如表6-3所不。

編寫如下事件過程：

PrivateSubCheckl_Click()

IfCheckl.Value=1Then

Text1.FontUnderline=True

Else

Text1.FontUnderline=False

EndIf

EndSub

PrivateSubCheck2_Click()

IfCheck2.Value=1Then

Textl.Fontltalic=True

Else

Textl.Fontltalic=False

EndIf

EndSub

PrivateSubFormLoad()

Textl.FontSize=20

EndSub

6.4容器與框架

所謂容器，就是可以在其上放置其它控件對(duì)象的

一種對(duì)象。窗體、圖片框和框架都是容器。容器內(nèi)所

有控件成為一個(gè)組合，隨容器一起移動(dòng)、顯示、消失

和屏蔽。

在前一節(jié)例6.3中，是在一個(gè)窗體上建立一組單選

按鈕，若要在同一窗體上建立幾組相互獨(dú)立的單選按

鈕，通常用框架控件(Frame)將每一組單選鈕框起

來，這樣在一個(gè)框架內(nèi)的單選鈕成為一組，對(duì)一組單

選鈕的操作不會(huì)影響其它組的單選鈕。

在窗體上創(chuàng)建框架及其內(nèi)部控件時(shí)，應(yīng)先添加框

架控件，然后單擊工具箱上的控件，用指針在框

架中以拖拽的方式添加控件，框架內(nèi)的控件不能被拖

出框架外。不能用雙擊的方式向框架中添加控件，也

不能先畫出控件再添加框架。如果要用框架將窗體上

現(xiàn)有的控件進(jìn)行分組，可先選定控件，將它們剪切后

粘貼到框架中。

1.屬性

(1)Caption屬性

框架的標(biāo)題，位于框架的左上角，用于注明框架

的用途。A

(2)Enabled屬性

決定框架中的對(duì)象是否可用，通常把Enabled屬性

設(shè)置為True,以使框架內(nèi)的控件成為可以操作的。

2.事件

Click和DblClick。在大多數(shù)情況下，我們用框架

控件對(duì)控件進(jìn)行分組，沒有必要響應(yīng)它的事件。

【例6.6】使用兩個(gè)單選鈕組來改變文本框中文字

的顏色和大小。運(yùn)行結(jié)果如圖6-8所示。

設(shè)計(jì)界面：

在窗體上添加一個(gè)標(biāo)簽控件，一個(gè)命令按鈕；添

加一個(gè)框架控件，在框架控件上畫上3個(gè)單選鈕控件

（顏色按鈕組）；再添加一個(gè)框架控件，在框架控件

上畫上兩個(gè)單選鈕控件（字體大小按鈕組）。兩個(gè)框

架的Caption屬性分別設(shè)置為“顏色”和“字體大

小”，其它控件屬性的設(shè)置可以按照?qǐng)D6-8所示自己進(jìn)

行。

圖&8例6.6運(yùn)行結(jié)果

三」

編寫代碼如下：

PrivateSubCommandl_Click()

end

EndSub

PrivateSubOptionl_Click()

，藍(lán)色單選鈕

Labell.ForeColor=&HFF0000

EndSub

PrivateSubOption2_Click()

，紅色單選鈕

Labell.ForeColor=&HFF&

EndSub

PrivateSubOption3_Click()

，綠色單選鈕

Labell.ForeColor=&HFF00&

EndSub

PrivateSubOption4_Click()

，文字大小10單選鈕

Labell.FontSize=10

EndSub

PrivateSubOption5_Click()

，文字大小20單選鈕

Labell.FontSize=20

EndSub

6.5列表框與組合框

列表框（ListBox）控件將一系列的選項(xiàng)組合成五

個(gè)列表，用戶可以選擇其中的一個(gè)或幾個(gè)選項(xiàng)，但不

能向列表清單中輸入項(xiàng)目；組合框（ComboBox）控

件是綜合文本框和列表框特性而形成的一種控件，用

戶可通過在組合框中輸入文本來選定項(xiàng)目，也可從列

表中選定項(xiàng)目。

6.5.1列表框

列表框控件（ListBox）的主要用途在于提供列表

式的多個(gè)數(shù)據(jù)項(xiàng)供用戶選擇。在列表框中放入若干個(gè)

項(xiàng)的名字，用戶可以通過單擊某一項(xiàng)或多項(xiàng)來選擇自

己所需要的項(xiàng)目。如果放入的項(xiàng)較多，超過了列表框

設(shè)計(jì)時(shí)可顯示的項(xiàng)目數(shù)，則系統(tǒng)會(huì)自動(dòng)在列表框邊上

加一個(gè)垂直滾動(dòng)條。

1.屬性

(1)List屬性

該屬性是一個(gè)字符串?dāng)?shù)組，用來保存列表框中的

各個(gè)數(shù)據(jù)項(xiàng)內(nèi)容。List數(shù)組的下標(biāo)從0開始，即List(0)

保存表中的第一個(gè)數(shù)據(jù)項(xiàng)的內(nèi)容。List(1)保存第.

個(gè)數(shù)據(jù)項(xiàng)的內(nèi)容，依次類推，List(ListCount-1)保

存表中的最后一個(gè)數(shù)據(jù)項(xiàng)的內(nèi)容。'

在窗體上添加一個(gè)列表框，其外觀如圖6-9所示，.

圖上所顯示的“Listl”是控件的名稱，而不是列表項(xiàng)

中的數(shù)據(jù)項(xiàng)。

Liill

添加到齒體上的列茯框外觀

(2)ListCount屬性

該屬性記錄了列表框中的數(shù)據(jù)項(xiàng)數(shù)，該屬性只能

在程序中引用它。.

(3)Text屬性

用于存放被選中列表項(xiàng)的文本內(nèi)容。該屬性是只

讀的，不能在屬性窗口中設(shè)置，也不能在程序中設(shè)置,

只用于獲取當(dāng)前選定的列表項(xiàng)的內(nèi)容。可在程序中引

用Text屬性值。

（4）Listlndex屬性

該屬性是List數(shù)組中，被選中的列表項(xiàng)的下標(biāo)值

（即索引號(hào)）。如果用戶選擇了多個(gè)列表項(xiàng)，則

Listindex是最近所選列表項(xiàng)的索引號(hào)；如果用戶沒有

從列表框中選擇任何一項(xiàng)，則Listindex為一1。程序運(yùn)

行時(shí)，可以使用Listlndex屬性判斷列表框中哪一項(xiàng)被

選中。

例如，在列表框Listl中選中第2項(xiàng)，即ListLList數(shù)

組的第2項(xiàng)，則Listlndex=1（Listindex從0開始）。

Listlndex屬性不能在設(shè)計(jì)時(shí)設(shè)置，只有程序運(yùn)行

時(shí)才起作用。

(5)Selected屬性

該屬性是一個(gè)邏輯數(shù)組，其元素對(duì)應(yīng)列表框中相

應(yīng)的項(xiàng)。表示相應(yīng)的項(xiàng)在程序運(yùn)行期間是否被選中。

例如，Selected(0)的值為True,表示第一項(xiàng)被選中,

如為False,表示未被選中。

(6)MultiSelect(多選擇列表項(xiàng))屬性

該屬性值表明是否能夠在列表框控件中進(jìn)行復(fù)選

以及如何進(jìn)行復(fù)選。它決定用戶是否可以在控件中做

多重選擇，它必須在設(shè)計(jì)時(shí)設(shè)置，運(yùn)行時(shí)只能讀取該

屬性。Multiselect屬性值的說明如表6-4所示。

表6-4設(shè)置屬性

說明

o(缺省值)不允許況強(qiáng)

1?同里定透可同時(shí)選揉多個(gè)頂，用鼠.標(biāo)漁擊或按下SPACEI空格鍵)在列我中途中或取消建中項(xiàng)

teTSh比弁阻擊鼠標(biāo)或按FSK以及一個(gè)方向逮(上帶頭，F(xiàn)前頭,左帶頭，和右

2?獷雁院遂.箭頭)將包以強(qiáng)運(yùn)連蟆的多個(gè)強(qiáng)項(xiàng)；按下Ctrl并敲擊鼠標(biāo)而在列戲中造中或取消強(qiáng)中

不連續(xù)的多小強(qiáng)項(xiàng)

(7)SelCount屬性

其值表示在列表框控件中所選列表項(xiàng)的數(shù)目，只

有在MultiSelect屬性值設(shè)置為1(Simple)或2

(Extended)時(shí)起作用，通常與Selected數(shù)組一起使用,

以處理控件中的所選項(xiàng)目。

請(qǐng)單擊鼠標(biāo)左鍵換頁7＜僉

2.方法

ListBox對(duì)應(yīng)的控件方法有：Additem,Clear和

Removeitem

(1)Additem方法

該方法向一個(gè)列表框中加入列表項(xiàng)，其語法是：.

Listname.Addltemitem[,index]

(2)Removeitem方法

該方法用于刪除列表框中的列表項(xiàng)，其語法是：

Listname.Removeltemindex

(3)Clear方法

該方法刪除列表框控件中的所有列表項(xiàng)。其語法

是：

Listname.Clear

【例6.7】利用列表框和命令按鈕編程，要求程序

能夠?qū)崿F(xiàn)添加項(xiàng)目、刪除項(xiàng)目、刪除全部項(xiàng)目的功能。

設(shè)計(jì)界面：、

在窗體上添加一個(gè)列表框(ListBox)控件，3個(gè)

命令按鈕。屬性設(shè)置如表6-5所示。

表6-5屬性設(shè)置

利第屎性設(shè)置

ConximndlCation夠加項(xiàng)目

Conimand2Cation姍酸項(xiàng)目,J

全部刪除1

LanomridZCaption

1Listl璇映牌螃2：

FomulCation列強(qiáng)框的慣作

HE

在程序中添加如下代碼:

PrivateSubCommandl_Click()

Dimentry

entry=InputBox("輸入添加內(nèi)容"，“添加")

List1.Additementry，添加項(xiàng)目

EndSub

PrivateSubCommand2_Click()

DimiAsInteger

Fori=Listl.ListCount-1To0Step-1

IfListl.Selected(i)ThenList1.Removeitemi

，刪除選中項(xiàng)目

Nexti

EndSub

PrivateSubCommand3_Click()

Listl.Clear，全部刪除

EndSub

運(yùn)行結(jié)果如圖6-12所示。

國642例6/7過行緘累

6.5.2組合框

組合框(ComoBox)是一種兼有列表框和文本框

的功能的控件。它可以像列表框一樣，讓用戶通過鼠

標(biāo)選擇所需要的項(xiàng)目；也可以像文本框一樣，用鍵入

的方式選擇項(xiàng)目。

1.屬性

(1)Style屬性

這是組合框的一個(gè)重要屬性，其取值為0,b2,.

它決定了組合框3種不同的類型，分別為下拉式組合框、

簡單組合框和下拉式列表框。如圖6-13所示。

?e告曲觸，》氣Hpin

FRW曼合依欣??合fl

二

向

圖6-13組合框哭型

(2)Text屬性

該屬性值是用戶所選擇的項(xiàng)目的文本或直接從編

輯區(qū)輸入的文本。

2.事件

組合框所響應(yīng)的事件依賴于其Style屬性。.

【例6.8】設(shè)計(jì)一個(gè)簡單的報(bào)名窗口，要求界面如

圖6-14所示，從文本框中輸入學(xué)生姓名，在“班級(jí)”

旁邊的組合框中選擇其所屬班級(jí)(提供4種默認(rèn)班級(jí)：

電氣991、微機(jī)991、網(wǎng)絡(luò)991、電子991,用戶可以輸

入其它的班級(jí)名)。然后將學(xué)生姓名和班級(jí)添加到列

表框中。用戶可以刪除列表框中所選擇的項(xiàng)目，也可

以把整個(gè)列表框清空。

@

由

M8

9

摹

二

【

飛

.

lr9

l圖

gj

設(shè)計(jì)界面如下:

在窗體上加入3個(gè)標(biāo)簽，一個(gè)文本框，一個(gè)組合框，

一個(gè)列表框，以及3個(gè)命令按鈕。各控件屬性設(shè)置如表

6-6所示。

表6-6設(shè)置屬性

對(duì)象屎性:設(shè)置

L^bdlCaption姓名

LSe!2Caption班缸：I

313Cation則袤

TextlCaption:空

Combo1Style0

?：^^；

Liftl

MqhiS.jkct2

C(xandlCation加入.j

Caption.JM除強(qiáng)項(xiàng)

C(imd3Cation落空列業(yè)

FannLICaption祖名

程序如下:

PrivateSubCommandl_Click()

If((Textl.Text<>)And(Combol.Text<>

S)Then

List1.AdditemTextl.Text++Combol.Text

Else

MsgBox(”請(qǐng)輸入添加內(nèi)容！D

EndIf

EndSub

年左鍵換頁!〈合

PrivateSubCommand2_Click()

DimiAsInteger

IfList1.Listindex>=0Then

Fori=List1.ListCount-1To0Step-1

IfList1.Selected(i)ThenListl.Removeitemi

，刪除被選中的項(xiàng)目

Nexti

EndIf

EndSub

PrivateSubCommand3_Click()

Listl.Clear1清空列表

EndSub

PrivateSubForm_Load()

Combol.Addltem''電氣991”

Combol.Addltem''微機(jī)991”

Combol.Addltem”網(wǎng)絡(luò)991”

Combol.Addltem”電子991”

Combol.Text=Combol.List(0)

EndSub

程序運(yùn)行界面如圖6-15所示。

睬

於

仁

羽

8

H

.

爸9

,二

二

.

9

Ik

6.6條

滾動(dòng)條通常用來附在窗體邊上幫助觀察數(shù)據(jù)或確

定位置，作為速度、數(shù)量的指示器來使用，也可用來

作為數(shù)據(jù)輸入的工具。

滾動(dòng)條分為水平滾動(dòng)條(HscrollBar)和垂直滾動(dòng)

條(VscrollBar),如圖6-16所示。除方向不一樣外,

水平滾動(dòng)條和垂直滾動(dòng)條的結(jié)構(gòu)與操作是完全相同的。

話動(dòng)雷頭

法動(dòng)塊

滾動(dòng)瞥頭

圖646垂官：浪動(dòng)條和水平/動(dòng)條

HE

滾動(dòng)條的兩端各有一個(gè)滾動(dòng)箭頭，在滾動(dòng)箭頭之

間有一個(gè)滾動(dòng)塊。滾動(dòng)塊從一端移至另一端時(shí)，其值

在不斷變化。垂直滾動(dòng)條的值由上往下遞增，水平滾

動(dòng)條的值由左往右遞增。其值均以整數(shù)表示，取值