◎高等學(xué)校計(jì)算機(jī)基礎(chǔ)教材VisualBasic程序設(shè)計(jì)1◎高等學(xué)校計(jì)算機(jī)基礎(chǔ)教材Visual第3章用戶界面設(shè)計(jì)3.1窗體對(duì)象□3.2命令按鈕3.3標(biāo)簽與文本框□3.4計(jì)時(shí)器3.5單選紐、復(fù)選框和框架3.6列表框、組合框3.7滾動(dòng)條3.8圖片框與圖像框3.9圖形控件與方法3.10通用對(duì)話框3.11控件數(shù)組3.13多文檔窗體

3.12：ActiveX控件2第3章用戶界面設(shè)計(jì)3.1窗體對(duì)象第3章用戶界面設(shè)計(jì)用戶界面是應(yīng)用程序的一個(gè)最重要的組成部分。當(dāng)設(shè)計(jì)應(yīng)用程序時(shí)，有很多問題需要考慮：應(yīng)當(dāng)采用什么樣的用戶界面類型；需要多少不同的窗體；菜單中應(yīng)當(dāng)包含哪些功能；要不要?jiǎng)?chuàng)建工具欄；應(yīng)當(dāng)采用什么樣的對(duì)話框來和用戶進(jìn)行交互；應(yīng)當(dāng)為用戶提供哪些幫助等等。在開始設(shè)計(jì)用戶界面以前應(yīng)當(dāng)了解應(yīng)用程序的用途。為一個(gè)特定用途的應(yīng)用程序所作的設(shè)計(jì)，是不同于其他程序的。一個(gè)用來展示信息的應(yīng)用程序的用戶界面將和一個(gè)用來收集信息的應(yīng)用程序的用戶界面有完全不同的風(fēng)格。3第3章用戶界面設(shè)計(jì)用戶界面是應(yīng)用程序的一個(gè)最重要的組成部3.1窗體對(duì)象窗體

是應(yīng)用程序的設(shè)計(jì)場(chǎng)所，可包括多個(gè)控件。窗體就像可調(diào)整大小的繪圖板，可繪制多種對(duì)象，形成美觀的用戶界面。每個(gè)應(yīng)用程序至少有一個(gè)窗體，是其他對(duì)象的載體。各控件必須建立在窗體上。窗體有自己的屬性、事件和方法，決定著窗體的外觀和行為。43.1窗體對(duì)象43.1.1窗體的屬性通過修改窗體的屬性可以改變窗體內(nèi)在或外在的結(jié)構(gòu)特征，控制窗體的外觀。窗體的部分常用屬性也適用于一些控件。[例3-1]53.1.1窗體的屬性通過修改窗體的屬性可以改變窗體內(nèi)在或外3.1.2窗體的事件1.鼠標(biāo)事件MouseMove、MouseDown、MouseUp、Click、DoubleClick

2.鍵盤事件KeyPress、KeyDown和KeyUp3.系統(tǒng)事件Load、Unload、Activate、Deactivate、Initialize拖放事件DragDrop和Dragover等。63.1.2窗體的事件1.鼠標(biāo)事件63.1.3窗體常用的方法[對(duì)象名.]Print[對(duì)象名.]Cls

[對(duì)象名.]MoveLeft[,Top[,Width[,Height]]][對(duì)象名.]Show[Style][對(duì)象名.]Hide73.1.3窗體常用的方法[對(duì)象名.]Print73.1.4添加窗體添加新窗體的步驟83.1.4添加窗體添加新窗體的步驟83.1.5設(shè)置啟動(dòng)窗體第一個(gè)窗體被默認(rèn)為啟動(dòng)窗體。如要改變系統(tǒng)默認(rèn)的啟動(dòng)窗體，需通過“工程屬性”的設(shè)置進(jìn)行調(diào)整。如要求應(yīng)用程序啟動(dòng)時(shí)不加載任何窗體?？梢栽跇?biāo)準(zhǔn)模塊中創(chuàng)建一個(gè)名為Main的子過程。然后將SubMain過程設(shè)為啟動(dòng)對(duì)象。93.1.5設(shè)置啟動(dòng)窗體第一個(gè)窗體被默認(rèn)為啟動(dòng)窗體。9[例

3-2]設(shè)計(jì)一程序，包括兩個(gè)窗體，在第一個(gè)窗體上添加一標(biāo)簽框，內(nèi)寫“進(jìn)入動(dòng)物世界”。運(yùn)行時(shí)單擊該窗體，顯示第二窗體，窗體上有一動(dòng)物圖片，如再單擊窗體2，窗體1又會(huì)顯示出來，如圖。10[例3-2]設(shè)計(jì)一程序，包括兩個(gè)窗體，在第一個(gè)窗體上添加一設(shè)置對(duì)象屬性□編寫程序代碼：Form1.Hide'將窗體1隱藏窗體1的程序代碼：

PrivateSubForm_Click()

Form2.Show'顯示窗體2

EndSub窗體2的程序代碼：PrivateSubForm_Load()Form2.Picture=LoadPicture("d:\lion.bmp")EndSub

PrivateSubForm_Click()Form1.Show'顯示窗體1

Form2.Hide'隱藏窗體2

EndSub11設(shè)置對(duì)象屬性□編寫程序代碼：Fo3.2命令按鈕用戶通過單擊命令按鈕，觸發(fā)相應(yīng)的事件過程，以實(shí)現(xiàn)指定的功能。3.2.1屬性3.2.2常用事件3.2.1常用方法[例3-3]☆123.2命令按鈕用戶通過單擊命令按鈕，觸發(fā)相3.3標(biāo)簽與文本框3.3.1標(biāo)簽(Label)

一般功能是顯示文本信息。常被用做窗體上其他控件的說明和提示，還可被用作文本信息的輸出工具。主要屬性如表所示。133.3標(biāo)簽與文本框3.3.1標(biāo)簽(Label)13[例3-4]圖3-714[例3-4]圖3-7143.3.2文本框（TextBox）是一種通用控件，可由用戶輸入或顯示文本信息。缺省時(shí)，只能輸入單行文本；若將起其MultiLine屬性設(shè)置為True，則可以輸入多行文本。主要屬性如表。[例

3-5] [例

3-6]153.3.2文本框（TextBox）是一種通用控件，可由用戶3.4計(jì)時(shí)器（Timer）可每隔一定時(shí)間產(chǎn)生一次Timer事件，可根據(jù)這一特點(diǎn)控制某些操作，或用于計(jì)時(shí)。在設(shè)計(jì)時(shí)顯示為一個(gè)小鐘表的圖標(biāo)，運(yùn)行時(shí)則不可見，常用于做一些后臺(tái)處理工作。最常用的是Interval屬性，該屬性決定觸發(fā)Timer事件的時(shí)間間隔毫秒數(shù)。缺省值為0，即計(jì)時(shí)器不起作用。最大可設(shè)置為64767毫秒。如果希望每1秒鐘觸發(fā)一次Timer事件，可把Interval的值設(shè)為1000。另一個(gè)常用屬性是Enabled，設(shè)為True時(shí)，計(jì)時(shí)器工作；設(shè)為False時(shí)，暫停工作。[例3-7][例3-8]163.4計(jì)時(shí)器（Timer）可每隔一定時(shí)間產(chǎn)生一次Timer3.5單選按鈕、復(fù)選框和框架3.5.1單選按鈕（OptionButton）通常由兩個(gè)以上的單選按鈕組成相互排斥的選項(xiàng)組。任何時(shí)候，在選項(xiàng)組中只能選擇一個(gè)選項(xiàng)。[例3-9]☆173.5單選按鈕、復(fù)選框和框架3.5.1單選按鈕（Op3.5.2復(fù)選框（CheckBox）復(fù)選框被選中時(shí)，其中間會(huì)出現(xiàn)一“√”號(hào)，表示被選中。它如同一個(gè)開關(guān)，每單擊一次，它的狀態(tài)在“選中”和“沒選中”之間來回切換。Value屬性，未被選中時(shí)，其值為0，選中時(shí)為1；禁止用戶訪問時(shí)，Value的值為2，復(fù)選框顯示為灰色。[例3-10]☆

3.5.3框架（Frame）是一種容器控件，在框架內(nèi)部的控件可以隨框架一起移動(dòng)，并且受到框架某些屬性（如Enabled、Visible等）的控制。[例3-11]☆183.5.2復(fù)選框（CheckBox）復(fù)選框被選中時(shí)，其中間3.6列表框、組合框和滾動(dòng)條3.6.1列表框[例3-12]☆

可列出若干選項(xiàng)供用戶從中任意選擇，并對(duì)其作某種處理?？蛇x擇其中的一項(xiàng)或多項(xiàng)。193.6列表框、組合框和滾動(dòng)條3.6.1列表框[例33.6.2組合框（ComboBox）將列表框和文本框的功能綜合而成的，既可以選擇選項(xiàng)，又能輸入內(nèi)容。三種形式：不同的Style屬性和顯示方式1）Style為0，稱為“下拉式組合框”。它由可輸入的編輯區(qū)和一個(gè)下拉列表框組成。2）Style為1，稱為“簡(jiǎn)單組合框”。它也是由一個(gè)文本區(qū)和一個(gè)列表框組成，但該列表框不是下拉式的，而是始終顯示在屏幕上的。只有這種組合框可識(shí)別DblC1ick事件。3）Style為2，稱為“下拉式列表框”。用戶只能從列表框中選擇而不能直接向文本區(qū)輸入。[例3-13]☆

■

[例3-14]☆

203.6.2組合框（ComboBox）將列表框和文本框的功能3.7滾動(dòng)條是一種常用來取代用戶輸入的控件，特別適用于不需要精確輸入數(shù)據(jù)的場(chǎng)合。滾動(dòng)條控件有兩個(gè)：水平滾動(dòng)條(HScrollBars)和垂直滾動(dòng)條(VScrollBars)。常用屬性和事件有：1．Min、Max屬性2．Value屬性3．LargeChange屬性4．SmallChange屬性5．Change和Scroll事件[例3-15]☆

213.7滾動(dòng)條是一種常用來取代用戶輸入的控件，特別適用于不需3.8圖片框與圖像框3.8.1圖片框（PictureBox）[例3-16]☆可顯示圖片、作為其它控件的容器、顯示用圖形方法輸出的圖形以及用Print方法輸出的文本。Picture屬性包括被顯示圖片的文件名及可選的路徑名。運(yùn)行時(shí)可利用函數(shù)LoadPicture來設(shè)置其屬性。AutoSize屬性，為True時(shí)，PictureBox能自動(dòng)調(diào)整大小與顯示的圖片匹配。3.8.2圖像框(Image)

圖像框與圖片框有些不同之處：占內(nèi)存少，一般應(yīng)盡量用圖像框。不能用Print方法，不能輸出用作圖方法繪制的圖形Stretch屬性值為True時(shí)，圖形能自動(dòng)變化大小以適應(yīng)圖像框的大小。為False時(shí)，圖像框會(huì)自動(dòng)改變大小以適應(yīng)圖形的大小，使圖形充滿圖像框。223.8圖片框與圖像框3.8.1圖片框（PictureBo3.9圖形控件與方法3.9.1繪圖控件主要有兩個(gè)：畫線控件Line和形狀控件Shape?？稍诖绑w或圖片框中繪制圖形，但不支持事件。Line用來畫直線，最主要屬性是BorderWidth和BorderStyle，分別決定所畫線段的寬度和形狀，另外兩個(gè)坐標(biāo)點(diǎn)(X1，Y1)和(X2，Y2)確定了兩個(gè)端點(diǎn)的位置。Shape可畫矩形、正方形、橢圓、圓、圓角矩形和圓角正方形六種幾何圖形；可通過“Shape”屬性確定其幾何形狀。它的FillStyle屬性和FillColor屬性分別控制其填充圖案和顏色。[例3-17]☆

233.9圖形控件與方法3.9.1繪圖控件233.9.2圖形的坐標(biāo)系統(tǒng)坐標(biāo)系統(tǒng)的坐標(biāo)軸的方向、起點(diǎn)和坐標(biāo)系統(tǒng)的刻度，都可改變，一般使用缺省系統(tǒng)。1．坐標(biāo)單位：即坐標(biāo)的刻度缺省采用twip為單位。設(shè)置對(duì)象的ScaleMode屬性可以改變坐標(biāo)系統(tǒng)的單位，例如語句：Scalemode=VbMillimeters2．坐標(biāo)方法

Scale方法可設(shè)置用戶的坐標(biāo)系統(tǒng)，其語法格式為

[<對(duì)象>．]Scale(x1，y1)-(x2，y2)

說明：(x1，y1)設(shè)置對(duì)象的左上角坐標(biāo)，(x2，y2)設(shè)置對(duì)象的右下角坐標(biāo)。使用Scale方法將自動(dòng)把ScaleMode屬性設(shè)置為0（自定義坐標(biāo)系統(tǒng)）。243.9.2圖形的坐標(biāo)系統(tǒng)坐標(biāo)系統(tǒng)的坐標(biāo)軸的方向、243.9.3常用圖形方法1.Line方法：用于畫直線和矩形，語法格式如下：[對(duì)象.]Line[Step](x1,y1)[Step](x2,y2),[color],[B][F][例一]☆2.Circle方法：用于畫圓、橢圓、圓弧和扇形。[<對(duì)象>.]Circle[Step](x,y),radius,[color],[start],[end][,aspect][例

二]☆3.Pset方法：指定位置(x,y)上，按規(guī)定顏色畫點(diǎn)。[對(duì)象.]Pset[Step](x,y),[color][例3-18]☆

253.9.3常用圖形方法1.Line方法：用于畫直線和矩形3.10通用對(duì)話框（CommonDialog）為用戶提供了一組標(biāo)準(zhǔn)的系統(tǒng)對(duì)話框，可使用它進(jìn)行打開或保存文件、設(shè)置打印選項(xiàng)、選擇各種顏色以及選擇字體等的操作。另外還可通過調(diào)用Windows幫助引擎來顯示應(yīng)用程序的幫助。3.10.1添加“通用對(duì)話框”控件屬于VB專業(yè)版和企業(yè)版所特有，位于文件“C:＼Windows＼System＼Comdlg32.ocx”中，名稱為“MicrosoftCommonDialogControl6.0”用鼠標(biāo)右鍵單擊控件工具箱，在彈出菜單中選擇“部件”，打開部件對(duì)話框。選定所需文件，按“確定”按鈕即可將該控件添加到控件工具箱中。263.10通用對(duì)話框（CommonDialog）為用戶提供27273.10.2使用“通用對(duì)話框控件”可提供6種形式的對(duì)話框。在顯示出通用對(duì)話框前，應(yīng)通過設(shè)置Action屬性或調(diào)用Show方法來選擇。通用對(duì)話框的缺省名為CommonDialog1，……對(duì)話框的類型不在設(shè)計(jì)階段設(shè)置，而是在程序運(yùn)行中進(jìn)行設(shè)置，如：CommonDialog1.Action=1或CommonDialog1.ShowOpen283.10.2使用“通用對(duì)話框控件”可提供6種形式的對(duì)話框1.使用保存文件對(duì)話框和打開文件對(duì)話框[例3-19]☆編寫程序，使用保存文件對(duì)話框建立一個(gè)數(shù)據(jù)文件。然后再使用打開文件對(duì)話框打開該數(shù)據(jù)文件，并利用該文件的數(shù)據(jù)作圖。2.使用顏色對(duì)話框和字體對(duì)話框[例3-20]☆利用顏色對(duì)話框和字體對(duì)話框來改變界面上文本框中文字的顏色和字體。3.10.2使用“通用對(duì)話框控件”291.使用保存文件對(duì)話框和打開文件對(duì)話框3.10.2使用“3.11控件數(shù)組3.11.1控件數(shù)組的概念相同的名稱（Name）以下標(biāo)索引值（Index）來識(shí)別各個(gè)控件3.11.2創(chuàng)建和使用控件數(shù)組

只要將控件的Index屬性值設(shè)置為非空(比如0)，則該控件就被定義成了一個(gè)控件數(shù)組，該控件數(shù)組的名字也就是該控件的名字。Index屬性值相當(dāng)于變量數(shù)組中的下標(biāo)。[例3-21]☆303.11控件數(shù)組3.11.1控件數(shù)組的概念303.12ActiveX控件（外部控件）ActiveX控件是外部控件，因此其存在形式不同于和VisualBasic融合在一起的內(nèi)部控件。它們是以擴(kuò)展名為.ocx的文件形式存在于VisualBasic系統(tǒng)之外，只在需要時(shí)才將其添加到工具箱中。ActiveX控件是對(duì)VisualBasic內(nèi)部控件集合的擴(kuò)充。VisualBasic的諸多強(qiáng)大功能正是依靠ActiveX控件獲得的。添加ActiveX控件的方法：“工程”-->“部件”313.12ActiveX控件（外部控件）ActiveX3.12.1進(jìn)度條（ProgressBar）控件ProgressBar控件：位于MicrosoftWindowsCommonControl6.0部件中。ProgressBar控件：通過從左到右用一些方塊填充矩形來表示一個(gè)較長操作的進(jìn)度。因而可以監(jiān)視操作完成的進(jìn)度。

ProgressBar控件有一個(gè)行程和一個(gè)當(dāng)前位置。行程—代表該操作的整個(gè)持續(xù)時(shí)間。當(dāng)前位置—代表應(yīng)用程序在完成該操作過程時(shí)的進(jìn)度。323.12.1進(jìn)度條（ProgressBar）控件ProgProgressBar控件的重要屬性：Max屬性、Min

屬性、Value屬性：

Max和Min屬性設(shè)置了行程的界限。Value屬性則指明了在行程范圍內(nèi)的當(dāng)前位置。由于使用方塊來填充控件，因此所填充的數(shù)量只能是接近于Value屬性的當(dāng)前設(shè)置值。一般來講，可以將Max設(shè)置為100，Min設(shè)置為1。此時(shí)Value=50表示完成了50%的操作?？梢杂肞rogressBar控件的Align屬性把它自動(dòng)定位在窗體的頂部或底部。33ProgressBar控件的重要屬性：Max屬性、Mi界面設(shè)計(jì)二.屬性設(shè)置:Label1:CaptionTimer1:EnabledIntervalProgressBar1:MinMax[例3-22]☆三.編寫代碼PrivateSubTimer1_Timer()IfProgressBar1.Value>=10ThenEndElseProgressBar1.Value=ProgressBar1.Value+1EndIfEndSub34界面設(shè)計(jì)二.屬性設(shè)置:[例3-22]☆三.編寫代碼343.12.2動(dòng)畫（Animation）控件Animation控件位于MicrosoftWindowsCommonControl-26.0部件中。Animation控件用來顯示無聲的視頻動(dòng)畫，只能播放無聲的視頻(AVI)文件。雖然AVI動(dòng)畫可以有聲音，但這樣的動(dòng)畫不能在Animation控件中使用，如試圖裝載這樣的文件將會(huì)產(chǎn)生錯(cuò)誤。要播放有聲的.avi文件，可用Multimedia(MCI)控件。在運(yùn)行時(shí)，Animation控件不具有自己的圖文框。Animation控件的四個(gè)重要的方法：

Open、Play、Stop和Close

353.12.2動(dòng)畫（Animation）控件Animati[例3-23]☆用Animation控件播放AVI文件界面如圖：PrivateSubCommand1_Click()Animation1.Open"e:\findfile.avi"Animation1.PlayEndSubPrivateSubCommand2_Click()Animation1.StopEndSub36[例3-23]☆用Animation控件播放AVI文件3.12.3選項(xiàng)卡（SSTab）控件SSTab控件位于MirosoftTabbedDialogControl6.0中。SSTab控件提供了一組選項(xiàng)卡，每個(gè)選項(xiàng)卡都可作為其它控件的容器。在控件中，同一時(shí)刻只有一個(gè)選項(xiàng)卡是活動(dòng)的，這個(gè)選項(xiàng)卡向用戶顯示它本身所包含的控件而隱藏其它選項(xiàng)卡中的控件。SSTab控件的屬性可以在其屬性頁中進(jìn)行設(shè)置，其重要屬性及其作用為：

Tabs—決定選項(xiàng)卡的數(shù)目。

TabsPerRow—每一行選項(xiàng)卡數(shù)。

Style—決定選項(xiàng)卡的樣式。373.12.3選項(xiàng)卡（SSTab）控件SSTab控件位于3.13多文檔窗體

3.13.1界面樣式單文檔界面(SingleDocumentInterface,SDI)多文檔界面(MultipleDocumentInterface,MDI)父窗體只能有一個(gè)，子窗體可有多個(gè)。父窗體為應(yīng)用程序中所有子窗體提供工作空間。另外，子窗體的設(shè)計(jì)與父窗體的設(shè)計(jì)無關(guān)，但執(zhí)行階段，子窗體總是包含在父窗體顯示區(qū)域內(nèi)，若超過顯示范圍，父窗體會(huì)自動(dòng)出現(xiàn)卷動(dòng)軸。父窗體和子窗體都可各自設(shè)計(jì)本身的菜單。但執(zhí)行階段，子窗體的菜單會(huì)顯示在父窗體上，以替代父窗體的菜單，所以一般不需在子窗體上設(shè)置菜單，而預(yù)設(shè)在父窗體上。383.13多文檔窗體3.13.1界面樣式383.13.2MDI窗體的創(chuàng)建[例3-24]☆子窗體的排列MDIForml名稱.arrange排列方式393.13.2MDI窗體的創(chuàng)建[例3-24]☆39◎高等學(xué)校計(jì)算機(jī)基礎(chǔ)教材VisualBasic程序設(shè)計(jì)40◎高等學(xué)校計(jì)算機(jī)基礎(chǔ)教材Visual第3章用戶界面設(shè)計(jì)3.1窗體對(duì)象□3.2命令按鈕3.3標(biāo)簽與文本框□3.4計(jì)時(shí)器3.5單選紐、復(fù)選框和框架3.6列表框、組合框3.7滾動(dòng)條3.8圖片框與圖像框3.9圖形控件與方法3.10通用對(duì)話框3.11控件數(shù)組3.13多文檔窗體

3.12：ActiveX控件41第3章用戶界面設(shè)計(jì)3.1窗體對(duì)象第3章用戶界面設(shè)計(jì)用戶界面是應(yīng)用程序的一個(gè)最重要的組成部分。當(dāng)設(shè)計(jì)應(yīng)用程序時(shí)，有很多問題需要考慮：應(yīng)當(dāng)采用什么樣的用戶界面類型；需要多少不同的窗體；菜單中應(yīng)當(dāng)包含哪些功能；要不要?jiǎng)?chuàng)建工具欄；應(yīng)當(dāng)采用什么樣的對(duì)話框來和用戶進(jìn)行交互；應(yīng)當(dāng)為用戶提供哪些幫助等等。在開始設(shè)計(jì)用戶界面以前應(yīng)當(dāng)了解應(yīng)用程序的用途。為一個(gè)特定用途的應(yīng)用程序所作的設(shè)計(jì)，是不同于其他程序的。一個(gè)用來展示信息的應(yīng)用程序的用戶界面將和一個(gè)用來收集信息的應(yīng)用程序的用戶界面有完全不同的風(fēng)格。42第3章用戶界面設(shè)計(jì)用戶界面是應(yīng)用程序的一個(gè)最重要的組成部3.1窗體對(duì)象窗體

是應(yīng)用程序的設(shè)計(jì)場(chǎng)所，可包括多個(gè)控件。窗體就像可調(diào)整大小的繪圖板，可繪制多種對(duì)象，形成美觀的用戶界面。每個(gè)應(yīng)用程序至少有一個(gè)窗體，是其他對(duì)象的載體。各控件必須建立在窗體上。窗體有自己的屬性、事件和方法，決定著窗體的外觀和行為。433.1窗體對(duì)象43.1.1窗體的屬性通過修改窗體的屬性可以改變窗體內(nèi)在或外在的結(jié)構(gòu)特征，控制窗體的外觀。窗體的部分常用屬性也適用于一些控件。[例3-1]443.1.1窗體的屬性通過修改窗體的屬性可以改變窗體內(nèi)在或外3.1.2窗體的事件1.鼠標(biāo)事件MouseMove、MouseDown、MouseUp、Click、DoubleClick

2.鍵盤事件KeyPress、KeyDown和KeyUp3.系統(tǒng)事件Load、Unload、Activate、Deactivate、Initialize拖放事件DragDrop和Dragover等。453.1.2窗體的事件1.鼠標(biāo)事件63.1.3窗體常用的方法[對(duì)象名.]Print[對(duì)象名.]Cls

[對(duì)象名.]MoveLeft[,Top[,Width[,Height]]][對(duì)象名.]Show[Style][對(duì)象名.]Hide463.1.3窗體常用的方法[對(duì)象名.]Print73.1.4添加窗體添加新窗體的步驟473.1.4添加窗體添加新窗體的步驟83.1.5設(shè)置啟動(dòng)窗體第一個(gè)窗體被默認(rèn)為啟動(dòng)窗體。如要改變系統(tǒng)默認(rèn)的啟動(dòng)窗體，需通過“工程屬性”的設(shè)置進(jìn)行調(diào)整。如要求應(yīng)用程序啟動(dòng)時(shí)不加載任何窗體。可以在標(biāo)準(zhǔn)模塊中創(chuàng)建一個(gè)名為Main的子過程。然后將SubMain過程設(shè)為啟動(dòng)對(duì)象。483.1.5設(shè)置啟動(dòng)窗體第一個(gè)窗體被默認(rèn)為啟動(dòng)窗體。9[例

3-2]設(shè)計(jì)一程序，包括兩個(gè)窗體，在第一個(gè)窗體上添加一標(biāo)簽框，內(nèi)寫“進(jìn)入動(dòng)物世界”。運(yùn)行時(shí)單擊該窗體，顯示第二窗體，窗體上有一動(dòng)物圖片，如再單擊窗體2，窗體1又會(huì)顯示出來，如圖。49[例3-2]設(shè)計(jì)一程序，包括兩個(gè)窗體，在第一個(gè)窗體上添加一設(shè)置對(duì)象屬性□編寫程序代碼：Form1.Hide'將窗體1隱藏窗體1的程序代碼：

PrivateSubForm_Click()

Form2.Show'顯示窗體2

EndSub窗體2的程序代碼：PrivateSubForm_Load()Form2.Picture=LoadPicture("d:\lion.bmp")EndSub

PrivateSubForm_Click()Form1.Show'顯示窗體1

Form2.Hide'隱藏窗體2

EndSub50設(shè)置對(duì)象屬性□編寫程序代碼：Fo3.2命令按鈕用戶通過單擊命令按鈕，觸發(fā)相應(yīng)的事件過程，以實(shí)現(xiàn)指定的功能。3.2.1屬性3.2.2常用事件3.2.1常用方法[例3-3]☆513.2命令按鈕用戶通過單擊命令按鈕，觸發(fā)相3.3標(biāo)簽與文本框3.3.1標(biāo)簽(Label)

一般功能是顯示文本信息。常被用做窗體上其他控件的說明和提示，還可被用作文本信息的輸出工具。主要屬性如表所示。523.3標(biāo)簽與文本框3.3.1標(biāo)簽(Label)13[例3-4]圖3-753[例3-4]圖3-7143.3.2文本框（TextBox）是一種通用控件，可由用戶輸入或顯示文本信息。缺省時(shí)，只能輸入單行文本；若將起其MultiLine屬性設(shè)置為True，則可以輸入多行文本。主要屬性如表。[例

3-5] [例

3-6]543.3.2文本框（TextBox）是一種通用控件，可由用戶3.4計(jì)時(shí)器（Timer）可每隔一定時(shí)間產(chǎn)生一次Timer事件，可根據(jù)這一特點(diǎn)控制某些操作，或用于計(jì)時(shí)。在設(shè)計(jì)時(shí)顯示為一個(gè)小鐘表的圖標(biāo)，運(yùn)行時(shí)則不可見，常用于做一些后臺(tái)處理工作。最常用的是Interval屬性，該屬性決定觸發(fā)Timer事件的時(shí)間間隔毫秒數(shù)。缺省值為0，即計(jì)時(shí)器不起作用。最大可設(shè)置為64767毫秒。如果希望每1秒鐘觸發(fā)一次Timer事件，可把Interval的值設(shè)為1000。另一個(gè)常用屬性是Enabled，設(shè)為True時(shí)，計(jì)時(shí)器工作；設(shè)為False時(shí)，暫停工作。[例3-7][例3-8]553.4計(jì)時(shí)器（Timer）可每隔一定時(shí)間產(chǎn)生一次Timer3.5單選按鈕、復(fù)選框和框架3.5.1單選按鈕（OptionButton）通常由兩個(gè)以上的單選按鈕組成相互排斥的選項(xiàng)組。任何時(shí)候，在選項(xiàng)組中只能選擇一個(gè)選項(xiàng)。[例3-9]☆563.5單選按鈕、復(fù)選框和框架3.5.1單選按鈕（Op3.5.2復(fù)選框（CheckBox）復(fù)選框被選中時(shí)，其中間會(huì)出現(xiàn)一“√”號(hào)，表示被選中。它如同一個(gè)開關(guān)，每單擊一次，它的狀態(tài)在“選中”和“沒選中”之間來回切換。Value屬性，未被選中時(shí)，其值為0，選中時(shí)為1；禁止用戶訪問時(shí)，Value的值為2，復(fù)選框顯示為灰色。[例3-10]☆

3.5.3框架（Frame）是一種容器控件，在框架內(nèi)部的控件可以隨框架一起移動(dòng)，并且受到框架某些屬性（如Enabled、Visible等）的控制。[例3-11]☆573.5.2復(fù)選框（CheckBox）復(fù)選框被選中時(shí)，其中間3.6列表框、組合框和滾動(dòng)條3.6.1列表框[例3-12]☆

可列出若干選項(xiàng)供用戶從中任意選擇，并對(duì)其作某種處理?？蛇x擇其中的一項(xiàng)或多項(xiàng)。583.6列表框、組合框和滾動(dòng)條3.6.1列表框[例33.6.2組合框（ComboBox）將列表框和文本框的功能綜合而成的，既可以選擇選項(xiàng)，又能輸入內(nèi)容。三種形式：不同的Style屬性和顯示方式1）Style為0，稱為“下拉式組合框”。它由可輸入的編輯區(qū)和一個(gè)下拉列表框組成。2）Style為1，稱為“簡(jiǎn)單組合框”。它也是由一個(gè)文本區(qū)和一個(gè)列表框組成，但該列表框不是下拉式的，而是始終顯示在屏幕上的。只有這種組合框可識(shí)別DblC1ick事件。3）Style為2，稱為“下拉式列表框”。用戶只能從列表框中選擇而不能直接向文本區(qū)輸入。[例3-13]☆

■

[例3-14]☆

593.6.2組合框（ComboBox）將列表框和文本框的功能3.7滾動(dòng)條是一種常用來取代用戶輸入的控件，特別適用于不需要精確輸入數(shù)據(jù)的場(chǎng)合。滾動(dòng)條控件有兩個(gè)：水平滾動(dòng)條(HScrollBars)和垂直滾動(dòng)條(VScrollBars)。常用屬性和事件有：1．Min、Max屬性2．Value屬性3．LargeChange屬性4．SmallChange屬性5．Change和Scroll事件[例3-15]☆

603.7滾動(dòng)條是一種常用來取代用戶輸入的控件，特別適用于不需3.8圖片框與圖像框3.8.1圖片框（PictureBox）[例3-16]☆可顯示圖片、作為其它控件的容器、顯示用圖形方法輸出的圖形以及用Print方法輸出的文本。Picture屬性包括被顯示圖片的文件名及可選的路徑名。運(yùn)行時(shí)可利用函數(shù)LoadPicture來設(shè)置其屬性。AutoSize屬性，為True時(shí)，PictureBox能自動(dòng)調(diào)整大小與顯示的圖片匹配。3.8.2圖像框(Image)

圖像框與圖片框有些不同之處：占內(nèi)存少，一般應(yīng)盡量用圖像框。不能用Print方法，不能輸出用作圖方法繪制的圖形Stretch屬性值為True時(shí)，圖形能自動(dòng)變化大小以適應(yīng)圖像框的大小。為False時(shí)，圖像框會(huì)自動(dòng)改變大小以適應(yīng)圖形的大小，使圖形充滿圖像框。613.8圖片框與圖像框3.8.1圖片框（PictureBo3.9圖形控件與方法3.9.1繪圖控件主要有兩個(gè)：畫線控件Line和形狀控件Shape?？稍诖绑w或圖片框中繪制圖形，但不支持事件。Line用來畫直線，最主要屬性是BorderWidth和BorderStyle，分別決定所畫線段的寬度和形狀，另外兩個(gè)坐標(biāo)點(diǎn)(X1，Y1)和(X2，Y2)確定了兩個(gè)端點(diǎn)的位置。Shape可畫矩形、正方形、橢圓、圓、圓角矩形和圓角正方形六種幾何圖形；可通過“Shape”屬性確定其幾何形狀。它的FillStyle屬性和FillColor屬性分別控制其填充圖案和顏色。[例3-17]☆

623.9圖形控件與方法3.9.1繪圖控件233.9.2圖形的坐標(biāo)系統(tǒng)坐標(biāo)系統(tǒng)的坐標(biāo)軸的方向、起點(diǎn)和坐標(biāo)系統(tǒng)的刻度，都可改變，一般使用缺省系統(tǒng)。1．坐標(biāo)單位：即坐標(biāo)的刻度缺省采用twip為單位。設(shè)置對(duì)象的ScaleMode屬性可以改變坐標(biāo)系統(tǒng)的單位，例如語句：Scalemode=VbMillimeters2．坐標(biāo)方法

Scale方法可設(shè)置用戶的坐標(biāo)系統(tǒng)，其語法格式為

[<對(duì)象>．]Scale(x1，y1)-(x2，y2)

說明：(x1，y1)設(shè)置對(duì)象的左上角坐標(biāo)，(x2，y2)設(shè)置對(duì)象的右下角坐標(biāo)。使用Scale方法將自動(dòng)把ScaleMode屬性設(shè)置為0（自定義坐標(biāo)系統(tǒng)）。633.9.2圖形的坐標(biāo)系統(tǒng)坐標(biāo)系統(tǒng)的坐標(biāo)軸的方向、243.9.3常用圖形方法1.Line方法：用于畫直線和矩形，語法格式如下：[對(duì)象.]Line[Step](x1,y1)[Step](x2,y2),[color],[B][F][例一]☆2.Circle方法：用于畫圓、橢圓、圓弧和扇形。[<對(duì)象>.]Circle[Step](x,y),radius,[color],[start],[end][,aspect][例

二]☆3.Pset方法：指定位置(x,y)上，按規(guī)定顏色畫點(diǎn)。[對(duì)象.]Pset[Step](x,y),[color][例3-18]☆

643.9.3常用圖形方法1.Line方法：用于畫直線和矩形3.10通用對(duì)話框（CommonDialog）為用戶提供了一組標(biāo)準(zhǔn)的系統(tǒng)對(duì)話框，可使用它進(jìn)行打開或保存文件、設(shè)置打印選項(xiàng)、選擇各種顏色以及選擇字體等的操作。另外還可通過調(diào)用Windows幫助引擎來顯示應(yīng)用程序的幫助。3.10.1添加“通用對(duì)話框”控件屬于VB專業(yè)版和企業(yè)版所特有，位于文件“C:＼Windows＼System＼Comdlg32.ocx”中，名稱為“MicrosoftCommonDialogControl6.0”用鼠標(biāo)右鍵單擊控件工具箱，在彈出菜單中選擇“部件”，打開部件對(duì)話框。選定所需文件，按“確定”按鈕即可將該控件添加到控件工具箱中。653.10通用對(duì)話框（CommonDialog）為用戶提供66273.10.2使用“通用對(duì)話框控件”可提供6種形式的對(duì)話框。在顯示出通用對(duì)話框前，應(yīng)通過設(shè)置Action屬性或調(diào)用Show方法來選擇。通用對(duì)話框的缺省名為CommonDialog1，……對(duì)話框的類型不在設(shè)計(jì)階段設(shè)置，而是在程序運(yùn)行中進(jìn)行設(shè)置，如：CommonDialog1.Action=1或CommonDialog1.ShowOpen673.10.2使用“通用對(duì)話框控件”可提供6種形式的對(duì)話框1.使用保存文件對(duì)話框和打開文件對(duì)話框[例3-19]☆編寫程序，使用保存文件對(duì)話框建立一個(gè)數(shù)據(jù)文件。然后再使用打開文件對(duì)話框打開該數(shù)據(jù)文件，并利用該文件的數(shù)據(jù)作圖。2.使用顏色對(duì)話框和字體對(duì)話框[例3-20]☆利用顏色對(duì)話框和字體對(duì)話框來改變界面上文本框中文字的顏色和字體。3.10.2使用“通用對(duì)話框控件”681.使用保存文件對(duì)話框和打開文件對(duì)話框3.10.2使用“3.11控件數(shù)組3.11.1控件數(shù)組的概念相同的名稱（Name）以下標(biāo)索引值（Index）來識(shí)別各個(gè)控件3.11.2創(chuàng)建和使用控件數(shù)組

只要將控件的Index屬性值設(shè)置為非空(比如0)，則該控件就被定義成了一個(gè)控件數(shù)組，該控件數(shù)組的名字也就是該控件的名字。Index屬性值相當(dāng)于變量數(shù)組中的下標(biāo)。[例3-21]☆693.11控件數(shù)組3.11.1控件數(shù)組的概念303.12ActiveX控件（外部控件）ActiveX控件是外部控件，因此其存在形式不同于和VisualBasic融合在一起的內(nèi)部控件。它們是以擴(kuò)展名為.ocx的文件形式存在于VisualBasic系統(tǒng)之外，只在需要時(shí)才將其添加到工具箱中。ActiveX控件是對(duì)VisualBasic內(nèi)部控件集合的擴(kuò)充。VisualBasic的諸多強(qiáng)大功能正是依靠ActiveX控件獲得的。添加ActiveX控件的方法：“工程”-->“部件”703.12ActiveX控件（外部控件）ActiveX3.12.1進(jìn)度條（ProgressBar）控件ProgressBar控件：位于MicrosoftWindowsCommonControl6.0部件中。ProgressBar控件：通過從左到右用一些方塊填充矩形來表示一個(gè)較長操作的進(jìn)度。因而可以監(jiān)視操作完成的進(jìn)度。

ProgressBar控件有一個(gè)行程和一個(gè)當(dāng)前位置。行程—代表該操作的整個(gè)持續(xù)時(shí)間。當(dāng)前位置—代表應(yīng)用程序在完成該操作過程時(shí)的進(jìn)度。713.12.1進(jìn)度條（ProgressBar）控件ProgProgressBar控件的重要屬性：Max屬性、Min

屬性、Value屬性：

Max和Min屬性設(shè)置了行程的界限。Value屬性則指明了在行程范圍內(nèi)的當(dāng)前位置。由于使用方塊來填充控件，因此所填充的數(shù)量只能是接