《Visual Basic 6.0程序設(shè)計(jì)》課件

http:///電子教學(xué)參考資料包VisualBasic6.0程序設(shè)計(jì)主編張少杰目錄第1章VisualBasic使用基礎(chǔ)第2章VisualBasic編程語(yǔ)言第3章應(yīng)用程序窗體設(shè)計(jì)第4章標(biāo)準(zhǔn)控件應(yīng)用第5章多媒體程序設(shè)計(jì)第6章菜單與工具欄設(shè)計(jì)第7章文件訪問與管理第8章數(shù)據(jù)庫(kù)程序設(shè)計(jì)第9章學(xué)生成績(jī)管理系統(tǒng)3／126任務(wù)1進(jìn)入VB編程世界【知識(shí)點(diǎn)】VisualBasic集成開發(fā)環(huán)境

VisualBasic編程步驟

VisualBasic工程與模塊對(duì)象的屬性、方法和事件【任務(wù)描述】在本任務(wù)中創(chuàng)建第一個(gè)VisualBasic應(yīng)用程序，運(yùn)行該程序時(shí)在屏幕上打開一個(gè)窗口，窗口下部有一個(gè)“顯示”按鈕。當(dāng)用戶用鼠標(biāo)單擊此按鈕時(shí)，將在窗口上部顯示“歡迎您進(jìn)入VisualBasic編程世界”信息，如圖1-1所示。第1章目錄4／126任務(wù)1進(jìn)入VB編程世界【任務(wù)分析】根據(jù)應(yīng)用程序的功能，需要使用窗體作為程序界面的容器，并在窗體上添加一個(gè)命令按鈕和一個(gè)標(biāo)簽，前者用于執(zhí)行命令，后者用來顯示“歡迎您進(jìn)入VisualBasic編程世界”。【操作步驟】（1）啟動(dòng)VisualBasic6.0。（2）創(chuàng)建標(biāo)準(zhǔn)EXE工程。（3）添加命令按鈕。（4）添加標(biāo)簽控件。（5）設(shè)置命令按鈕的Caption屬性。（7）設(shè)置標(biāo)簽的字體屬性。（7）設(shè)置標(biāo)簽控件顯示的文字。（8）設(shè)置窗體Form1的標(biāo)題文字。（9）打開窗體Form1的程序代碼窗口，編寫按鈕的Click事件過程。（10）在代碼窗口的第二行輸入以下VisualBasic語(yǔ)句： Label1.Caption="歡迎您進(jìn)入VisualBasic編程世界"（11）保存工程。（12）生成exe文件。第1章目錄5／126任務(wù)1進(jìn)入VB編程世界【程序測(cè)試】（1）按F5鍵運(yùn)行程序。（2）用鼠標(biāo)單擊“顯示”按鈕時(shí)，窗口上部的標(biāo)簽將顯示“歡迎您進(jìn)入VisualBasic編程世界”。（3）單擊窗口右上角的關(guān)閉按鈕，或從“運(yùn)行”菜單中選擇“結(jié)束”命令，以退出程序，返回VisualBasic集成開發(fā)環(huán)境。第1章目錄6／126任務(wù)1進(jìn)入VB編程世界【知識(shí)鏈接】1.對(duì)象的基本概念（1）對(duì)象。（2）屬性。在程序中用程序語(yǔ)句設(shè)置屬性： 對(duì)象名.屬性名稱=屬性值（3）事件。（4）方法。調(diào)用方法的語(yǔ)法格式為： 對(duì)象名.方法名（5）屬性、方法和事件之間的關(guān)系。2.VisualBasic編程步驟（1）構(gòu)建應(yīng)用程序的用戶界面。（2）設(shè)置窗體和控件的屬性。（3）編寫程序代碼。3.VisualBasic工程與模塊工程是VisualBasic應(yīng)用程序開發(fā)過程中使用的文件集。VisualBasic工程主要由窗體模塊、標(biāo)準(zhǔn)模塊和類模塊組成。（1）窗體模塊。（2）標(biāo)準(zhǔn)模塊。（3）類模塊。第1章目錄7／126VisualBasic編程步驟（1）建立應(yīng)用程序界面：用戶界面由窗體和控件組成。所有的控件都放在窗體上，一個(gè)窗體最多可容納255個(gè)控件。程序中的所有信息都要經(jīng)過窗體顯示出來，它是用戶應(yīng)用程序的最終界面。在應(yīng)用程序中需要用到什么樣的控件，就利用工具箱在窗體上添加相應(yīng)的控件。程序運(yùn)行后，將在屏幕上顯示由窗體和控件的用戶界面。（2）設(shè)置界面對(duì)象屬性：建立用戶界面后，就可以設(shè)置在窗體和各個(gè)控件的屬性。選中一個(gè)對(duì)象后，該對(duì)象所具有的全部或大多數(shù)屬性值就會(huì)在屬性窗口列表中顯示出來。通過修改屬性值就可以改變控件的標(biāo)題、字體等屬性。在實(shí)際的應(yīng)用程序中，建立界面和設(shè)置屬性可以同時(shí)進(jìn)行，即每添加一個(gè)控件，接著就可設(shè)置該控件的屬性。（3）編寫事件驅(qū)動(dòng)代碼：visualbasic采用事件驅(qū)動(dòng)的編程機(jī)制，當(dāng)發(fā)生某個(gè)事件時(shí)，就會(huì)“驅(qū)動(dòng)”預(yù)選一系列設(shè)置的動(dòng)作，這種情況稱為“事件驅(qū)動(dòng)”；而預(yù)先設(shè)置的那些動(dòng)作，即針對(duì)控件或窗體的事件驅(qū)動(dòng)代碼，稱為“事件過程”。8／126VisualBasic工程與模塊工程是VisualBasic應(yīng)用程序開發(fā)過程使用的文件集。VisualBasic工程主要由窗體模塊、標(biāo)準(zhǔn)模塊和類模塊組成。（1）窗體模塊。窗體模塊的文件擴(kuò)展名為.

Frm，這類模塊是大多數(shù)VisualBasic應(yīng)用程序的基礎(chǔ)。窗體模塊可以包含處理事件的過程、通用過程及變量、常數(shù)、類型和外部過程的窗體級(jí)聲明。如果在文本編輯器中觀察窗體模塊，還會(huì)看到窗體及其控件的描述，包括它們的屬性設(shè)置值。寫入窗體模塊的代碼是該窗體所屬的具體應(yīng)用程序?qū)Ｓ玫?，它可以引用該?yīng)用程序內(nèi)的其他窗體或?qū)ο?。?）標(biāo)準(zhǔn)模塊。標(biāo)準(zhǔn)模塊的文件擴(kuò)展名為.bas,這類模塊是應(yīng)用程序內(nèi)其他模塊訪問的過程和聲明的容器。標(biāo)準(zhǔn)模塊可以包含變量、常數(shù)、類型、外部過程和全局過程的全局聲明或模塊級(jí)聲明，全局變量和全局過程可以在整個(gè)應(yīng)用程序范圍內(nèi)有效。（3）標(biāo)準(zhǔn)模塊的文件擴(kuò)展名為.cls,這類模塊是面向?qū)ο缶幊痰幕A(chǔ)。在這類模塊中可以通過編寫代碼來建立新對(duì)象，這些新對(duì)象可以包含自定義的屬性和方法。實(shí)際上，窗體正是這樣一類模塊9第2章VisualBasic編程語(yǔ)言

任務(wù)1區(qū)分?jǐn)?shù)據(jù)的類型任務(wù)2制作個(gè)人信息卡任務(wù)3計(jì)算圓的面積任務(wù)4判斷閏年的問題任務(wù)5改變窗體的顏色任務(wù)6值班情況查詢?nèi)蝿?wù)7棋盤上的麥粒數(shù)任務(wù)8計(jì)算階梯問題任務(wù)9分析蛋糕銷售情況任務(wù)10統(tǒng)計(jì)家庭支出情況任務(wù)11編寫猜寶游戲任務(wù)12實(shí)現(xiàn)金額大寫轉(zhuǎn)換任務(wù)13查找程序中的錯(cuò)誤10／126任務(wù)1區(qū)分?jǐn)?shù)據(jù)的類型第2章目錄任務(wù)1區(qū)分?jǐn)?shù)據(jù)的類型【知識(shí)點(diǎn)】基本數(shù)據(jù)類型常量Print語(yǔ)句標(biāo)識(shí)符命名規(guī)則【任務(wù)描述】在本任務(wù)中分別為每種數(shù)據(jù)類型提供一些常量，并使用Print語(yǔ)句將常量的值顯示在窗體上，運(yùn)行效果如圖2-1所示。11／126任務(wù)1區(qū)分?jǐn)?shù)據(jù)的類型第2章目錄【設(shè)計(jì)步驟】【程序測(cè)試】1.基本數(shù)據(jù)類型12／126任務(wù)1區(qū)分?jǐn)?shù)據(jù)的類型第2章目錄2.常量（1）一般常量字符串常量數(shù)值常量布爾型常量日期型常量（2）符號(hào)常量VsiualBasic6.0定義了許多符號(hào)常量如vbRed（紅色）、vbBlue（藍(lán)色）、vbGreen（綠色）等，在程序設(shè)計(jì)中可以直接使用。用戶定義的符號(hào)常量可以用Const語(yǔ)句來聲明，語(yǔ)法格式如下。 Const常量名[As類型]=常量表達(dá)式3.Print語(yǔ)句 [對(duì)象名稱.]Print[表達(dá)式][,|;][表達(dá)式][,|;]…4.標(biāo)識(shí)符命名規(guī)則標(biāo)識(shí)符必須以字母開頭。最大長(zhǎng)度為255。標(biāo)識(shí)符不能使用VsiualBasic的保留字（關(guān)鍵字）。不能包含在VsiualBasic中有特殊含義的字符如：句號(hào)、空格、類型說明符、運(yùn)算符等。VsiualBasic的標(biāo)識(shí)符不區(qū)分大小寫。標(biāo)識(shí)符在標(biāo)識(shí)符的同一范圍內(nèi)必須是唯一的。在VsiualBasic中，符號(hào)常量名、變量名、過程名、記錄類型名、元素名等名稱都必須遵循上述命名規(guī)則。13／126標(biāo)示符命名的注意事項(xiàng)（1）為了增加程序的可讀性，可在變量名前加一個(gè)縮寫的前綴來表明該變量的數(shù)據(jù)類型，盡量采用VisualBasic建議的變量名前綴或后綴的的約定來命名，以便區(qū)分變量的類型。如：intmax、strname。（2）取名最好使用有明確實(shí)際意義（描述性的）和容易記憶（完整的單詞或音節(jié)）以及通用的變量名、即要見明知義。比如用:sum(或s)代表求和，用difference(或d)代表求差符。（3）變量名不能與過程名和符號(hào)常量名相同。（4）整型和長(zhǎng)整型數(shù)據(jù)負(fù)數(shù)前有符號(hào)位“-”正數(shù)的“+”用空格代替。（5）單精度型數(shù)的有效數(shù)位為7位，當(dāng)結(jié)果能用7位以內(nèi)的數(shù)字表示時(shí)，用小數(shù)型是輸出，否則用規(guī)范指數(shù)形式輸出，用E表示底數(shù)。（6）雙精度底數(shù)的有效數(shù)位為15位用規(guī)范的指數(shù)形式輸出，用D表示底數(shù)10。14／126任務(wù)2制作個(gè)人信息卡第2章目錄【知識(shí)點(diǎn)】變量和語(yǔ)句格式賦值語(yǔ)句、注釋語(yǔ)句和結(jié)束語(yǔ)句【任務(wù)描述】在本任務(wù)中制作一個(gè)個(gè)人信息卡，卡片上的內(nèi)容包括：姓名、性別、身高、體重、出生時(shí)間以及是否喜歡學(xué)習(xí)VsiualBasic6.0等信息，程序運(yùn)行效果如圖2-3所示?！驹O(shè)計(jì)步驟】【程序測(cè)試】15／126任務(wù)2制作個(gè)人信息卡第2章目錄【知識(shí)鏈接】1.變量變量聲明語(yǔ)句：<Dim|Private|Static|Public><變量名>[As類型][，<變量名>[As類型]]2.賦值語(yǔ)句 [Let]變量名=表達(dá)式3.注釋語(yǔ)句 Rem|'[注釋文本]4.結(jié)束語(yǔ)句EndUnload<對(duì)象名稱>5.語(yǔ)句書寫格式16／126賦值語(yǔ)句的說明變量和表達(dá)式的數(shù)據(jù)類型必須一致。若兩者同為數(shù)值型但精度不同，則系統(tǒng)會(huì)強(qiáng)制將表達(dá)式的值轉(zhuǎn)換為變量所要求的精度。賦值號(hào)“=”表示將表達(dá)式的值賦值給變量，與數(shù)學(xué)上的符號(hào)意義不同。方括號(hào)的項(xiàng)是可選的，方括號(hào)中的Let表示賦值，通常省略。例如：x=8=9語(yǔ)句的含義是將關(guān)系表達(dá)式8=9的結(jié)果賦給變量x，x的值為0（Flase）。賦值語(yǔ)句兼有計(jì)算與賦值的雙重功能，它首先計(jì)算賦值號(hào)右邊“源操作數(shù)”的值，然后把結(jié)果賦給賦值號(hào)左邊的“目標(biāo)操作數(shù)”。若把多個(gè)賦值語(yǔ)句放在一行，則各個(gè)語(yǔ)句之間必須用冒號(hào)隔開。例如：a=3:b=4:c=5。語(yǔ)句的書寫格式：不區(qū)分大小寫。標(biāo)點(diǎn)符號(hào)，如逗號(hào)、分號(hào)需要在英文狀態(tài)下輸入。語(yǔ)句以回車鍵結(jié)束。一般要求“一句一行”，也可以使用復(fù)合語(yǔ)句，即把多句寫在一行上，但每句代碼之間必須用冒號(hào)（：）連接。當(dāng)一行代碼很長(zhǎng)時(shí)可以用“空格+下畫線”來續(xù)行。17／126任務(wù)3計(jì)算圓的面積第2章目錄【知識(shí)點(diǎn)】算術(shù)運(yùn)算符及其表達(dá)式連接運(yùn)算符及其表達(dá)式【任務(wù)描述】在本任務(wù)中，要求計(jì)算半徑為10cm的圓的面積，程序運(yùn)行效果如圖2-4所示。18／126任務(wù)3計(jì)算圓的面積第2章目錄【設(shè)計(jì)步驟】【程序測(cè)試】【知識(shí)鏈接】1.算術(shù)表達(dá)式2.字符串表達(dá)式在VisualBasic中有一個(gè)專門的字符串連接運(yùn)算符&，用于連接兩個(gè)或更多個(gè)字符串并構(gòu)成字符串表達(dá)式。例如，字符串表達(dá)式"xyz"&"123"&"abc"&"45"的運(yùn)算結(jié)果為"xyz123abc45"。19／126任務(wù)4判斷閏年的問題第2章目錄【知識(shí)點(diǎn)】關(guān)系運(yùn)算符及其表達(dá)式邏輯運(yùn)算符及其表達(dá)式運(yùn)算符的優(yōu)先級(jí)【任務(wù)描述】在本任務(wù)中，創(chuàng)建一個(gè)應(yīng)用程序，用于判斷指定的年份是不是閏年，運(yùn)行效果如圖2-5所示。20／126任務(wù)4判斷閏年的問題第2章目錄【任務(wù)分析】判斷是否指定年份是否閏年的條件為：該年份（Year）能被4整除但不能被100整除，或者能被400整除?！驹O(shè)計(jì)步驟】【程序測(cè)試】【知識(shí)鏈接】1.關(guān)系表達(dá)式2.布爾表達(dá)式3.運(yùn)算符優(yōu)先級(jí)一個(gè)表達(dá)式可能含有多種運(yùn)算，系統(tǒng)會(huì)按預(yù)先確定的順序進(jìn)行計(jì)算，此順序稱為運(yùn)算符的優(yōu)先順序。從高到低順序?yàn)椋核阈g(shù)運(yùn)算符→字符串連接運(yùn)算符→關(guān)系運(yùn)算符→布爾運(yùn)算符。21／126任務(wù)5改變窗體的顏色第2章目錄【知識(shí)點(diǎn)】If語(yǔ)句IIf函數(shù)【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，每當(dāng)用鼠標(biāo)單擊窗口時(shí)，窗口的背景就變換一種顏色，窗口的背景顏色在紅、綠、藍(lán)三色之間循環(huán)，如圖2-6所示。22／126任務(wù)5改變窗體的顏色第2章目錄【任務(wù)分析】改變窗口背景顏色就是改變窗口的BackColor屬性值。預(yù)定義符號(hào)常量vbRed、vbGreen和vbBlue分別表示三種顏色，單擊窗口時(shí)依次把這些顏色值賦給窗口的BackColor屬性，就可以實(shí)現(xiàn)窗口的三色循環(huán)。定義一個(gè)計(jì)數(shù)器，在程序運(yùn)行過程中，單擊窗口時(shí)，計(jì)數(shù)器的值加1，判斷計(jì)數(shù)器的值，設(shè)置相應(yīng)的顏色。顏色有三種，計(jì)數(shù)器的取值也只能是1～3，當(dāng)計(jì)數(shù)器的值大于3時(shí)，使計(jì)數(shù)器的值歸1?！驹O(shè)計(jì)步驟】【程序測(cè)試】23／126任務(wù)5改變窗體的顏色第2章目錄【知識(shí)鏈接】1.If語(yǔ)句單行形式： If條件Then[語(yǔ)句1][Else語(yǔ)句2]塊形式的If語(yǔ)句格式：If<條件1>Then[語(yǔ)句塊1][ElseIf<條件2>Then[語(yǔ)句塊2].[ElseIf<條件3>Then[語(yǔ)句塊3]...[Else[語(yǔ)句塊n]]EndIf2.IIf函數(shù) Result=IIf(條件,True部分,False部分)24／126任務(wù)6值班情況查詢第2章目錄【知識(shí)點(diǎn)】Select語(yǔ)句【任務(wù)描述】在本任務(wù)中制作一個(gè)學(xué)校的電子值班安排表，供師生查詢，運(yùn)行結(jié)果如圖2-7所示。

【任務(wù)分析】一個(gè)星期內(nèi)的值班安排，最多有7種情況，輸入1~7中的一個(gè)數(shù)字，根據(jù)輸入的數(shù)字用SelectCase語(yǔ)句進(jìn)行判斷，并給出相應(yīng)的提示信息。對(duì)于輸入小于1、大于7的的情況也應(yīng)進(jìn)行適當(dāng)處理?！驹O(shè)計(jì)步驟】25／126任務(wù)6值班情況查詢第2章目錄【知識(shí)鏈接】SelectCase語(yǔ)句根據(jù)測(cè)試表達(dá)式的值，從多個(gè)語(yǔ)句塊中選擇一個(gè)符合條件的語(yǔ)句塊執(zhí)行。語(yǔ)法格式如下：SelectCase<測(cè)試表達(dá)式>Case表達(dá)式列表1

語(yǔ)句塊1[Case表達(dá)式列表2

語(yǔ)句塊2]...[CaseElse

語(yǔ)句塊n]EndSelect其中測(cè)試表達(dá)式可以是數(shù)值或字符串表達(dá)式；每個(gè)“表達(dá)式列表”可以是一個(gè)表達(dá)式、一組用逗號(hào)分隔的枚舉值（如1,2,3）、表達(dá)式1to表達(dá)式2（如1to5）、Is關(guān)系運(yùn)算符表達(dá)式（如Is<3）。SelectCase語(yǔ)句執(zhí)行的流程是：對(duì)測(cè)試表達(dá)式進(jìn)行測(cè)試并檢查表達(dá)式列表1，若為真，則執(zhí)行語(yǔ)句塊1并結(jié)束選擇；若為假，繼續(xù)檢查下一個(gè)條件。如果都不為真，則執(zhí)行語(yǔ)句塊n。如果沒有語(yǔ)句塊n，則什么也不做就結(jié)束選擇。26／126任務(wù)7棋盤上的麥粒數(shù)第2章目錄【知識(shí)點(diǎn)】For循環(huán)語(yǔ)句While循環(huán)語(yǔ)句【任務(wù)描述】據(jù)傳說記載，有位印度教宗師發(fā)明了國(guó)際象棋．國(guó)王非常喜歡，問宗師需要什么賞賜．宗師說：請(qǐng)您在棋盤上的第一個(gè)格子上放1粒麥子，第二個(gè)格子上放2粒，第三個(gè)格子上放4粒，即后面格子的麥粒數(shù)是它前一個(gè)格子的倍數(shù)，直到64格放滿為止?！昂冒桑　?，國(guó)王慷慨地答應(yīng)了宗師的請(qǐng)求。國(guó)王要給宗師多少麥子呢？計(jì)算結(jié)果如圖2-8所示。

【任務(wù)分析】棋盤上每一個(gè)格子的麥粒數(shù)是2n（n=0~63），對(duì)每個(gè)格子的麥粒數(shù)求和就得到了國(guó)王賞賜給宗師的麥粒數(shù)，這可以利用循環(huán)語(yǔ)句來實(shí)現(xiàn)?！驹O(shè)計(jì)步驟】27／126任務(wù)7棋盤上的麥粒數(shù)第2章目錄【知識(shí)鏈接】1.For循環(huán)For循環(huán)變量=初值To終值[Step步長(zhǎng)][循環(huán)體][ExitFor][循環(huán)體]Next[循環(huán)變量]2.While循環(huán)While<條件>[循環(huán)體]Wend28／126FOR循環(huán)執(zhí)行過程說明循環(huán)變量=初值條件循環(huán)體循環(huán)變量=循環(huán)變量+步長(zhǎng)循環(huán)變量用于循環(huán)計(jì)數(shù)，每重復(fù)一次循環(huán)之后，循環(huán)變量的值就會(huì)增加一個(gè)步長(zhǎng)，在循環(huán)體中除非有特殊情況，一般不要改變循環(huán)變量的值，否則會(huì)改變循環(huán)體的執(zhí)行次數(shù)。步長(zhǎng)是循環(huán)變量的增量，其值可以是正數(shù)或負(fù)數(shù)，如果沒有設(shè)置Setp，則步長(zhǎng)默認(rèn)值為1。循環(huán)體在下列兩種情況下將不會(huì)執(zhí)行：步長(zhǎng)為正數(shù)時(shí)，循環(huán)變量的值大于終值；步長(zhǎng)為負(fù)值時(shí)，循環(huán)變量的值小于終值。ExitFor通常用在選擇語(yǔ)句中，用于提前結(jié)束循環(huán)。29／126任務(wù)8計(jì)算階梯問題第2章目錄【知識(shí)點(diǎn)】Do循環(huán)語(yǔ)句【任務(wù)描述】愛因斯坦曾提出這樣一個(gè)問題：設(shè)有一階梯，每步跨2階，最后余1階；每步跨3階，最后余2階；每步跨5階，最后余4階；每步跨6階，最后余5階；只有每步跨7階，正好到達(dá)階梯頂。問共有多少階梯？計(jì)算結(jié)果如圖2-10所示。

【任務(wù)分析】由條件可知，階梯數(shù)一定是7的整數(shù)倍，因此可以從7開始，分別對(duì)7、14、21、…數(shù)列進(jìn)行測(cè)試，看哪一個(gè)符合題意。設(shè)階梯數(shù)為Jieti，則題中的條件可以表示為：Jietimod2=1AndJietimod3=2AndJietimod5=4AndJietimod6=5AndJietimod7=0【設(shè)計(jì)步驟】30／126任務(wù)8計(jì)算階梯問題第2章目錄【知識(shí)鏈接】Do循環(huán)語(yǔ)句格式一Do[While|Until<循環(huán)條件>][語(yǔ)句塊][ExitDo][語(yǔ)句塊]Loop格式二Do[語(yǔ)句塊][ExitDo][語(yǔ)句塊]Loop[While|Until<循環(huán)條件>]31／126任務(wù)9分析蛋糕銷售情況第2章目錄【知識(shí)點(diǎn)】定長(zhǎng)數(shù)組數(shù)組的初始化數(shù)組的清除【任務(wù)描述】“溫馨”蛋糕房每天平均售出蛋糕50個(gè)左右，求出其一月份日銷售量的平均數(shù)，并將低于平均數(shù)的日銷售量打印出來，程序運(yùn)行結(jié)果如圖2-11所示。

【任務(wù)分析】聲明一個(gè)數(shù)組，使用隨機(jī)函數(shù)產(chǎn)生模擬31個(gè)0～100之間的整數(shù)，依次賦給數(shù)組的每一個(gè)元素，計(jì)算平均數(shù)，打印出低于平均數(shù)的日銷售量?！驹O(shè)計(jì)步驟】32／126任務(wù)9分析蛋糕銷售情況第2章目錄【知識(shí)鏈接】1.定長(zhǎng)數(shù)組Dim數(shù)組名([下標(biāo)下界To]下標(biāo)上界[,下標(biāo)下界To下標(biāo)上界])[As數(shù)據(jù)類型]2.默認(rèn)數(shù)組在VisualBasic中，允許聲明默認(rèn)數(shù)組，即數(shù)據(jù)類型為Variant的數(shù)組：StaticVari(1To100)3.數(shù)組的初始化 數(shù)組名=Array(數(shù)組元素值)使用Array函數(shù)給數(shù)組賦初值時(shí)，數(shù)組變量只能是Variant類型。Array只適用于一維數(shù)組，不能對(duì)二維或多維數(shù)組賦值。4.數(shù)組的清除 Erase數(shù)組名[,數(shù)組名]……33／126任務(wù)10統(tǒng)計(jì)家庭支出情況第2章目錄【知識(shí)點(diǎn)】動(dòng)態(tài)數(shù)組訪問數(shù)組的方法【任務(wù)描述】在本任務(wù)中制作一個(gè)家庭年度支出情況表，要求統(tǒng)計(jì)出月度支出的總金額、人均金額并打印出來，如圖2-12所示。

【任務(wù)分析】定義一個(gè)二維數(shù)組，考慮到月份、月度支出的總金額、人均金額需要保存，數(shù)組的兩個(gè)下標(biāo)上界分別是12、6?！驹O(shè)計(jì)步驟】34／126任務(wù)10統(tǒng)計(jì)家庭支出情況第2章目錄【知識(shí)鏈接】1.動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組是指計(jì)算機(jī)在執(zhí)行過程中才給數(shù)組開辟存儲(chǔ)空間的數(shù)組，可以用ReDim語(yǔ)句再次分配動(dòng)態(tài)數(shù)組占據(jù)的存儲(chǔ)空間，也可以用Erase語(yǔ)句刪除它，收回分配給所占存儲(chǔ)空間。動(dòng)態(tài)數(shù)組可以用變量作為下標(biāo)值，在程序運(yùn)行過程中完成聲明，動(dòng)態(tài)數(shù)組可以在任何時(shí)候改變大小。創(chuàng)建動(dòng)態(tài)數(shù)組通常分為兩步。首先在窗體級(jí)別、標(biāo)準(zhǔn)模塊或過程中，用Dim語(yǔ)句（模塊級(jí)數(shù)組）、Public語(yǔ)句（公用數(shù)組）、Private或Static（局部數(shù)組）聲明一個(gè)沒有下標(biāo)的數(shù)組（括號(hào)不能省略），然后在過程中用ReDim語(yǔ)句定義帶下標(biāo)的數(shù)組。ReDim該語(yǔ)句： ReDim[Preserve]變量(下標(biāo),下標(biāo))As數(shù)據(jù)類型名稱2.訪問數(shù)組的方法（1）數(shù)組的引用。（2）訪問數(shù)組的常用方法。35／126任務(wù)11編寫猜寶游戲第2章目錄【知識(shí)點(diǎn)】通用過程與事件過程參數(shù)的傳遞機(jī)制【任務(wù)描述】日常生活中，經(jīng)常玩一種游戲叫猜寶，同時(shí)伸出左、右手，猜寶放在哪個(gè)手中。本任務(wù)就是一個(gè)模擬猜寶游戲，其運(yùn)行效果如圖2-13所示。

【任務(wù)分析】首先將寶放在左手，是否放到右手由隨機(jī)函數(shù)決定，交換的過程通過兩個(gè)自定義過程完成，這兩個(gè)過程形式相同，參數(shù)相同，只是參數(shù)傳遞方式不同。一個(gè)是按值傳遞，一個(gè)是按地址傳遞，結(jié)果卻截然不同?！驹O(shè)計(jì)步驟】36／126任務(wù)11編寫猜寶游戲第2章目錄【知識(shí)鏈接】1.事件過程窗體事件過程：PrivateSubForm_事件名[(參數(shù)列表)]

語(yǔ)句塊EndSub控件事件過程：PrivateSub控件名_事件名[(參數(shù)列表)]

語(yǔ)句塊EndSub37／126任務(wù)11編寫猜寶游戲第2章目錄【知識(shí)鏈接】2.通用過程[Private|Public][Static]Sub過程名[(參數(shù)列表)][語(yǔ)句塊][ExitSub][語(yǔ)句塊]EndSub3.參數(shù)傳遞[Optional][ByVal|ByRef][ParamArray]變量名[()][As數(shù)據(jù)類型名稱]（1）按值傳遞參數(shù)。（2）按地址傳遞參數(shù)。4.Sub過程的調(diào)用Call過程名[(實(shí)際參數(shù))]過程名[實(shí)際參數(shù)]38／126任務(wù)12實(shí)現(xiàn)金額大寫轉(zhuǎn)換第2章目錄【知識(shí)點(diǎn)】常用內(nèi)部函數(shù)用戶自定義函數(shù)【任務(wù)描述】顧客在購(gòu)買商品后，商家會(huì)開出一張發(fā)票，如果注意看一下，上面的金額有大小寫兩種，這就是人民幣金額大小寫轉(zhuǎn)換問題。在本任務(wù)中編寫了一個(gè)金額大小寫轉(zhuǎn)換函數(shù)，程序運(yùn)行結(jié)果如圖2-14所示。

【任務(wù)分析】人民幣金額大小寫轉(zhuǎn)換可以按照這樣的流程理解：把一個(gè)定點(diǎn)小數(shù)擴(kuò)大100倍并去掉小數(shù)，以轉(zhuǎn)換為整數(shù)，再轉(zhuǎn)換為字符串，依次從字符串中取出每一位，對(duì)照轉(zhuǎn)換為大寫，依次插入計(jì)數(shù)單位，結(jié)束?！驹O(shè)計(jì)步驟】39／126任務(wù)12實(shí)現(xiàn)金額大寫轉(zhuǎn)換第2章目錄【知識(shí)鏈接】1.常用內(nèi)部函數(shù)（1）數(shù)學(xué)函數(shù)。（2）字符串函數(shù)。（3）日期和時(shí)間函數(shù)。（4）格式輸出函數(shù)。 Format(表達(dá)式[,格式字符串])（5）數(shù)據(jù)類型轉(zhuǎn)換函數(shù)。40／126任務(wù)12實(shí)現(xiàn)金額大寫轉(zhuǎn)換第2章目錄【知識(shí)鏈接】2.自定義函數(shù)[Private|Public][Static]Function<函數(shù)名>([參數(shù)列表])[As數(shù)據(jù)類型][語(yǔ)句塊][函數(shù)名=表達(dá)式][ExitFunction][語(yǔ)句塊][函數(shù)名=表達(dá)式]EndFunctionFunction過程的調(diào)用 函數(shù)名（[參數(shù)列表]）41／126任務(wù)13查找程序中的錯(cuò)誤第2章目錄【知識(shí)點(diǎn)】VisualBasic程序錯(cuò)誤種類VisualBasic程序錯(cuò)誤處理【知識(shí)鏈接】1.錯(cuò)誤類型錯(cuò)誤可分為編譯錯(cuò)誤、實(shí)時(shí)錯(cuò)誤和邏輯錯(cuò)誤三種類型。2.錯(cuò)誤處理（1）使用調(diào)試工具。（2）使用錯(cuò)誤捕捉。OnErrorGoto[行號(hào)]常用錯(cuò)誤處理程序結(jié)構(gòu)SubErrorDemo()[沒有錯(cuò)誤的語(yǔ)句塊]OnErrorGotoErrorHandler'啟用錯(cuò)誤捕捉

[可能會(huì)有錯(cuò)誤的語(yǔ)句塊]ExitSubErrorHandler:'錯(cuò)誤處理由此開始

[錯(cuò)誤處理語(yǔ)句]EndSub42／126第3章應(yīng)用程序窗體設(shè)計(jì)

任務(wù)1在窗體指定位置顯示文本任務(wù)2保持窗體上的標(biāo)簽文本居中任務(wù)3制作鍵盤按鍵程序測(cè)試任務(wù)4制作簡(jiǎn)單繪圖程序任務(wù)5創(chuàng)建輸入框和消息框任務(wù)6創(chuàng)建標(biāo)準(zhǔn)對(duì)話框任務(wù)7創(chuàng)建多文檔界面應(yīng)用程序43／126任務(wù)1在窗體指定位置顯示文本第3章目錄【知識(shí)點(diǎn)】窗體的常用屬性窗體的常用方法窗體的Load事件和Click事件【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，在程序執(zhí)行時(shí)窗體背景色被設(shè)置成白色，字體設(shè)置為“楷體”，字體大小設(shè)置為20。每單擊一次窗體，將在窗體的不同位置上以不同顏色顯示文字信息“歡迎使用VisualBasic6.0”，如圖3-1所示。

【任務(wù)分析】在VisualBasic中，每種顏色都是由一個(gè)Long整數(shù)表示。在本任務(wù)中，利用隨機(jī)函數(shù)產(chǎn)生0至255之間的三個(gè)整數(shù)并為RGB函數(shù)賦值，實(shí)現(xiàn)文字顏色隨機(jī)變換的結(jié)果。對(duì)文字顯示位置的控制，可以通過窗體的CurrentX、CurrentY屬性實(shí)現(xiàn)。44／126任務(wù)1在窗體指定位置顯示文本第3章目錄【知識(shí)鏈接】1.窗體的常用屬性（1）Caption。（2）BackColor。（3）ForeColor。（4）FontName。（5）FontSize。（6）CurrentX、CurrentY。2.窗體的常用方法（1）Print。（2）Cls。3.窗體的常用事件（1）Click。（2）Load。45／126任務(wù)2保持窗體上的標(biāo)簽文本居中第3章目錄【知識(shí)點(diǎn)】窗體的ScaleHeight和ScaleWidth屬性窗體的Resize事件窗體的UnLoad事件【任務(wù)描述】本任務(wù)利用響應(yīng)窗體Resize事件來改變標(biāo)簽控件Label的頂點(diǎn)坐標(biāo)和寬度的值，從而實(shí)現(xiàn)當(dāng)改變窗體大小時(shí)，標(biāo)簽文本始終出現(xiàn)在窗體中央。當(dāng)退出程序時(shí)，通過響應(yīng)窗體UnLoad事件，提示確認(rèn)關(guān)閉操作，如圖3-2所示。

【任務(wù)分析】要想實(shí)現(xiàn)標(biāo)簽文本在窗體中一直居中，首先要保證文本在標(biāo)簽控件中保持居中，還要在窗體大小發(fā)生改變時(shí)使使標(biāo)簽控件的頂點(diǎn)一直處于窗體最左側(cè)1/2處，寬度一直與窗體寬度保持一致。46／126任務(wù)2保持窗體上的標(biāo)簽文本居中第3章目錄【知識(shí)鏈接】2.窗體的Resize和Unload事件（1）Resize：當(dāng)窗體第一次顯示或窗體的外觀尺寸被改變時(shí)發(fā)生。（2）Unload：當(dāng)窗體從內(nèi)存中卸載時(shí)發(fā)生。當(dāng)窗體被加載時(shí)，它的所有控件的內(nèi)容均被重新初始化。當(dāng)使用在控制菜單中的關(guān)閉命令、關(guān)閉按鈕或Unload語(yǔ)句關(guān)閉該窗體時(shí)，此事件被觸發(fā)。語(yǔ)法如下： PrivateSubForm_Unload(CancelAsInteger)其中參數(shù)Cancel為整數(shù)，用來確定窗體是否卸載。如果Cancel為0，則窗體被卸載。將Cancel設(shè)置為任何一個(gè)非零的值可防止窗體被刪除。通過將參數(shù)Cancel設(shè)置為任何非零的值可防止窗體被刪除，但不能阻止其他事件，諸如從Windows操作環(huán)境中退出等?？梢杂肣ueryUnload事件阻止從Windows中的退出。在窗體被卸載時(shí)，可以用Unload事件過程來確認(rèn)窗體是否應(yīng)被卸載或用來指定想要發(fā)生的操作。在本任務(wù)中，利用Unload事件這一特性來實(shí)現(xiàn)關(guān)閉程序時(shí)提示是否關(guān)閉。47／126任務(wù)3制作鍵盤按鍵測(cè)試程序第3章目錄【知識(shí)點(diǎn)】窗體的KeyPreview屬性窗體的KeyDown、KeyUp和KeyPress事件【任務(wù)描述】在本任務(wù)中創(chuàng)建了一個(gè)鍵盤程序測(cè)試。當(dāng)程序運(yùn)行后，當(dāng)在鍵盤上按下任一個(gè)鍵時(shí)，在窗體上顯示出該鍵的代碼和相應(yīng)的字符并顯示Shift、Ctrl和Alt鍵的狀態(tài)，當(dāng)按Esc鍵時(shí)退出程序，運(yùn)行情況如圖3-3所示。

【任務(wù)分析】要想實(shí)現(xiàn)這一任務(wù)的目標(biāo)，需要使用窗體的KeyDown、KeyUp和KeyPress這三個(gè)鍵盤事件，利用每個(gè)事件響應(yīng)不同的按鍵，以獲得所有鍵盤按鍵的事件響應(yīng)，并通過標(biāo)簽控件把響應(yīng)的結(jié)果顯示出來。48／126任務(wù)3制作鍵盤按鍵測(cè)試程序第3章目錄【知識(shí)鏈接】1.窗體的KeyPreview屬性窗體名.KeyPreview=boolean2.窗體的KeyPress事件PrivateSubForm_KeyPress(keyasciiAsInteger)3.窗體的KeyUp和KeyDown事件PrivateSubobject_KeyDown(keycodeAsInteger,shiftAsInteger)PrivateSubobject_KeyUp(keycodeAsInteger,shiftAsInteger)49／126任務(wù)4制作簡(jiǎn)單繪圖程序第3章目錄【知識(shí)點(diǎn)】窗體的MouseDown、MouseUp和MouseMove事件窗體的Line方法【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)簡(jiǎn)單的繪畫程序。當(dāng)程序運(yùn)行時(shí)，可通過拖動(dòng)鼠標(biāo)左鍵連續(xù)畫線，釋放鼠標(biāo)左鍵時(shí)停止畫線，如圖3-21所示；若單擊鼠標(biāo)右鍵，則畫一條從上次畫圖位置出發(fā)的線段，如圖3-22所示。

【任務(wù)分析】要想實(shí)現(xiàn)這一任務(wù)的目標(biāo)，首先要定義保存鼠標(biāo)在窗體中坐標(biāo)的全局變量，有了全局變量，程序無(wú)論響應(yīng)那一個(gè)鼠標(biāo)事件，均可得到當(dāng)前鼠標(biāo)的坐標(biāo)。用窗體的鼠標(biāo)事件MouseMove和MouseDown完成連續(xù)畫線，MouseUp事件結(jié)束畫線。用窗體的鼠標(biāo)事件MouseDown和MouseMove實(shí)現(xiàn)從上次畫圖位置到當(dāng)前畫直線。50／126任務(wù)4制作簡(jiǎn)單繪圖程序第3章目錄【知識(shí)鏈接】1.窗體的MouseDown、MouseUp和MouseMovePrivateSubForm_MouseDown(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)PrivateSubForm_MouseUp(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)PrivateSubFormMouseMove(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)2.窗體的Line方法 窗體名.Line(x1,y1)-(x2,y2),[顏色],[B][F]其中參數(shù)(x1,y1)是可選的，其數(shù)值類型為Single，指定直線或矩形的起點(diǎn)坐標(biāo)。如果省略，線起始于由CurrentX和CurrentY指示的位置。參數(shù)(x2,y2)是必需的，其數(shù)值類型為Single，指定直線或矩形的終點(diǎn)坐標(biāo)。參數(shù)color可選的，其數(shù)值類型為L(zhǎng)ong，畫線時(shí)用的RGB顏色。如果省略該參數(shù)，則使用ForeColor屬性值?？捎肦GB函數(shù)或QBColor函數(shù)指定顏色。B是可選的。如果包括，則利用對(duì)角坐標(biāo)畫出矩形。F是可選的。如果使用了B選項(xiàng)，則F選項(xiàng)規(guī)定矩形以矩形邊框的顏色填充。不能不用B而用F。如果不用F只用B，則矩形用當(dāng)前的FillColor和FillStyle填充。FillStyle的缺省值為transparent。51／126任務(wù)5創(chuàng)建輸入框和消息框第3章目錄【知識(shí)點(diǎn)】用InputBox函數(shù)創(chuàng)建輸入框用MsgBox函數(shù)創(chuàng)建消息框窗體的Activate事件【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，當(dāng)運(yùn)行程序時(shí)首先彈出一個(gè)輸入框提示輸入用戶名，如圖3-7所示；輸入用戶名并單擊“確定”按鈕后，在窗體上顯示用戶顯示歡迎信息，如圖3-8所示；當(dāng)關(guān)閉窗口時(shí)將彈出一個(gè)對(duì)話框，單擊“確定”按鈕退出程序，單擊“取消”按鈕則返回窗口，如圖3-9所示。

【任務(wù)分析】要想實(shí)現(xiàn)這一任務(wù)的目標(biāo)，需要在程序窗體被激活以前通過Load事件過程調(diào)用InputBox函數(shù)來獲取客戶輸入的信息；得到客戶信息后，可使用窗體的Activate事件在窗體顯示時(shí)輸出得到的客戶姓名。52／126程序設(shè)計(jì)過程PrivateusernameAsStringPrivateSubForm_Activate()PrintPrintPrintTab(4);"歡迎"&username&"使用本程序!"EndSubPrivateSubForm_Load()Me.FontSize=20username=InputBox("輸入您的名字","歡迎您的到來")EndSubPrivateSubForm_Unload(CancelAsInteger)DimchoiceAsIntegerchoice=MsgBox("您確實(shí)要關(guān)閉窗口嗎？",vbQuestion+vbOKCancel,"信息提示")Ifchoice=vbCancelThenCancel=1EndIfEndSub53／126任務(wù)5創(chuàng)建輸入框和消息框第3章目錄【知識(shí)鏈接】1.窗體的Activate事件2.用戶對(duì)話框3.MsgBox函數(shù)4.InputBox函數(shù)54／126任務(wù)6創(chuàng)建標(biāo)準(zhǔn)對(duì)話框第3章目錄【知識(shí)點(diǎn)】在窗體上添加CommandDialog控件CommandDialog控件的常用屬性CommandDialog控件的常用方法【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，當(dāng)運(yùn)行程序時(shí)，通過單擊“改變圖標(biāo)”命令按鈕，彈出“打開”對(duì)話框，選擇圖標(biāo)文件，改變窗體標(biāo)題欄上的圖標(biāo)并在窗體上顯示圖標(biāo)文件的路徑，如圖3-10所示；單擊“設(shè)置顏色”命令按鈕，彈出“顏色”對(duì)話框，可以改變窗體上文本的顏色，如圖3-11所示；單擊“設(shè)置字體”命令按鈕，彈出“字體”對(duì)話框，可用于設(shè)置窗體上文本的字體、樣式、大小以及文本的顏色，如圖3-12所示。55／126任務(wù)6創(chuàng)建標(biāo)準(zhǔn)對(duì)話框第3章目錄【知識(shí)鏈接】1.通用對(duì)話框控件（CommonDialog）通用對(duì)話框控件不是標(biāo)準(zhǔn)控件工具箱中，需要添加“MicrosoftCommonDialogControl6.0”部件。調(diào)用CommonDialog控件的方法：ShowOpen：顯示“打開”對(duì)話框。ShowSave：顯示“另存為”對(duì)話框。ShowColor：顯示“顏色”對(duì)話框。ShowFont：顯示“字體”對(duì)話框。ShowPrinter：顯示“打印”對(duì)話框。ShowHelp方法：顯示“幫助”對(duì)話框。（1）顯示“打開”對(duì)話框。（2）顯示“顏色”對(duì)話框。（3）顯示“字體”對(duì)話框。2.錯(cuò)誤處理（1）OnError語(yǔ)句用于設(shè)置錯(cuò)誤陷阱。（2）Err對(duì)象是一個(gè)包括關(guān)于運(yùn)行錯(cuò)誤信息的對(duì)象。56／126任務(wù)7創(chuàng)建多文檔界面應(yīng)用程序第3章目錄【知識(shí)點(diǎn)】創(chuàng)建MDI窗體設(shè)置MDI子窗體創(chuàng)建快速顯示窗體設(shè)置應(yīng)用程序啟動(dòng)對(duì)象【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，當(dāng)啟動(dòng)該應(yīng)用程序時(shí)首先出現(xiàn)一個(gè)快速顯示窗體，如圖3-15所示；當(dāng)該窗體消失后出現(xiàn)一個(gè)多文檔界面窗體，其中包含兩個(gè)子窗體，如圖3-16所示。57／126任務(wù)7創(chuàng)建多文檔界面應(yīng)用程序第3章目錄【知識(shí)鏈接】1.多文檔界面（MDI）應(yīng)用程序MDI應(yīng)用程序的特性創(chuàng)建MDI應(yīng)用程序的步驟2.快速顯示窗體快速顯示窗口一般作為程序的封面使用，這種窗口一般沒有命令按鈕，沒有標(biāo)題欄。當(dāng)出現(xiàn)快速顯示窗口時(shí)，按任意鍵或鼠標(biāo)單擊窗口，它就會(huì)被卸載并調(diào)用應(yīng)用程序主窗體。58／126第4章標(biāo)準(zhǔn)控件應(yīng)用

任務(wù)1制作陰影字效果任務(wù)2制作注冊(cè)窗體任務(wù)3制作登錄窗體任務(wù)4改進(jìn)用戶注冊(cè)窗體任務(wù)5創(chuàng)建簡(jiǎn)單選課系統(tǒng)任務(wù)6制作顏色編輯器任務(wù)7制作簡(jiǎn)單動(dòng)畫59／126任務(wù)1制作陰影字效果【知識(shí)點(diǎn)】

標(biāo)簽控件的常用屬性標(biāo)簽控件的常用方法標(biāo)簽控件的常用事件控件的基本操作【任務(wù)描述】本任務(wù)說明如何應(yīng)用標(biāo)簽控件的屬性、方法和事件。在程序運(yùn)行期間，若用鼠標(biāo)指針指向標(biāo)簽文字時(shí)，則會(huì)出現(xiàn)陰影字效果，如圖4-1所示；當(dāng)鼠標(biāo)指針離開標(biāo)簽文字時(shí)，陰影字隨即消失，如圖4-2所示。若單擊“關(guān)閉窗口”，則結(jié)束程序運(yùn)行。第4章目錄60／126任務(wù)1制作陰影字效果【知識(shí)鏈接】1.標(biāo)簽控件的屬性NameBackColorCaptionEnabledForeColorFontHeight和WidthLeft和TopVisibleAlignmentAutoSizeBackStyleBorderStyleWordWrap2.標(biāo)簽控件的方法Move方法： object.Moveleft,top,width,height3.標(biāo)簽控件的事件ChangeClickDblClickMouseDown和MouseUpMouseMove第4章目錄61／126任務(wù)1制作陰影字效果【知識(shí)鏈接】4.控件的基本操作（1）添加控件。（2）選取控件。（3）移動(dòng)控件。（4）調(diào)整控件大小。（5）復(fù)制控件。（6）刪除控件。（7）設(shè)置控件的格式。（8）把多于兩個(gè)的控件設(shè)置相同間距。第4章目錄62／126任務(wù)2制作注冊(cè)窗體【知識(shí)點(diǎn)】文本框控件的常用屬性文本框控件的常用方法文本框控件的常用事件為文本框控件設(shè)置訪問鍵【任務(wù)描述】本任務(wù)說明如何使用文本框控件的屬性、方法和事件。當(dāng)程序運(yùn)行時(shí)，通過如圖4-9所示的窗體輸入用戶信息，單擊“確定”按鈕時(shí)對(duì)輸入的信息進(jìn)行檢查，若這些信息符合要求，則通過如圖4-10所示的窗體顯示出用戶注冊(cè)信息。第4章目錄63／126任務(wù)2制作注冊(cè)窗體【知識(shí)鏈接】1.文本框的常用屬性。MaxLengthMultiLinePasswordCharScrollBarsSelLength、SelStar和SelTextTabIndexTabStopText2.文本框的常用方法object.SetFocus3.文本框的常用事件ChangeKeyDownKeyUpKeyPress4.為文本框設(shè)置訪問鍵第4章目錄64／126任務(wù)3制作登錄窗體【知識(shí)點(diǎn)】命令按鈕控件的常用屬性命令按鈕控件的常用事件【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)登錄窗體。只要有一個(gè)文本框?yàn)榭?，則“確定”按鈕將被禁用，如圖4-10所示。當(dāng)通過文本框輸入用戶名和密碼后，“確定”按鈕可用，如圖4-11所示。當(dāng)輸入正確的用戶名和密碼時(shí)，隱藏登錄窗體，并通過另一個(gè)窗體顯示登錄成功信息，如圖4-12所示。若用戶名或密碼錯(cuò)誤，則彈出對(duì)話框顯示出錯(cuò)信息。第4章目錄65／126任務(wù)3制作登錄窗體【知識(shí)鏈接】1.命令按鈕的常用屬性CancelDefaultStyleValueToolTipText2.命令按鈕的常用事件Click事件是命令按鈕的最常用事件。若要為命令按鈕創(chuàng)建Click事件過程，在窗體上雙擊命令按鈕控件即可。第4章目錄66／126任務(wù)4改進(jìn)用戶注冊(cè)窗體【知識(shí)點(diǎn)】單選按鈕控件的應(yīng)用框架控件的應(yīng)用復(fù)選框按鈕控件的應(yīng)用【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)用戶注冊(cè)窗體，其中包含文本框、單選按鈕、復(fù)選框和命令按鈕控件，如圖4-13所示。當(dāng)在用戶注冊(cè)窗體中輸入用戶信息單擊“確定”按鍵時(shí)，隱藏用戶注冊(cè)窗體，打開另一個(gè)窗體并顯示用戶的注冊(cè)信息，如圖4-14所示。第4章目錄67／126任務(wù)4改進(jìn)用戶注冊(cè)窗體【知識(shí)鏈接】1.單選按鈕控件單選按鈕的屬性AlignmentCaptionValue2.框架控件框架（Frame）控件為其他控件提供可標(biāo)識(shí)的分組，可以在功能上進(jìn)一步分割一個(gè)窗體，例如，把單選按鈕控件分成幾組。3.復(fù)選框控件復(fù)選框的屬性AlignmentCaptionValue第4章目錄68／126任務(wù)5創(chuàng)建簡(jiǎn)單選課系統(tǒng)【知識(shí)點(diǎn)】列表框控件的應(yīng)用組合框控件的應(yīng)用【任務(wù)描述】在本任務(wù)中創(chuàng)建了一個(gè)簡(jiǎn)單的選課系統(tǒng)。當(dāng)從組合框中選擇不同專業(yè)時(shí)，通過列表框列出相關(guān)的課程，可以從中選擇所需的課程，并允許添加或刪除課程，如圖4-15所示；當(dāng)選擇一些課程并單擊“確定”按鈕時(shí)，通過另一個(gè)窗體列出選課結(jié)果，如圖4-16所示。第4章目錄69／126任務(wù)5創(chuàng)建簡(jiǎn)單選課系統(tǒng)【知識(shí)鏈接】1.列表框控件列表框控件的常用屬性ListListCountListIndexSelCountSelectedSortedStyle列表框控件的常用方法AddItemRemoveItem2.組合框控件組合框控件的常用屬性StyleText第4章目錄70／126任務(wù)6制作顏色編輯器【知識(shí)點(diǎn)】滾動(dòng)條的常用屬性滾動(dòng)條的常用事件【任務(wù)描述】在本任務(wù)中創(chuàng)建了一個(gè)顏色編輯器，通過滾動(dòng)條或文本框設(shè)置紅、綠、藍(lán)三基色的比例，以生成所需的顏色值，并用于設(shè)置標(biāo)簽的前景顏色，如圖4-17所示。第4章目錄71／126任務(wù)6制作顏色編輯器【知識(shí)鏈接】1.滾動(dòng)條的屬性LargeChangeSmallChangeMaxMinValue2.滾動(dòng)條的常用事件Change事件是水平滾動(dòng)條和垂直滾動(dòng)條的常用事件。該事件在進(jìn)行滾動(dòng)或通過代碼改變Value屬性的設(shè)置時(shí)發(fā)生。第4章目錄72／126任務(wù)7制作簡(jiǎn)單動(dòng)畫【知識(shí)點(diǎn)】計(jì)時(shí)器控件的常用屬性計(jì)時(shí)器控件的常用事件【任務(wù)描述】在本任務(wù)中利用計(jì)時(shí)器的Timer事件移動(dòng)標(biāo)簽控件在窗體上的位置，以生成滾動(dòng)文字效果，并允許通過復(fù)選框開啟或停止動(dòng)畫，如圖4-18所示。第4章目錄73／126任務(wù)7制作簡(jiǎn)單動(dòng)畫【知識(shí)鏈接】計(jì)時(shí)器控件的常用屬性EnabledInterval計(jì)時(shí)器控件的Timer事件第4章目錄74／126第5章多媒體程序設(shè)計(jì)任務(wù)1繪制正弦曲線任務(wù)2繪制圓、橢圓和扇形任務(wù)3制作變換的圖形任務(wù)4制作圖像處理程序任務(wù)5飛舞的蝴蝶任務(wù)6制作音樂播放器任務(wù)7制作Flash動(dòng)畫播放器任務(wù)8制作視頻播放器75／126任務(wù)1繪制正弦曲線【知識(shí)點(diǎn)】窗體坐標(biāo)系使用顏色PSet和Line語(yǔ)句【任務(wù)描述】在多媒體教學(xué)時(shí)，經(jīng)常需要?jiǎng)討B(tài)地畫出各種曲線進(jìn)行教學(xué)演示，以加深學(xué)生對(duì)知識(shí)的理解。本任務(wù)實(shí)現(xiàn)的是動(dòng)態(tài)繪制一個(gè)正弦曲線，效果如圖5-1所示。第5章目錄76／126任務(wù)1繪制正弦曲線【知識(shí)鏈接】1.窗體坐標(biāo)系2.使用VisualBasic顏色3.PSet方法 object.PSet[Step](x,y),[color]4.Line方法 object.Line[Step](x1,y1)[Step](x2,y2),[color],[B][F]第5章目錄77／126任務(wù)2繪制圓、橢圓和扇形【知識(shí)點(diǎn)】Circle方法應(yīng)用【任務(wù)描述】在本任務(wù)中演示的是通過Circle方法在窗體上繪制圓、橢圓和扇形，效果如圖5-3所示。第5章目錄78／126任務(wù)2繪制圓、橢圓和扇形【知識(shí)鏈接】Circle方法object.Circle[Step](x,y),radius,[color,start,end,aspect]其中object是一個(gè)可選參數(shù)，用于指定執(zhí)行Circle方法的對(duì)象，如果省略該參數(shù)，則以當(dāng)前具有焦點(diǎn)的窗體作為執(zhí)行對(duì)象。Step關(guān)鍵詞是一個(gè)可選項(xiàng)，用此選項(xiàng)可將圓、橢圓或弧的中心指定為相對(duì)坐標(biāo)，參考點(diǎn)的坐標(biāo)即當(dāng)前對(duì)象的CurrentX和CurrentY屬性值。(x，y)和radius都是必選參數(shù)，它們的值為單精度浮點(diǎn)數(shù)。(x，y)用于指定圓、橢圓或弧的中心坐標(biāo)。radius用于指定圓、橢圓或弧的半徑。圓心坐標(biāo)和半徑所用的度量單位由對(duì)象的ScaleMode屬性決定，默認(rèn)值為1，此時(shí)的度量單位是緹（twip）。color是一個(gè)可選參數(shù)，其值是一個(gè)長(zhǎng)整型數(shù)，用于指定圓周的RGB顏色，可以用VisualBasic預(yù)定義的符號(hào)常量來設(shè)置color參數(shù)，也可以用RGB函數(shù)或QBColor函數(shù)指定顏色。如果省略color參數(shù)，則使用窗體的ForeColor屬性值。start、end和aspect也都是可選參數(shù)，它們的值為單精度浮點(diǎn)數(shù)。start和end以弧度為單位，取值范圍為?2π～2π。當(dāng)弧、或部分圓或橢圓畫完以后，這兩個(gè)參數(shù)指定弧的起點(diǎn)和終點(diǎn)的位置。起點(diǎn)的默認(rèn)值是0，終點(diǎn)的默認(rèn)值是2π。aspect參數(shù)用于指定圓的縱橫尺寸比，其默認(rèn)值為1.0（標(biāo)準(zhǔn)圓），當(dāng)該參數(shù)不等于1時(shí)，將畫出橢圓。第5章目錄79／126任務(wù)3制作變換的圖形【知識(shí)點(diǎn)】Line控件的常用屬性Shape控件的常用屬性【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，運(yùn)行時(shí)每單擊一次按鈕，會(huì)出現(xiàn)一個(gè)不同的圖形，并用不同的顏色、效果填充，效果如圖5-4所示。第5章目錄80／126任務(wù)3制作變換的圖形【知識(shí)鏈接】1.Line控件Line控件的常用屬性BorderColorBorderStyleBorderWidthX1、Y1、X2、Y22.Shape控件Shape控件的常用屬性BorderColorBorderStyleBorderWidthShapeFillColorFillStyle第5章目錄81／126任務(wù)4制作圖像處理程序【知識(shí)點(diǎn)】圖像框控件的常用屬性圖像框控件的常用方法【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，用于對(duì)圖像進(jìn)行放大、縮小、水平翻轉(zhuǎn)或垂直翻轉(zhuǎn)處理，效果如圖5-5～5-8所示。第5章目錄82／126任務(wù)4制作圖像處理程序【知識(shí)鏈接】1.圖像框控件的常用屬性AutoRedrawAutoSizeHeightWidthPicture2.圖像框控件的常用方法（1）PaintPicture： object.PaintPicturepicture,x1,y1,width1,height1,x2,y2,width2,height2,opcode（2）LoadPicture object.Picture=LoadPicture([filename])第5章目錄83／126任務(wù)5飛舞的蝴蝶【知識(shí)點(diǎn)】圖像控件的應(yīng)用計(jì)時(shí)器控件的應(yīng)用【任務(wù)描述】在本任務(wù)中制作一個(gè)簡(jiǎn)單的動(dòng)畫程序，有一只蝴蝶在窗體的圖像框中不斷地飛舞，通過命令按鈕可以控制蝴蝶的運(yùn)動(dòng)和停止，效果如圖5-9所示。第5章目錄84／126任務(wù)5飛舞的蝴蝶【知識(shí)鏈接】圖像控件的主要屬性PictureStretchTag圖像控件的Move方法 object.Moveleft,top,width,height第5章目錄85／126任務(wù)6制作音樂播放器【知識(shí)點(diǎn)】用Declare聲明API函數(shù)通過調(diào)用API函數(shù)mciSendString執(zhí)行相關(guān)命令【任務(wù)描述】在本任務(wù)中制作一個(gè)音樂播放器，用于播放MP3、MIDI和WAV文件并對(duì)播放過程進(jìn)行控制，結(jié)果如圖5-10所示。第5章目錄86／126任務(wù)6制作音樂播放器【知識(shí)鏈接】1.Declare語(yǔ)句[Public|Private]DeclareSubnameLib"libname"[Alias"aliasname"][([arglist])][Public|Private]DeclareFunctionnameLib"libname"[Alias"aliasname"][([arglist])][Astype]2.API函數(shù)mciSendStringAPI函數(shù)mciSendString函數(shù)使用字符串作為操作命令來控制媒體的設(shè)置，常用的操作命令如下。Open：打開媒體設(shè)備。Close：關(guān)閉媒體設(shè)備。Play：播放媒體設(shè)備。Pause：暫停播放媒體文件。Stop：停止播放媒體文件。Seek：設(shè)置播放位置。Set：設(shè)置設(shè)備狀態(tài)。Status：確定設(shè)備當(dāng)前的狀態(tài)。第5章目錄87／126任務(wù)7制作Flash動(dòng)畫播放器【知識(shí)點(diǎn)】

在工具箱中添加ShockwaveFlash控件

ShockwaveFlash控件的常用屬性

ShockwaveFlash控件的常用方法【任務(wù)描述】在本任務(wù)中制作一個(gè)Flash動(dòng)畫播放器，用于打開Flash動(dòng)畫文件（.swf）并對(duì)播放過程進(jìn)行控制（播放、停止、重播），運(yùn)行效果如圖5-11所示。第5章目錄88／126任務(wù)7制作Flash動(dòng)畫播放器1.ShockWaveFlash控件的常用屬性ShockWaveFlash控件的常用屬性如下。（1）Movie：指定要播放的Flash動(dòng)畫文件。（2）TotalFrames：返回總共幀數(shù)。（3）CurrentFrame：返回當(dāng)前幀編號(hào)。2.ShockWaveFlash控件的常用方法ShockWaveFlash控件的常用方法如下。（1）Play：開始播放動(dòng)畫。（2）Back：跳到動(dòng)畫的上一幀。（3）Forward：跳到動(dòng)畫的下一幀。（4）Rewind：返回動(dòng)畫的第一幀。（5）Stop方法：暫停Flash動(dòng)畫播放。第5章目錄89／126任務(wù)8制作視頻播放器【知識(shí)點(diǎn)】添加WindowsMediaPlayer控件。WindowsMediaPlayer控件的常用屬性?！救蝿?wù)描述】在本任務(wù)中制作一個(gè)視頻播放程序，用于播放Windows視頻文件和電影文件并對(duì)播放過程進(jìn)行控制。運(yùn)行結(jié)果如圖5-12所示。第5章目錄90／126任務(wù)8制作視頻播放器【知識(shí)鏈接】1.媒體播放器控件的主要屬性MediaPlayer控件的主要屬性如下。URLenableContextMenufullScreenstretchToFituiModeplayState2.媒體播放器控件的主要對(duì)象（1）controls相關(guān)屬性和方法：通過WindowsMediaPlayer.controls可以對(duì)播放器進(jìn)行控制并取得相關(guān)的一些信息。

controls.play方法：播放媒體。

controls.stop方法：停止播放。

controls.pause方法：暫停播放。

controls.currentPosition屬性：返回當(dāng)前播放進(jìn)度。

controls.currentPositionString：返回時(shí)間格式的字符串，例如“0:32”。（2）currentMedia相關(guān)屬性：通過WindowsMediaPlayer.currentMedia可以取得當(dāng)前媒體的信息。

currentMedia.duration：返回媒體的總長(zhǎng)度。

currentMedia.durationString：返回時(shí)間格式的字符串，例如“4:34”。（3）settings：通過WindowsMediaPlayer.settings可以對(duì)播放器進(jìn)行設(shè)置，包括設(shè)置音量和左右聲道等。

settings.volume：設(shè)置音量，設(shè)置為0～100。

settings.balance：設(shè)置立體聲的左聲道和右聲道的音量。第5章目錄91／126第6章菜單和工具欄設(shè)計(jì)任務(wù)1制作寫字板程序任務(wù)2為寫字板添加工具欄92／126任務(wù)1制作寫字板程序

【知識(shí)點(diǎn)】菜單控件RichTextBox控件StatusBar控件Clipboard對(duì)象【任務(wù)描述】在本任務(wù)中制作一個(gè)寫字板程序，要求在窗體上添加系統(tǒng)菜單和ActiveX控件RichTextBox，并通過菜單命令打開文件、保存文件以及完成常見的編輯操作，程序運(yùn)行效果如圖6-1所示。第6章目錄93／126任務(wù)1制作寫字板程序

【設(shè)計(jì)步驟】打開菜單編輯器第6章目錄94／126任務(wù)1制作寫字板程序

【設(shè)計(jì)步驟】添加RichTextBox控件從“工程”菜單中選擇“部件”命令。在“部件”對(duì)話框的“控件”選項(xiàng)卡中，選中“MicrosoftRichTextboxControl6.0”旁邊的復(fù)選框。單擊“確定”按鈕。添加通用對(duì)話框控件。從“工程”菜單中選擇“部件”命令。在“部件”對(duì)話框的“控件”選項(xiàng)卡中選中“MicrosoftCommonDialogControl6.0”旁邊的復(fù)選框。單擊“確定”按鈕。添加狀態(tài)欄控件。從“工程”菜單中選擇“部件”命令。在“部件”對(duì)話框的“控件”選項(xiàng)卡中選中“MicrosoftWindowsCommonControl6.0”旁邊的復(fù)選框。單擊“確定”按鈕。第6章目錄95／126任務(wù)1制作寫字板程序

【知識(shí)鏈接】1.菜單控件菜單控件的常用屬性CaptionCheckedEnabledIndexNameShortcutVisibleWindowList菜單控件的只有一個(gè)事件，即Click事件。2.RichTextBox控件RichTextBox控件的常用屬性FileNameMaxLengthMultiLineRightMarginScrollBarsSelAlignmentSelBold、SelItalic、SelStrikethru、SelUnderlineSelBulletSelCharOffsetSelColorSelFontNameSelFontSizeSelHangingIndent、SelIndent、SelRightIndentSelLength、SelStart、SelTextSelRTFSelTabCount、SelTabsTextRTFRichTextBox控件的常用方法FindGetLineFromCharLoadFileSaveFileSelPrint第6章目錄96／126任務(wù)1制作寫字板程序

【知識(shí)鏈接】3.狀態(tài)欄控件狀態(tài)欄（StatusBar）控件提供窗體，該窗體通常位于父窗體的底部，應(yīng)用程序通過這一窗體可以顯示各種狀態(tài)數(shù)據(jù)。StatusBar最多能被分成16個(gè)Panel對(duì)象，這些對(duì)象包含在Panels集合中。4.Clipboard對(duì)象Clipboard對(duì)象的常用方法ClearGetDataGetTextSetDataSetText第6章目錄97／126任務(wù)2為寫字板添加工具欄【知識(shí)點(diǎn)】工具欄控件圖像列表控件為工具欄按鈕編寫事件過程【任務(wù)描述】在任務(wù)1已經(jīng)創(chuàng)建了一個(gè)寫字板程序，本任務(wù)在這個(gè)寫字板應(yīng)用程序的基礎(chǔ)上向窗體上添加一個(gè)工具欄，使得用戶可以快速訪問一些常用的菜單命令，包括“文件”菜單中的“新建”、“打開”、“保存”、“打印”以及“編輯”菜單中的“剪切”、“復(fù)制”、“粘貼”等命令，如圖6-9所示。第6章目錄98／126任務(wù)2為寫字板添加工具欄【任務(wù)分析】工具欄主要用于快速訪問使用頻繁的菜單命令。要制作工具欄，需要用到兩個(gè)ActiveX控件：Toolbar和ImageList。Toolbar控件可以提供所需要的按鈕，ImageList控件則為每個(gè)工具按鈕提供圖像。要把工具欄按鈕與菜單命令關(guān)聯(lián)起來，可對(duì)工具欄的ButtonClick事件編程?！驹O(shè)計(jì)步驟】添加一個(gè)ImageList控件，向其中添加圖像。添加一個(gè)Toolbar控件，把控件Toolbar1與控件ImageList1關(guān)聯(lián)起來。向工具欄中添加按鈕。第6章目錄99／126任務(wù)2為寫字板添加工具欄【知識(shí)鏈接】1.工具欄控件工具欄控件的常用屬性ButtonsImageList工具欄控件的ButtonClick事件PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)2.圖像列表控件圖像列表（ImageList）控件包含ListImage對(duì)象的集合，該集合中的每個(gè)對(duì)象都可以通過其索引或關(guān)鍵字被引用。ImageList控件不能獨(dú)立使用，只是作為一個(gè)便于向其它控件提供圖像的資料中心。第6章目錄100／126第7章文件訪問與管理

任務(wù)1制作圖片瀏覽器任務(wù)2制作記事本程序任務(wù)3制作學(xué)生信息管理系統(tǒng)任務(wù)4制作文本瀏覽器101／126任務(wù)1制作圖片瀏覽器【知識(shí)點(diǎn)】驅(qū)動(dòng)器列表框目錄列表框文件列表框【任務(wù)描述】在本任務(wù)中使用文件管理控件制作一個(gè)圖片瀏覽器，可以從不同驅(qū)動(dòng)器上的不同文件夾中選擇圖片文件并在窗體上顯示圖片，程序運(yùn)行效果如圖7-1所示?！救蝿?wù)分析】在本任務(wù)中，需要同時(shí)使用驅(qū)動(dòng)器列表框、目錄列表框和文件列表框，為了使這些控件之間彼此同步，可以對(duì)驅(qū)動(dòng)器列表框和目錄列表框的Change事件過程編程。為了在用戶從文件列表框中選擇一個(gè)圖片時(shí)顯示該圖片，可以對(duì)文件列表框的Click事件過程編程。第7章目錄102／126任務(wù)1制作圖片瀏覽器【知識(shí)鏈接】1.驅(qū)動(dòng)器列表框控件常用屬性DriveListListCountListIndexChange事件，該事件當(dāng)改變所選擇的驅(qū)動(dòng)器，即選擇一個(gè)新的驅(qū)動(dòng)器或通過代碼改變Drive屬性的設(shè)置時(shí)發(fā)生。2.目錄列表框控件常用屬性ListListCountListIndexPathChange事件，該事件在雙擊一個(gè)新的目錄從而改變所選擇的目錄，或者通過代碼改變Path屬性的設(shè)置時(shí)發(fā)生。3.文件列表框控件常用屬性Archive、Hidden、Normal和SystemFileNameListListCountListIndexMultiSelectPathPattern文件列表框的常用事件ClickPathChangePatternChange第7章目錄103／126任務(wù)2制作記事本程序【知識(shí)點(diǎn)】打開順序文件從文件中讀取字符串把字符串寫入文件【任務(wù)描述】在本任務(wù)中制作一個(gè)類似于記事本的文本編輯程序，可以用于打開、編輯和保存文本文件，運(yùn)行結(jié)果如圖7-2所示?！救蝿?wù)分析】制作記事本程序時(shí)可使用文本框作為顯示、輸入和編輯文本的容器，并通過Open語(yǔ)句來打開順序文件。要從已打開的順序文件中讀出數(shù)據(jù)并將數(shù)據(jù)指定給變量，可通過Input#語(yǔ)句來實(shí)現(xiàn)；要把數(shù)據(jù)寫入順序文件中，可通過Print#語(yǔ)句來實(shí)現(xiàn)。完成文件讀寫后，還需要通過Close#語(yǔ)句關(guān)閉文件。第7章目錄104／126任務(wù)2制作記事本程序【知識(shí)鏈接】1