VB程序設(shè)計簡明教程

VisualBasic

程序設(shè)計簡明教程

第三版

HIGHCREDUCA7TmIOMBPTRPETSS

吳安伸

1號大孽封售中2

yakunwu2003@

vb程序設(shè)計簡明教程果書目當(dāng)\

目錄

上天、

1工

U

身E早

VisualBasic程序設(shè)計概述

-

上天2工、

U

身E早

VB可視化編程基礎(chǔ)

上-天、

3工

U

身E早

VB語言基礎(chǔ)

上-天、

4工

身U

E早

VB控制結(jié)構(gòu)

上-天、

5工

身U

E早

數(shù)組和自定義類型

上-天、

6工

身U

E早

過程

上-萬、

7工

身方早

用戶界面設(shè)計

第8章數(shù)據(jù)文件

第9章圖形操作

第10章數(shù)據(jù)庫應(yīng)用基礎(chǔ)

本書目塞卜

vb程序設(shè)計簡明教程

教學(xué)安排

早內(nèi)容學(xué)時實驗與學(xué)時

第1章VisualBasic程序設(shè)計概述1實驗11+1

第2章VB可視化編程基礎(chǔ)2實驗22+2

第3章vb語言基礎(chǔ)3實驗32+2

第4章VB控制結(jié)構(gòu)6實驗42+2

第5章數(shù)組和自定義類型4實驗52+2

第6章過程4實驗61+1

第7章用戶界面設(shè)計4實驗72+2

第8章數(shù)據(jù)文件4實驗82+2

第9章圖形操作4實驗92+2

合計16周48學(xué)時(32+16)+課外163216+16

*第10章數(shù)據(jù)庫應(yīng)用基礎(chǔ)8實驗102+4

vb程序設(shè)計簡明教程忝書目用學(xué)

第7章用戶界面設(shè)計

7」常用控件

7?2通用對話框

7?3菜單設(shè)計

7?4多重窗體

7?5鼠標(biāo)和鍵盤

7?6應(yīng)用程序向?qū)?/p>

7?7綜合應(yīng)用

vb程序設(shè)計簡明教程本書目野章目錄

7.1常用控件

在VB中，控件大致分為三大類:

1.標(biāo)準(zhǔn)控件

又稱內(nèi)部控件，在工具箱中默認(rèn)顯示。

2.ActiveX控件1

3.可叫控件j可以加載到工具

箱上，然后像標(biāo)

Windows應(yīng)用準(zhǔn)控件一樣使用。

程序的對象，如

Excel工作表。

vb程序設(shè)計簡明教程忝書目錄章目錄

7?1常用控件

2.ActiveX控件

ActiveX控件是一種ActiveX部件。

FActiveX部件是可以重復(fù)使用的編程代

碼和數(shù)據(jù)，是由用ActiveX技術(shù)創(chuàng)建的一

個或多個對象所組成。

FActiveX部件是擴展名為.ocx的獨立文

件，通常存放在Windows的SYSTEM32

目錄中。

vb程序設(shè)計簡明教程本書目晏，、^章目暴、.

7.1常用控件

、

2.ActiveX控件有可視界面

「ActiveX控件＜______y

ActiveX言「件yActiveXEXE

ActiveXDLLh代碼部件

JActiveX文才當(dāng)無界面

ActiveX控件ActiveX部件文件名

通用對話框MicrosoftCommonComdlg32.

DialogControl6.0OCX

ProgressBarMicrosoftWindowsMscomctl.

CommonControl6.0oct

vb程序設(shè)計簡明教程本書目錄補一章目錄7

7.1常用控件

2.ActiveX控件

2）選定所需部件

ActiveX控件力口載：\_________,y_______________________________

部件

控件|設(shè)計器?可插入對:

“工程/部MicrosoftChartConZ6.0(SP4)(OU-E3

MicrosoftCommConV6.0

MicrosoftCommonDialogControl60

件”菜單命MicrosoftDataBoundGridControl5.0費

MicrosoftDataBoundListControls6.C.11I

色

MicrosoftDataGridControl6.0(OLEDB)■

MicrosoftDataListControls6.0(OLEDBE

令，打開MicrosoftDataRepeaterControl6.0(0L

MicrosoftDDS

MicrosoftDirectAnimationMediaContrc

“部件”對MicrosoftFlexGridControl6.0

MicrosoftForms2.0ObjectLibrary瀏覽⑻.I4

<r只顯示選定項⑤）

'話也MicrosoftCommonDialogControl6.0

定位：L\W：END0WS\sy￡tem32\C0MDU；32,OCX

3）確定

確定I。消I應(yīng)用?

vb程序設(shè)計簡明教程忝書目錄章目錄

7.1常用控件

7?1?1單選按鈕、復(fù)選框和框架

1.單選按鈕(OptionButton)

單選按鈕以組的形式出現(xiàn)，允許選擇一項。

主要屬性：

Caption：按鈕上顯示的文本

Value：表示單選按鈕的狀態(tài)：

⑥True------被選定

°False------未被選定

主要事件：

Click事件：單擊后使Value屬性為True

vb程序設(shè)計簡明教程果書目錄章目■9

7?1?1單選按鈕、復(fù)選框和框架

2.復(fù)選框(CheckBox)

主要屬性：Value屬性

Value屬性值為整型，表示復(fù)選框的狀態(tài)：

0：vbUnchecked未選定□

1：vbChecked被選定審

2：vbGrayed灰色，并顯示選中標(biāo)記。

主要事件：Click事件

伊|7.1通過單選按鈕和復(fù)選框設(shè)置文本框的

字體。

vb程序設(shè)計簡明教程⑥J書目錄章目總

7.1.1單選按鈕、復(fù)選框和框架

PrivateSubCommand1_Click()

Textl.FontName=Hf(Option1,"宋體"黑體")

Text1.Font.Bold=Hf(Check1=1,True,False)

Textl.Font.ltalic=Hf(Check2=1,True,False)

Textl.Font.Strikethrough=Hf(Check3=1,True,False)

Textl.Font.Underline=Hf(Check4=1,True,False)

rnrlih_____________

vb程序設(shè)計簡明教程忝書目錄章目錄

7?1?1單選按鈕、復(fù)選框和框架

3.框架(Frame)

具有容器功能。使用時先建立框架，然后將

各控件放置其中。

主要屬性：

Caption框架上的標(biāo)題文本

框架可以響應(yīng)Click和DoubleClick事件，但

一般不需要編寫事件過程。

例7.2框架用法示例

vb程序設(shè)計簡明教程

7?1?1單選按鈕、復(fù)選框和框架

例7.2框架用法示例

PrivateSubForm_Load()

?FOEMI

,Combol中的選項已在設(shè)計狀

P計篁機態(tài)通過Ust屬性設(shè)計

品牌：慨痕三）

50Combol.Enabled=False

數(shù)量：JsOWindows2000

Textl.Enabled=False

B噪作系統(tǒng)Optionl.Enabled=False

6Windows2000Option2.Enabled=False

''Windows98EndSub

vb程序設(shè)計簡明教程本書目錄補一章目錄

7.1.1單選按鈕、復(fù)選框和框架

PrivateSubCommand1_Click()

IfCheckl.Value=1Then

Listl.AdditemCombol

Listl.AdditemTextl

EndIf

IfCheck2.Value=1Then

IfOptionlThen

Listl.Additem"Windows2000"

Else

Listl.Additem"Windows98"

EndIf

EndIf

vb程序設(shè)計簡明教程本書目野章目錄,4

7.1.1單選按鈕、復(fù)選框和框架

PrivateSubCombo1_LostFocus()

flag=False

Fori=0ToCombol.ListCount-1

IfCombol.List(i)=Combol.TextThen

flag=True

ExitFor

EndIf

Next

IfNotflagThen

Combol.AdditemCombol.Text

EndIf

EndSub

vb程序設(shè)計簡明教程忝書目錄章目錄

7?1?1單選按鈕、復(fù)選框和框架

PrivateSubCheck1_Click()

Combol.Enabled=NotCombol.Enabled

Textl.Enabled=NotTextl.Enabled

EndSub

PrivateSubCheck2_Click()

Optionl.Enabled=NotOptionl.Enabled

Option2.Enabled=NotOption2.Enabled

EndSub

vb程序設(shè)計簡明教程16

7」.2滾動條和進(jìn)度條

I滾動條(ScroHBar)通常附在窗體上協(xié)助觀

察數(shù)據(jù)或確定位置，也可作為數(shù)據(jù)輸入工具

r進(jìn)度條(ProgressBar)用來指示事務(wù)處理

的進(jìn)度。

?滾動條有水平和垂直

vb程序設(shè)計簡明教程本書目受章目第\<

7?1?2滾動條和進(jìn)度條

滾動條主要屬性：

?:?Value：滑塊當(dāng)前位置的值（缺省為0）

?Min：滑塊最小位置值（缺省為0）

<<Max：滑塊最大位置值

?:?SmallChange：

單擊滾動條兩端的箭頭時，Value屬性（滑

塊位置）改變值

^LargeChange：

單擊滾動條空白區(qū)域時，Value屬性改變值

vb程序設(shè)計簡明教程本書目錄今、章目錄18

7」.2滾動條和進(jìn)度條

滾動條主要事件：

Scroll當(dāng)拖動滑塊時觸發(fā)

Change改變Value屬性時觸發(fā)

例73計算0~18之間某個數(shù)階乘，數(shù)據(jù)由

滾動條獲得。分析：

?.水平滾動條應(yīng)用示例|二］叵］區(qū)|Max屬性：1

Min屬性：0

Value初值：0

SmallChange屬性：1

__LargeChangeA4^:3

vb程序設(shè)計簡明教程9

7?1?2滾動條和進(jìn)度條

PrivateSubHScroll1__Change()

DimiAsInteger,sAsDouble

s=1

n=HScrolH.Value

Ifn<>0Then

Fori=1Ton

s=s*i

Nexti

EndIf

Label2.Caption=n&"!="

Label3.Caption=s

EndSub

vb程序設(shè)計簡明教程O本書目dy章目累

7?1?2滾動條和進(jìn)度條

例7.4設(shè)計一個調(diào)色板應(yīng)用程序,使用三個

滾動條作為三種基本顏色的輸入工具。

vb程序設(shè)計簡明教程忝書目錄章目錄

DimRed,Green,BlueAsLong

PrivateSubCommand1_Click()

Textl.BackColor=Labell.BackColor

EndSubPrivateSubCommand2_Click()

Textl.ForeColor=Labell.BackColor

EndSub

PrivateSubHScroll1_Change()

Red=HScroll2.Value

Green=HScrolH.Value

Blue=HScroll3.Value

Labell.BackColor=Red+Green*256+Blue*256*256

EndSub

、22

PrivateSubHScroll2_Change()

Red=HScroll2.Value

Green=HScrolH.Value

Blue=HScroll3.Value

Labell.BackColor=Red+Green*256+Blue*256*256

EndSub

PrivateSubHScroll3_Change()

Red=HScroll2.Value

Green=HScrolH.Value

Blue=HScroll3.Value

Labell.BackColor=Red+Green*256+Blue*256*256

EndSub

ProgressBa時空也；設(shè)置控件的界*

主要屬性：|Max、IViH^〔Value。

____________________________________________________________~—-——_____________________________.

控件執(zhí)行階段被填充的數(shù)目，直到等于

Max屬性值?？丶@示的填充數(shù)是Value屬

性與Max和Min屬性之間的比值。

對ProgressBar編程時，必須先確定Value屬

性上限。例如，下載文件，可將Max設(shè)置為

文件長度。在該文件下載過程中，將Value屬

性設(shè)置為文件已經(jīng)下載的字節(jié)數(shù)。

vb程序設(shè)計簡明教程本書目晏卯7章目暴、

7?1?2滾動條和進(jìn)度條__________

例7.5用進(jìn)度條來指示一個大數(shù)組的計算進(jìn)度。

vb程序設(shè)計簡明教程本書目錄彳章目景

7?1?2滾動條和進(jìn)度條

SubCommand1_Click()

DimCounterAsInteger

DimWorkarea(25000)AsString

ProgressBarl.Min=LBound(Workarea)

ProgressBarl.Max=UBound(Workarea)

ProgressBarl.Visible=True

ProgressBarl.Value=ProgressBarl.Min

ForCounter=LBound(Workarea)ToUBound(Workarea)

Workarea(Counter)="Initialvalue"&Counter

ProgressBarl.Value=Counter

NextCounter

ProgressBarl.Visible=False

ProgressBarl.Value=ProgressBarl.Min

EndSub

7.1.3圖形框和圖像框__________

?:?圖形框和圖像框均可以顯示BMP、ICO、

WMF、GIF、JPEG等文件的圖形。

?:?圖形框還可以作為容器放置其他控件，以

及通過Print、Pset>Line、Circle等方法

在其中輸出文本和畫圖。

1.圖形框PictureBox控件

主要屬性：Picture和Autosize

Picture:決定控件中所顯示的圖形文件。

vb程序設(shè)計簡明教程忝書目錄章目錄

7.1.3圖形框和圖像框

Picture屬性獲得值的方法：

I設(shè)計時直接選擇圖形文件設(shè)置Picture屬性

B運行時用LoadPicture()S數(shù)裝入圖形

圖形框.Picture=LoadPicture("圖形文件名”)

?裝入另一個圖形框中的圖形

圖形框1.Picture=圖形框2.Picture

在程序運行時刪除圖形框中圖形，也用

LoadPicture()函數(shù)。

圖形框.Picture=LoadPicturef1,11)

vb程序設(shè)計簡明教程本書目錄補一章目錄28

7.1.3圖形框和圖像框

Autosize屬性

True：圖形框自動調(diào)整大小與圖片匹配

False：圖形超過圖形框的部分將被剪裁掉

2.圖像框Image

使用方法與圖形框相同。圖像框占用更少的

內(nèi)存，描繪得更快，

與圖形框區(qū)別：

■其內(nèi)但不能存放其他控件。

I無Autosize屬性,但有Stretch屬性。

vb程序設(shè)計簡明教程本書目錄補一章目錄29

713圖形框和圖像框

2.圖像框Image

Stretch屬性

False圖像框自動改變大小適應(yīng)其中的圖形

True圖形根據(jù)圖像框的大小自動調(diào)整尺寸

例7.6本例說明圖像框的Stretch屬性對加載

的圖形的影響。復(fù)選框控制Stretch屬性，滾

動條控制圖像的大小。行,Stret□0?

vb程序設(shè)計簡明教程忝書目尋

7.1.3圖形框和圖像框

DimH,WAsInteger'H和W分別存放圖形的原始大小

SubCheck1_Click()

Imagel.Stretch=Checkl.Value

EndSubSubForm_Load()

H=Imagel.Height

W=Imagel.Width

EndSub

SubHScroll1_Scroll()

Imagel.Height=H*HScrolH.Value110

Imagel.Width=W*HScrolH.Value/10

EndSub

vb程序設(shè)計簡明教程本書目錄補一章目錄

7?1?4定時器

定時器以一定的時間間隔產(chǎn)生Timer事件

主要屬性：

Enabled為False時定時器不產(chǎn)生Tick事件

Interval觸發(fā)Timer事件的時間間隔(ms)

事件：Timer事件

產(chǎn)生Timer事件條件：

Enabled=True;

「IntervalI

vb程序設(shè)計簡明教程本書目錄補一章目錄

7?1?4定時器

例7.7設(shè)計一個倒計時應(yīng)用程序

*倒計時程序PPlfXSubTimer1__Timer()

定時時間：P分H…gjg…[|

Dimm,sAsInteger

。分30秒

t=t-1

m=lnt(t/60)

s=tMod60

DimtAsInteger

Labell.Caption=m&"分“&s&

SubCommand1_Click()

If(t=0)Then

t=60*Val(Textl.Text)

Timeri.Enabled=False

Timeri.Enabled=True

MsgBox。'時間到！)

EndSub

EndIf

vb程序設(shè)計簡明教程本書目錄章目景—

7?1?4定時器

例7.8用定時器控制蝴蝶在窗體內(nèi)的飛舞。

PrivateSubcmdEnd_Click()

End

EndSub

vb程序設(shè)計簡明教程本書目晏，、^章目暴、.

7?1?4定時器

PrivateSubTimer1_Timer()

StaticImaBmpAsInteger

ImaMain.MoveImaMain.Left+20,ImaMain.Top-5

IfImaMain.Top<=0Then

ImaMain.Left=0

ImaMain.Top=1320

EndIf

IfImaBmpThen

ImaMain.Picture=ImaOpenWings.Picture

Else

ImaMain.Picture=ImaCloseWings.Picture

EndIf

ImaBmp=NotImaBmp

EndSub

vb程序設(shè)計簡明教程忝書目錄章目錄

7?2通用對話框

VB提供了一組基于Windows的標(biāo)準(zhǔn)對話框。

利用通用對話框控件可在窗體上創(chuàng)建六種標(biāo)

準(zhǔn)對話框：打開文件、保存文件、顏色、字

體、打印和幫助對話框。

通用對話框是一種ActiveX控件，位于

MicrosoftCommonDialogControl6.0言「

件中，通過選擇“工具/部件”命令加載。

vb程序設(shè)計簡明教程36

7.2通用對話框

在設(shè)計狀態(tài)，窗體上顯示通用對話框圖標(biāo),

但在運行時，窗體上不會顯示通用對話框,

需要用Action屬性或Show方法激活。

通用對話框僅用于應(yīng)用程序與用戶之間進(jìn)

行信息交互,是輸入輸出的界面,不能真

正實現(xiàn)文件打開、文件存儲、設(shè)置顏色、

字體設(shè)置、打印等操作，如果想要實現(xiàn)這

些功能則需要編程實現(xiàn)。

vb程序設(shè)計簡明教程本書目錄今章目暴

7.2.1引例

例7.9通過單擊“瀏

覽圖片"按鈕）彈出

打開文件對話框，選

擇一個BMP位圖文件，

在圖形框中顯示該圖

片。

1,加載通用對話框控件

2,設(shè)計程序的窗體界面，并設(shè)置各控件的

屬性。

vb程序設(shè)計簡明教程本書目錄補一章目錄38

通用對話框的屬性可在其“屬性頁”對話

框

中式

vb程序設(shè)計簡明教程卷書目錄彳章目.39

7.2通用對話框

3,編寫事件過程。

PrivateSubCommand1_Click()

CommonDialogl.ShowOpen

'CommonDialogl.Action=1

Picturel.Picture=

LoadPicture(CommonDialogl.FileName)

EndSub

vb程序設(shè)計簡明教程卷書目錄彳章目.

7.2通用對話框

說明：

1.通用對話框?qū)傩砸部稍诔绦虼a中設(shè)置。

CommonDialogl.FileName="*.Bmp”

CommonDialog1.lnitDir="C:\Windows”

CommonDialogl.Filter=

uPictures(*.Bmp)|*.Bmp|AII

CommonDialogl.Filterlndex=1

vb程序設(shè)計簡明教程

_________7.2通用對話框

2.通用對話框的基本屬性和方法

⑴Action屬性和Show方法打開對話框

通用對話框的類型Action屬性Show方法

打開文件對話框ShowOpen

另存為對話框/?ShowSave

顏色對話框/3\ShowColor

字體對話框/4\ShowFont

打印機對話框/5\ShowPrinter

幫助對話框_/6\\_ShowHelp

P亥屬性只能在程序中賦值，不

量能在屬性窗口設(shè)置。，4?8~公S3

7.2通用對話框

2.通用對話框的基本屬性和方法

(2)DialogTiltle屬性

設(shè)置通用對話框標(biāo)題，可以是任意字符串。

⑶CancelError屬性

該屬性值決定在用戶單擊“取消”按鈕時

是否產(chǎn)生錯誤信息。

True：選擇取消按鈕，Err.Number設(shè)置為

32755(cdCancel)o

False：選擇取消按鈕，沒有錯誤警告。

vb程序設(shè)計簡明教程本書目錄補一章目錄43

7.2.1打開文件對話框

通過設(shè)置Action屬性為1

或用ShowOpen方法來顯示打開對話框。

打開對話框并不能真正打開一個文件，

僅提供一個打開文件的用戶界面，供用

戶選擇文件。打開文件的具體工作需要

編程完成。

vb程序設(shè)計簡明教程本書目錄補一章目錄44

7?21打開文件對話框

重要屬性：

(1)FileName文件名稱，包含路徑

(2)FileTitle文件名，不包含路徑

(3)Filter確定所顯示文件的類型

例如：TextFiles|*.txt|所有文件

顯示文本文件和所有文件

(4)Filterlndex文件列表中指定某類型文件

⑸InitDir初始化路徑

vb程序設(shè)計簡明教程本書目錄補一章目錄45

7.2.1打開文件對話框

InitDir

FileNameFilter

Filterindex

例7」0編寫一個簡單的文本文件編輯程序

vb程序設(shè)計簡明教程忝書目錄章目錄

7?2?2保存文件對話框__________

由ShowSave方法來實現(xiàn)

與打開文件對話框的屬性基本相同，特有的屬性

是DefaultExt屬性，用于設(shè)置缺省的擴展名。

例Z11為例7.10中的另存為命令按鈕編寫代碼，保存文

本框內(nèi)的信息。

SubCommand2_Click()

CommonDialogl.ShowSave

OpenCommonDialogl.filenameForOutputAs#1

Print#15Textl.Text.保存文件

Close#1'關(guān)閉文件

EndSub

vb程序設(shè)計簡明教程

由$115/^（：。1?！阜椒ù蜷_顏色對話框

重要屬性Color,它返回或設(shè)置選定的顏色

例742為例740中的顏色命令按鈕編寫事件

過程，設(shè)置文本框的前景色。

SubCommand3_Click()

CommonDialogl.ShowColor

Textl.ForeColor=CommonDialogl.Color

EndSub設(shè)置文件框前景顏色

vb程序設(shè)計簡明教程本書目錄補一章目錄

7.2.4字體對話框

由ShowFont方法來實現(xiàn)

獲取選擇的字體善囪區(qū)|

Font字體0:字形復(fù))：大?、?

小五確定

小

四

五

號取消

Color選定的顏色堡m

泊體

號

粗斜體六

ly號

丸

顯示字體對話框前必號

施果示例

r刪除線鎧)

須設(shè)置Flags屬性，微軟中文軟件

r下劃統(tǒng)@)

顏色(C):

字符集?

否則將發(fā)生不存在字|,黑色二］

|CMIBESE_GB2312

體錯誤。

通常設(shè)置為H103。

例7.13為例7.10中的字體按鈕編寫設(shè)置文本框字體

的過程。

vb程序設(shè)計簡明教程忝書目錄章目錄49

7-3菜單設(shè)計

菜單有下拉式菜單和彈出菜單（上下文菜單）。

下拉式菜單的組成結(jié)構(gòu)：

主菜單

菜單項

子菜單名

vb程序設(shè)計簡明教程本書目錄今、章目錄50

7.3.1菜單編輯器

r

菜單項屬性

操作按鈕

菜單列表框

vb程序設(shè)計簡明教程忝書目用不、『章目錄

7.3.1菜單編輯器

菜單項除了Name、Visible、Enabled等屬性

之外，還具有下列重要屬性：

(1)Text菜單項上顯示的標(biāo)題文本。

熱鍵設(shè)置：在字符前加一個例如，輸入

“新建(&N)%則菜單顯示“新建(N)”。

菜單項分隔符設(shè)置：輸入一個減號

(2)Shortcut設(shè)置菜單項的快捷鍵。

(3)Checked控制菜單項左邊是否顯示7'

(4)菜單項的事件Click為菜單項編寫程序

vb程序設(shè)計簡明教程本書目錄今、章目錄

732下拉式菜單

例7.15將例7.10中的命令組織成菜單。

vb程序設(shè)計簡明教程忝書目錄章目錄53

7.3.3彈出菜單________________

獨立于窗體菜單欄，顯示在窗體內(nèi)的浮動

菜單。顯示位置取決于單擊鼠標(biāo)鍵時的位

置。

菜單彈出的方法:

[對象JPopupMenu菜單到國志,x,y]

表示彈出的