VisualBasic

第2章可視化編程初步1可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.1時(shí)鐘程序設(shè)計(jì)任務(wù)2.1.1任務(wù)描述創(chuàng)建一個(gè)倒計(jì)時(shí)的簡(jiǎn)單應(yīng)用程序。功能是：當(dāng)在文本框內(nèi)輸入倒計(jì)時(shí)的分鐘數(shù)后，單擊“開始”按鈕就開始倒計(jì)時(shí)，倒計(jì)時(shí)結(jié)束時(shí)，彈出“時(shí)間到！”的信息框。2可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.1.2界面設(shè)計(jì)1.界面設(shè)計(jì)新建工程并創(chuàng)建窗體。見下頁(yè)圖。（演示）3可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)4可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.向窗體上添加控件

添加的控件有：一個(gè)標(biāo)簽一個(gè)文本框一個(gè)命令按鈕一個(gè)計(jì)時(shí)器控件見下頁(yè)圖。5可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)6可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)3設(shè)置對(duì)象屬性（1）Form1窗體

Caption——”倒計(jì)時(shí)器”（2）Label1控件

Caption——”請(qǐng)輸入倒計(jì)時(shí)的分鐘數(shù)”

AutoSize——True（3）Command1控件

Caption——”開始”（4）Text1控件

Alignment——”2-Center”（5）Timer1控件

Intervel——”1000”

7可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.1.3代碼設(shè)計(jì)1.進(jìn)入代碼編輯器窗口見下頁(yè)圖8可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)9可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.書寫程序代碼（1）代碼編輯器“通用”部分代碼

DimmAsLong’聲明一個(gè)變量（2）Command1控件代碼

'使控件計(jì)時(shí)器開始工作

Timer1.Enabled=True'將分鐘數(shù)轉(zhuǎn)換為秒數(shù)，并保存在變量m中

m=Val(Text1.Text)*60'改變標(biāo)簽控件的標(biāo)題

Label1.Caption="現(xiàn)在開始倒計(jì)時(shí)"'使命令按鈕不可見

Command1.Visible=False10可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.書寫程序代碼（3）Timer1控件代碼PrivateSubTimer1_Timer()'當(dāng)timer1.enabled=true時(shí)，本程序每秒自動(dòng)執(zhí)行一次

'每運(yùn)行一次，就將m變量的值減1秒

m=m-1Ifm<0Then'如果倒計(jì)時(shí)結(jié)束，則

Timer1.Enabled=False'關(guān)閉計(jì)時(shí)器

MsgBox"時(shí)間到！",0,"倒計(jì)時(shí)"Label1.Caption="請(qǐng)輸入倒計(jì)時(shí)的分鐘數(shù)"Text1.Text=""'清空文本框

Command1.Visible=True'使命令按鈕可見

Else'否則顯示倒計(jì)時(shí)數(shù)

Text1.Text=mEndIfEndSub11可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.1.4保存和運(yùn)行程序1.保存工程（1）單擊“文件”菜單中的“保存工程”或單擊工具欄上的“保存工程”按鈕，系統(tǒng)彈出“文件另存為”對(duì)話框，提示用戶輸入窗體文件名。將窗體文件名該為Timer.frm。（2）緊接著出現(xiàn)“工程另存為”對(duì)話框，以來(lái)保存工程文件。將文件名改為Timerapp.vbp，然后單擊“保存”按鈕。（演示）2.運(yùn)行程序（演示）12可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題教材P47一、1.在VisualBasic的集成開發(fā)環(huán)境中創(chuàng)建VisualBasic應(yīng)用程序時(shí)，除了工具箱窗口、窗體設(shè)計(jì)窗口、屬性窗口外，必不可少的窗口是（）。A.窗體布局窗口B.立即窗口C.代碼窗口D.監(jiān)視窗口答案：C13可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.1.5編譯與打包

1.編譯應(yīng)用程序編譯應(yīng)用程序就是把一個(gè)應(yīng)用程序制成一個(gè)可執(zhí)行文件，即.EXE文件。方法是單擊“文件”菜單中的“生成Timerapp.exe”選項(xiàng)，出現(xiàn)“生成工程”對(duì)話框，在其中輸入Timerapp.exe，然后單擊“確定”按鈕，程序即被編譯在磁盤上，這樣該應(yīng)用程序就可以脫離VB環(huán)境，在操作系統(tǒng)下單獨(dú)運(yùn)行了。（演示）14可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題教材P48二、2.簡(jiǎn)述建立可執(zhí)行文件的步驟。答：?jiǎn)螕簟拔募辈藛沃械摹吧蒚imerapp.exe”選項(xiàng)，出現(xiàn)“生成工程”對(duì)話框，在其中輸入工程名.exe，然后單擊“確定”按鈕，程序即被編譯在磁盤上，這樣該應(yīng)用程序就可以脫離VB環(huán)境，在操作系統(tǒng)下單獨(dú)運(yùn)行了。15可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題教材P48二、3.VisualBasic應(yīng)用程序中包括哪些類型的文件？答：可能包含下列不同類型的文件：1.跟蹤所有部件的工程文件（.vbp）2.每個(gè)窗體的文件（.frm）3.每個(gè)窗體的二進(jìn)制數(shù)據(jù)文件（.frx）4.每個(gè)類模塊的文件（.cls），可選5.每個(gè)標(biāo)準(zhǔn)類模塊的文件（.bas），可選6.一個(gè)或多個(gè)包含Activex控件的文件（.ocx），可選。7.單個(gè)資源文件（.res），可選。16可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.打包如上所述，.EXE文件可以脫離VB環(huán)境，在操作系統(tǒng)下單獨(dú)運(yùn)行，但不能簡(jiǎn)單地認(rèn)為這樣就可以將該.EXE文件發(fā)布給他人，或者可以拷貝到活動(dòng)磁盤上帶到任意的系統(tǒng)上去使用。因?yàn)樵趫?zhí)行已編譯的代碼時(shí)，VB要運(yùn)行特定的運(yùn)行庫(kù)，但每臺(tái)計(jì)算機(jī)安裝的運(yùn)行庫(kù)不一定相同，因此必須創(chuàng)建一個(gè)安裝程序來(lái)發(fā)布文件。17可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)創(chuàng)建安裝程序的操作步驟：（1）在“開始”菜單的“MicrosoftVisualBasic6.0中文版”程序組中，選擇“MicrosoftVisualBasic中文版工具”，然后在其下級(jí)菜單中選擇“Package&Deployment向?qū)А?，打開“打包和展開向?qū)А睂?duì)話框。（見下圖）18可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)（2）單擊上圖中的“瀏覽”按鈕，出現(xiàn)“打開工程”對(duì)話框，選擇要打包的文件，單擊“打開”按鈕。

19可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)（3）系統(tǒng)返回“打包和展開向?qū)А?，單擊圖中的“打包”按鈕，如果工程還沒(méi)有編譯成可執(zhí)行文件，系統(tǒng)會(huì)彈出對(duì)話框提示你進(jìn)行編譯，然后已編譯，則彈出“包類型”對(duì)話框。20可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)21可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)22可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)（4）選擇“標(biāo)準(zhǔn)安裝包”，以創(chuàng)建由setup.exe程序安裝包。然后單擊“下一步”按鈕，彈出“打包文件夾”對(duì)話框。23可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)選擇缺省項(xiàng)，然后單擊“下一步”按鈕。24可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)在上圖的對(duì)話框中，單擊“是”按鈕，彈出“包含文件”對(duì)話框。25可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)這里列出同應(yīng)用程序一起發(fā)布的文件，若用戶還需要用到其他一些文件和庫(kù)，可以手工“添加”按鈕加入這些文件。然后單擊“下一步”按鈕。26可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)（5）在“壓縮文件選項(xiàng)”框，默認(rèn)“單個(gè)的壓縮文件”。如果用戶希望用軟盤來(lái)發(fā)布應(yīng)用程序，可選中“多個(gè)壓縮文件”選項(xiàng)，并且選擇合適的磁盤大小。然后單擊“下一步”按鈕。27可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)（6）在“安置程序標(biāo)題”對(duì)話框，輸入程序標(biāo)題，然后單擊“下一步”按鈕。28可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)（7）在“啟動(dòng)菜單項(xiàng)”對(duì)話框，發(fā)布的程序可以通過(guò)單擊“開始”、“程序”、然后再選中該應(yīng)用程序的組啟動(dòng)。單擊“下一步”按鈕。29可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)（8）在“安置位置”對(duì)話框，可選擇應(yīng)用程序的安置目錄。這里選擇缺省設(shè)置，然后單擊“下一步”按鈕。30可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)（9）在“共享文件”對(duì)話框，用戶可將給定的文件設(shè)置成共享，然后單擊“下一步”按鈕。31可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)（10）在“已完成”對(duì)話框，單擊“完成”按鈕，系統(tǒng)開始生成安置包程序。打包完成后彈出“打包報(bào)告”。32可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)單擊“關(guān)閉”按鈕，完成操作。33可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.1.6安裝運(yùn)行當(dāng)用戶需要在其它機(jī)器上運(yùn)行已打包的程序時(shí)，必須進(jìn)行程序安裝。首先找到壓縮包所在的目錄，然后雙擊Setup.exe文件，Windows就會(huì)執(zhí)行安裝程序顯示歡迎對(duì)話框，單擊“確定”按鈕后，系統(tǒng)將顯示“安裝程序”對(duì)話框。34可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)

單擊“確定”按鈕，開始安裝。安裝家屬后，將在Windows”開始”菜單對(duì)應(yīng)該程序的地方添加一個(gè)圖標(biāo)。如果單擊“退出安裝”按鈕，安裝程序?qū)?dòng)應(yīng)用程序刪除工具來(lái)刪除臨時(shí)安裝文件。35可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題P47一、2.應(yīng)用程序打包后，其包文件的后綴為（）。A..exeB..cabC..tetD..ocx答案：B36可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題P48一、10.工程文件的后綴是（）。A..bmpB..vbpC..frmD..bas答案：B37可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.1.7VB應(yīng)用程序開發(fā)的一般步驟

1.設(shè)計(jì)應(yīng)用程序界面

2.設(shè)計(jì)對(duì)象屬性

3.編寫代碼

4.保存和運(yùn)行程序

5.編譯和打包

6.安裝運(yùn)行38可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題教材P48二、1.簡(jiǎn)述設(shè)計(jì)VisualBasic應(yīng)用程序的步驟。答：1.設(shè)計(jì)應(yīng)用程序界面

2.設(shè)計(jì)對(duì)象屬性

3.編寫代碼

4.保存和運(yùn)行程序

5.編譯和打包

6.安裝運(yùn)行39可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.2程序代碼分析

VB應(yīng)用程序涉及變量、賦值語(yǔ)句、MsgBox等概念，下面對(duì)它們進(jìn)行

簡(jiǎn)要介紹。40可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)

2.2.1變量所謂變量就是可以改變的量，程序運(yùn)行過(guò)程中可以不斷改變它的值。變量具有名字和數(shù)據(jù)類型兩個(gè)屬性。變量的名字用于在程序中標(biāo)識(shí)變量和使用變量的值，數(shù)據(jù)類型則標(biāo)識(shí)變量中能保存哪種類型的數(shù)據(jù)。一個(gè)變量在一個(gè)時(shí)刻只能存放一個(gè)值，當(dāng)新的數(shù)據(jù)存放到變量中時(shí)，原來(lái)的數(shù)據(jù)就不存在了。41可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)在使用一個(gè)變量時(shí)，必須首先用Dim語(yǔ)句對(duì)它進(jìn)行聲明。例如’聲明一個(gè)變量a，用來(lái)存儲(chǔ)字符型數(shù)據(jù)DimaAsString’聲明一個(gè)變量b，用來(lái)存儲(chǔ)整型數(shù)據(jù)DimbAsInteger’聲明一個(gè)變量c，用來(lái)存儲(chǔ)雙精度型數(shù)據(jù)DimcAsDouble當(dāng)執(zhí)行Dim語(yǔ)句后，VB程序就會(huì)在計(jì)算機(jī)內(nèi)預(yù)留一個(gè)位置，準(zhǔn)備存放數(shù)據(jù)。42可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題P47一、5.在VisualBasic中，變量的默認(rèn)類型是（）。A.IntegerB.DoubleC.VariantD.Currency答案：C43可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.2.2賦值語(yǔ)句

賦值語(yǔ)句是程序設(shè)計(jì)中最基本、最常用的語(yǔ)句，當(dāng)需要把數(shù)值、字符串表達(dá)式的運(yùn)行結(jié)果保持到變量中，或者需要修改某個(gè)對(duì)象缺省屬性值時(shí)，最常用的方法就是使用賦值語(yǔ)句，賦值語(yǔ)句的語(yǔ)句格式為：變量名=表達(dá)式或?qū)ο竺?屬性名=表達(dá)式例如：m=Val（Text1.Text）*6044可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)

賦值語(yǔ)句具有計(jì)算和賦值雙重功能，它首先計(jì)算“=”（賦值號(hào)）右邊的值，然后把結(jié)果賦值給“=”左邊的變量。使用賦值語(yǔ)句應(yīng)注意以下幾點(diǎn)：

1.不要把賦值號(hào)“=”與數(shù)學(xué)中的等號(hào)相混淆。等號(hào)表示兩側(cè)的值相等，而賦值號(hào)“=”是將一個(gè)值賦給一個(gè)變量。例如：

m=m-12.賦值號(hào)“=”左邊必須是變量名或?qū)ο髮傩?，?”右邊是表達(dá)式，其值可以是常量、變量、函數(shù)或是它們的混合運(yùn)算式。例如:x=x+yb=1c=b*2+245可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題P47一、7.下列賦值語(yǔ)句正確的是（）。A.A=B+CB.B+C=AC.–B=AD.2=A+B答案：A46可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.2.3MsgBox語(yǔ)句和函數(shù)的使用在編寫程序過(guò)程中，為了對(duì)用戶的操作給予一定的提醒或反饋，常常需要在屏幕上顯示一些提示信息、警告信息、詢問(wèn)信息或錯(cuò)誤消息等提示，VB提供的MsgBox命令就可以實(shí)現(xiàn)這些功能，它不僅可以向用戶傳送信息，還可以接收用戶在對(duì)話框上的選擇，以此作為程序繼續(xù)執(zhí)行的依據(jù)。47可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)MsgBox命令稱為消息對(duì)話框，它有兩種格式，一種作為函數(shù)使用，需要返回值；另一種作為一般的命令語(yǔ)句使用，不需要返回值。MsgBox函數(shù)格式：變量=MsgBox（提示信息[，對(duì)話框類型[，對(duì)話框標(biāo)題]]）MsgBox命令格式：

MsgBox提示信息[，對(duì)話框類型[，對(duì)話框標(biāo)題]]其中：（1）“提示信息”指定在對(duì)話框中出現(xiàn)的文本。（2）“對(duì)話框標(biāo)題”指定了對(duì)話框的標(biāo)題。（3）“對(duì)話框類型”用來(lái)指定對(duì)話框中出現(xiàn)的按鈕和圖標(biāo)，一般有三個(gè)參數(shù)。（4）MsgBox返回值指明了用戶在對(duì)話框中選中了哪一個(gè)按鈕。48可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)

值常量顯示的按鈕0vbOKOnly“確定”按鈕1vbOKCancel“確定”和“取消”按鈕2vbAbortRetryIgnore“終止”、“重試”、和“忽略”按鈕3vbYesNoCancel“是”、“否”和“取消”按鈕4vbYesNo“是”和“否”按鈕5vbRetryCancel“重試”和“取消”按鈕“對(duì)話框類型”參數(shù)1——出現(xiàn)的按鈕49可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)

值常量顯示的按鈕16vbCritical停止圖標(biāo)32vbQuetion問(wèn)號(hào)（？）圖標(biāo)48vbExclamation感嘆號(hào)（?。﹫D標(biāo)64vbInFormation消息圖標(biāo)“對(duì)話框類型”參數(shù)2——圖標(biāo)類型50可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)

值常量顯示的按鈕0vbDefaultButton1第一個(gè)按鈕的默認(rèn)按鈕256vbDefaultButton2第二個(gè)按鈕的默認(rèn)按鈕512vbDefaultButton3第三個(gè)按鈕的默認(rèn)按鈕“對(duì)話框類型”參數(shù)3——默認(rèn)按鈕51可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)

值常量所對(duì)應(yīng)的按鈕1vbOK“確定”按鈕2vbCancel“取消”按鈕3vbAbort“終止”按鈕4vbRetry“重試”按鈕5vbIgnore“忽略”按鈕6vbYes“是”按鈕7vbNo“否”按鈕函數(shù)返回值52可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)例如：PrivateSubCommand1_Click()MsgBox"除數(shù)不能為0！",vbOKCancel,"輸入數(shù)據(jù)錯(cuò)誤"End53可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)例如：PrivateSubCommand1_Click()a=MsgBox("密碼不正確",2+32+0,"標(biāo)題")Ifa=3ThenEndEndIfEndSub54可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)例如：PrivateSubCommand1_Click()MsgBox"密碼不正確，"+Chr(13)+"請(qǐng)重新輸入"EndSub55可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題P47一、4.MsgBox函數(shù)的返回值為（）。A.整型B.字符串C.邏輯型D.日期型答案：A56可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.3窗體及基本控件2.3.1對(duì)象的概念、屬性、事件及方法1.對(duì)象的概念對(duì)象是代碼和數(shù)據(jù)的封裝體，建立一個(gè)對(duì)象后，其操作通過(guò)與該對(duì)象有關(guān)的屬性、事件和方法來(lái)描述。窗體、標(biāo)簽、文本框、命令按鈕和時(shí)鐘控件等都是對(duì)象。每個(gè)對(duì)象或控件都具有描述其特征的屬性及附屬于它的方法。57可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.屬性

屬性是一個(gè)對(duì)象的基本特性，每個(gè)對(duì)象都有自己的屬性。在可視化編程中，對(duì)象常見的屬性有標(biāo)題（Caption）、顏色（Color）、字體（Font）、是否可見（Visible）等。各類對(duì)象都有默認(rèn)的屬性值，如果不改變?cè)搶傩灾?，程序就將使用其默認(rèn)屬性。通過(guò)修改對(duì)象的屬性，可以改變對(duì)象的外觀和功能。58可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)設(shè)置對(duì)象屬性的兩種方法：（1）在設(shè)計(jì)階段，通過(guò)屬性窗口的屬性列表框設(shè)置對(duì)象的屬性。（2）在程序代碼中，用賦值語(yǔ)句設(shè)置對(duì)象的屬性，其格式為：對(duì)象名.屬性名=屬性值例如：Label1.Caption=“現(xiàn)在開始倒計(jì)時(shí)”59可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)3.方法一般來(lái)說(shuō)，方法就是要執(zhí)行的動(dòng)作，是VB提供的一種特殊的過(guò)程和函數(shù)。在VB中，已將一些通用的過(guò)程和函數(shù)編寫好并封裝起來(lái)，作為方法供用戶調(diào)用。如對(duì)象打?。≒rint）方法、顯示窗體（Show）方法、清除（Cls）和移動(dòng)（Move）方法等。對(duì)象的方法是在對(duì)象上實(shí)施某種操作功能，不能在設(shè)計(jì)界面時(shí)調(diào)用對(duì)象，而只能在程序代碼中使用。調(diào)用對(duì)象的格式為：對(duì)象名.方法名例如：Form1.Print“你好！”60可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)4.事件事件就是在對(duì)象上所發(fā)生的事情。在VB中，系統(tǒng)預(yù)先為每個(gè)對(duì)象定義好了一系列事件，例如，單擊（Click）事件、雙擊（DblClick）事件、裝入（Load）事件、改變（Change）事件、鼠標(biāo)移動(dòng)（MouseMove）事件等。對(duì)象的事件是由VB預(yù)先設(shè)置好的、能被對(duì)象識(shí)別的動(dòng)作。用戶不能建立了新的事件。當(dāng)事件由用戶觸發(fā)（如單擊）或由系統(tǒng)觸發(fā)（如裝入）時(shí)，應(yīng)用程序就響應(yīng)這個(gè)事件。響應(yīng)某個(gè)事件后所執(zhí)行的程序代碼就是事件過(guò)程。61可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)事件的一般格式如下：PrivateSub對(duì)象名_事件名（）程序代碼

Endsub

例如，Command1_Click（）事件就是用鼠標(biāo)單擊命令按鈕Command1的事件，編寫代碼的目的就是告訴應(yīng)用程序，如果用鼠標(biāo)單擊Command1時(shí)，該如何響應(yīng)，即應(yīng)用程序該做些什么。62可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題教材P48二、4.什么是對(duì)象、事件和方法？三者之間的關(guān)系是什么？窗體和控件是創(chuàng)建應(yīng)用程序所使用的對(duì)象，方法是對(duì)象的動(dòng)作，事件是對(duì)象的響應(yīng)。屬性可看作對(duì)象的性質(zhì)，方法可看著對(duì)象的動(dòng)作，事件可看著對(duì)象的響應(yīng)。窗體對(duì)象由屬性定義其外觀，由方法定義其行為，由事件定義其與用戶的交互。63可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.3.2窗體

窗體（Form）是用戶界面最基本的模塊，也是創(chuàng)建應(yīng)用程序所使用的主要對(duì)象之一。窗體有自己的屬性、事件和方法，以便控制窗體的外觀和行為。窗體又是其它對(duì)象的載體或容器，幾乎所有的控件都可以設(shè)置在窗體上。當(dāng)使用VB創(chuàng)建一個(gè)新工程時(shí)，就會(huì)自動(dòng)創(chuàng)建一個(gè)新窗體，并將該窗體命名為Form1.frm。（演示）64可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)1.窗體的基本屬性

設(shè)置窗體的屬性有兩種方法，一種是利用屬性窗口來(lái)設(shè)置屬性；另一種是在代碼編輯器窗口中設(shè)置屬性。在屬性窗口中設(shè)置屬性時(shí)，其結(jié)果直接在窗體上表現(xiàn)出來(lái)；而在代碼編輯器窗口設(shè)置屬性時(shí)，只有在執(zhí)行代碼后，窗體的外觀才發(fā)生變化。65可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)窗體幾種常用屬性：（1）Name屬性用于設(shè)置窗體名稱。在代碼中作為引用窗體的標(biāo)識(shí)符，缺省情況下，VB按創(chuàng)建窗體的先后順序?yàn)槊總€(gè)窗體設(shè)定名稱Form1，F(xiàn)orm2，……。66可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)窗體幾種常用屬性：（2）Caption屬性用于設(shè)置顯示窗體的標(biāo)題，即窗體標(biāo)題欄中顯示的文本內(nèi)容，默認(rèn)與窗體名稱相同。Caption屬性可以直接在屬性窗口中設(shè)置，也可在代碼編輯器中通過(guò)下列語(yǔ)句進(jìn)行修改：窗體名.Caption=“標(biāo)題”例：PrivateSubForm_LoadForm1.Caption=“倒計(jì)時(shí)器”

EndSub

（演示）67可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)窗體幾種常用屬性：（2）MaxButton和Minbutton屬性各有兩個(gè)屬性值True和False,分別決定在窗體上設(shè)法具有最大化和最小化按鈕。68可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)窗體幾種常用屬性：（4）BorderStyle邊框樣式屬性用于設(shè)置窗體的邊框樣式。只能在屬性窗口中設(shè)置。屬性設(shè)置值說(shuō)明0-None窗體無(wú)標(biāo)題欄，也沒(méi)有邊框，不能移動(dòng)和改變大小1-FixedSingle窗體為單線邊框，可移動(dòng)，不可改變大小2-SizableVB的默認(rèn)值，窗體為雙線邊框，可移動(dòng)，并可改變大小3-FixedDouble窗體為固定對(duì)話框，不可改變大小4-FixedToolWindows窗體外觀與工具條相似，有關(guān)閉按鈕，不能改變大小5-SizableToolWindows窗體外觀與工具條相似，有關(guān)閉按鈕，能改變大小69可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)窗體幾種常用屬性：（5）Picture屬性用于設(shè)置窗體要顯示的圖片，可以在應(yīng)用程序中用下列語(yǔ)句格式來(lái)設(shè)置：對(duì)象.Picture=LoadPicture(“文件名”）其中，LoadPicture是一個(gè)裝載圖片的函數(shù)。70可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)窗體幾種常用屬性：（6）Icon屬性用于設(shè)置窗體的圖標(biāo)。在屬性窗口中，通過(guò)單擊Icon屬性右邊的下拉按鈕從VB圖標(biāo)庫(kù)中選擇合適的圖標(biāo)作為該窗體的圖標(biāo)。71可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)窗體幾種常用屬性：（7）Visible屬性用于設(shè)置窗體是否可見。當(dāng)值為True時(shí)（缺省值）顯示窗體，為False時(shí)隱蔽窗體。（8）WindowsState屬性用來(lái)設(shè)置在運(yùn)行時(shí)窗體的顯示狀態(tài)。屬性值為0-Normal時(shí)，窗體為正常大?。J(rèn)值）；為1-Minimized時(shí)，窗體最小化；為2-Maximized時(shí)，窗體為最大化狀態(tài)。72可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.窗體常用方法：（1）Show方法用于快速顯示一個(gè)窗體。與窗體的Visible屬性設(shè)置為True的效果一樣。例如：

Form1.ShowForm1.Visible=True（2）Hide方法其功能是隱蔽窗體。與窗體的屬性設(shè)置為False時(shí)效果一樣。例如：

Form1.HideForm1.Visible=False73可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.窗體常用方法：（）Print方法用于在窗體、圖片框上輸出文本。例如（演示）

PrivateSubForm1_LoadDebug.Print“Print方法可以在窗體上打印文本”

EndSub74可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.窗體常用方法：（3）Cls方法用于清除在運(yùn)行時(shí)窗體和圖片框中顯示的文本和圖形。例如：

Picture1.Cls’清除圖片框內(nèi)顯示的圖形或文本

Cls’清除窗體上顯示的文本（2）Move方法將窗體移動(dòng)到指定的位置。例如：

Form1.Move（0，0）將窗體Form1移動(dòng)到屏幕左上角。75可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)3.窗體的常用事件窗體作為對(duì)象，能夠?qū)κ录鞒鲰憫?yīng)。窗體常用事件有以下幾種：（1）Click事件單擊窗體時(shí)會(huì)觸發(fā)Click事件。（演示）（2）DblClick事件雙擊窗體時(shí)會(huì)觸發(fā)Click事件。（3）Load事件程序一旦運(yùn)行，就會(huì)自動(dòng)裝載Form1窗體，就會(huì)自動(dòng)產(chǎn)生該事件。（演示）76可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)3.窗體的常用事件窗體作為對(duì)象，能夠?qū)κ录鞒鲰憫?yīng)。窗體常用事件有以下幾種：（4）UnLoad事件卸載窗體時(shí)觸發(fā)，當(dāng)單擊窗體上的“關(guān)閉”按鈕時(shí)或使用UnLoad語(yǔ)句時(shí)就會(huì)觸發(fā)該事件。卸載過(guò)程有一個(gè)Cancel參數(shù)，如果將它設(shè)置為任何一個(gè)非0整數(shù)，就可以取消窗體的卸載過(guò)程。（5）Activate和DeActivate事件當(dāng)一個(gè)窗體變成活動(dòng)窗體時(shí)，就會(huì)觸發(fā)Activate事件。Activate事件緊接Load事件發(fā)生。（演示）77可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)4.窗體事件演示程序

例：設(shè)計(jì)一個(gè)窗體界面，窗體上無(wú)最大化和最小化按鈕；程序運(yùn)行后，自動(dòng)將窗體的背景顏色設(shè)置為黃色，窗體變寬；雙擊窗體時(shí)，則退出。

Load事件78可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)4.窗體事件演示程序

Click事件79可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)程序代碼：PrivateSubForm_Load()Form1.BackColor=RGB(255,255,0)form1.minbutton=falseform1.maxbutton=falseEndSub

PrivateSubForm_Click()Form1.Width=Form1.Width+1000EndSub80可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)程序代碼：PrivateSubForm_DblClick()UnloadMe'執(zhí)行卸載命令EndSubPrivateSubForm_Unload(CancelAsInteger)a=MsgBox("是否要卸載窗體？",vbYesNo,"信息提示")Ifa=vbNoThenCancel=1'不卸載

EndIfEndSub81可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題P47一、3.當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自發(fā)執(zhí)行啟動(dòng)窗體的（）事件過(guò)程。A.LoadB.ClickC.UnLoadD.GotFocus答案：A82可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題P48一、11.窗體Form1的Name屬性為Myfrm，則它的Load事件工程名為（）。A.Form_LoadB.Me_LoadC.Myfrm_LoadD.Form1_Load答案：A83可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.3.3命令按鈕在應(yīng)用程序中，命令按鈕（CommandButton）的應(yīng)用十分廣泛。其主要功能的通過(guò)單擊命令按鈕來(lái)調(diào)用Click事件過(guò)程。84可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)1.常用屬性屬性說(shuō)明Name設(shè)置按鈕名稱，以在程序代碼中引用它Caption用于顯示按鈕上的文本Dufault設(shè)置默認(rèn)命令按鈕。為True時(shí)是默認(rèn)按鈕，按回車鍵就相當(dāng)于單擊此按鈕。為False時(shí)不是默認(rèn)按鈕。Cancel用來(lái)設(shè)置按鈕是否為取消按鈕。為True時(shí)是取消按鈕，按ESC鍵就相當(dāng)于單擊此按鈕。為False時(shí)不是取消按鈕。Style值為0-Standard（默認(rèn)）時(shí)，是標(biāo)準(zhǔn)按鈕，按鈕上不能顯示圖形；值為1-Graphical時(shí)，是圖形按鈕，按鈕上可以顯示圖形的樣式，也能顯示文字。Picture用于設(shè)置按鈕上要顯示的圖片。只有當(dāng)Style屬性為1時(shí)，才能在按鈕上加載圖片Enabled只有True和False兩個(gè)值?？梢栽谠O(shè)計(jì)和運(yùn)行階段改變。當(dāng)為False時(shí)，該按鈕將變灰不可用。85可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.常用方法命令按鈕控件的常用方法有SetFoucus。3.常用事件命令按鈕控件最常用事件是Click，以下情況可發(fā)生Click事件：（1）在按鈕上單擊鼠標(biāo)（2）焦點(diǎn)在按鈕上，按空格鍵或回車鍵。（3）在代碼中將按鈕Value屬性設(shè)置為True。（4）對(duì)于取消按鈕按ESC鍵。（5）在Caption屬性中用&符號(hào)鏈接一訪問(wèn)鍵，在運(yùn)行時(shí)按Alt+訪問(wèn)鍵。86可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.3.4標(biāo)簽標(biāo)簽（Label）控件用來(lái)顯示不能編輯的文本信息，因用來(lái)顯示標(biāo)題和說(shuō)明性文字。1.常用屬性（1）AutoSise屬性用來(lái)說(shuō)明標(biāo)簽是否能自適應(yīng)大小，當(dāng)值為True時(shí)，可以根據(jù)顯示內(nèi)容的多少自動(dòng)調(diào)整大小以適應(yīng)其內(nèi)容；值為False（默認(rèn)）時(shí)，標(biāo)簽大小不能改變，超長(zhǎng)的文本被截去87可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)1.常用屬性（2）Alignment屬性用來(lái)設(shè)置標(biāo)簽中文本的對(duì)齊方式。（3）BorderStyle屬性用來(lái)設(shè)置標(biāo)簽的邊框。默認(rèn)情況下屬性值為0，標(biāo)簽無(wú)邊框，屬性值為1時(shí)，標(biāo)簽有邊框。屬性值符號(hào)常數(shù)對(duì)應(yīng)的含義0LeftJustify左對(duì)齊（默認(rèn)）1RightJustify右對(duì)齊2Center居中88可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.常用屬性（4）BackStyle屬性用來(lái)設(shè)置標(biāo)簽是否透明。默認(rèn)情況下屬性值為1，標(biāo)簽不透明；屬性值為0時(shí)，標(biāo)簽透明。（5）WordWrap屬性用來(lái)設(shè)置標(biāo)簽的內(nèi)容是否能夠多行顯示。缺省值為False，標(biāo)簽中的內(nèi)容不能多行顯示。值為True時(shí)，邊框可在垂直方向變化大小以與內(nèi)容相適應(yīng)。3.常用方法按鈕控件的常用方法有Move方法，用來(lái)實(shí)現(xiàn)控件的移動(dòng)。89可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.3.5文本框

文本框（TextBox）控件一般用于接收用戶輸入的信息，或顯示系統(tǒng)提供的文本信息，用戶可在文本框上編輯文本。1.常用屬性（1）Text屬性用來(lái)設(shè)置文本框中的內(nèi)容。注意：文本框無(wú)Caption屬性，顯示的正文存放在Text中。90可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)1.常用屬性（2）Multiline屬性以來(lái)決定文本框是否可輸入多行文本。其值為True可輸入多行文本，為False（默認(rèn)）時(shí)只能輸入一行文本。（演示）91可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)1.常用屬性（3）PassWordChar屬性用來(lái)設(shè)置如何在文本框中顯示輸入的字符，主要用于密碼輸入。（演示）92可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)1.常用屬性（4）ScrollBars屬性用來(lái)設(shè)置文本框中是否有水平滾動(dòng)條或垂直滾動(dòng)條。注意：當(dāng)MultiLine屬性為True時(shí)，ScrollBars才有效。屬性值符號(hào)常數(shù)對(duì)應(yīng)的含義0（默認(rèn)）None無(wú)滾動(dòng)條1Horizontal有水平滾動(dòng)條2Vertical有垂直滾動(dòng)條3Both同時(shí)有垂直和水平滾動(dòng)條93可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)1.常用屬性（5）Locked屬性用來(lái)設(shè)置文本框中的內(nèi)容是否可編輯。值為False（默認(rèn)），表示可編輯，值為True時(shí)，表示鎖定，不能編輯文本框中的文本。2.常用方法文本框常用的方法是SetFocus方法，用于將光標(biāo)從其它位置移動(dòng)到文本框中。94可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)3.常用事件（1）Change事件：當(dāng)改變文本框的內(nèi)容時(shí)發(fā)生該事件。（2）KeyPress事件：當(dāng)用戶按下并且釋放鍵盤上的一個(gè)ASCII鍵時(shí)發(fā)生KeyPress事件，該事件將返回一個(gè)KeyAscii參數(shù)到該事件過(guò)程中。如單用戶輸入字符“z”時(shí)，KeyAscii的值就為122。（3）LostFocus和GotFocus事件：表示文本框控件失去和得到焦點(diǎn)時(shí)所發(fā)生的事件。95可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題P47一、6.文本框的ScrollBars屬性設(shè)置了非零值，卻沒(méi)有效果，原因是（）。A.文本框中沒(méi)有內(nèi)容B.文本框的Locked屬性為TrueC.文本框的MultiLine屬性為TrueD.文本框的MultiLine屬性為False答案：D96可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題P48一、12.用于設(shè)置文本框中顯示字符的屬性是（）。A.AutoSizeB.PasswordCharC.SelLengthD.MaxLength答案：B97可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題P48一、13.下列控件中，不能改變大小的是（）。A.TextBoxB.LabelC.TimerD.PictureBox答案：C98可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.4事件驅(qū)動(dòng)2.4.1事件驅(qū)動(dòng)的程序設(shè)計(jì)在事件驅(qū)動(dòng)的應(yīng)用程序中，程序代碼不是按照預(yù)定的路徑執(zhí)行，而是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼片段。每個(gè)對(duì)象都有一個(gè)相應(yīng)的事件集，每個(gè)事件發(fā)生都要執(zhí)行一段代碼。事件可以由用戶操作觸發(fā)，也可以由操作系統(tǒng)或其它應(yīng)用程序的消息觸發(fā)，這些事件的順序決定了代碼執(zhí)行的順序。所以編程人員只需針對(duì)某個(gè)事件編寫程序代碼即可。99可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題教材P48二、5.什么是事件驅(qū)動(dòng)程序設(shè)計(jì)？答：在事件驅(qū)動(dòng)的應(yīng)用程序中，程序代碼不是按照預(yù)定的路徑執(zhí)行，而是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼片段。這些事件的順序決定了代碼執(zhí)行的順序。所以編程人員只需針對(duì)某個(gè)事件編寫程序代碼。這就是事件驅(qū)動(dòng)程序設(shè)計(jì)。100可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.4事件驅(qū)動(dòng)2.4.2VB的對(duì)象如何識(shí)別事件事件是發(fā)生在對(duì)象上的事情。在響應(yīng)事件時(shí)，由事件來(lái)驅(qū)動(dòng)應(yīng)用程序執(zhí)行VB代碼。VB中的每一個(gè)對(duì)象都有一個(gè)預(yù)定義的事件集。如果其中有一個(gè)事件發(fā)生，并且在關(guān)聯(lián)的事件過(guò)程中存在代碼，則VB就會(huì)調(diào)用該代碼。對(duì)象所識(shí)別的事件類型很多，多數(shù)類型為大多數(shù)控件所共有。例如命令按鈕和窗體都可以對(duì)Click、DblClick（雙擊）這些事件作出響應(yīng)。101可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.4事件驅(qū)動(dòng)2.4.3事件驅(qū)動(dòng)的工作過(guò)程當(dāng)VB的程序運(yùn)行后，系統(tǒng)處于等待狀態(tài)，當(dāng)某個(gè)事件發(fā)生后，程序就去執(zhí)行事件過(guò)程，當(dāng)這個(gè)事件執(zhí)行完后，系統(tǒng)又處于等待另一個(gè)事件發(fā)生的狀態(tài)。這就是事件驅(qū)動(dòng)程序方式。事件驅(qū)動(dòng)的工作過(guò)程為：1.啟動(dòng)應(yīng)用程序，裝載和顯示窗體。2.窗體或窗體上的控件等待事件的發(fā)生。3.當(dāng)某個(gè)事件發(fā)生后，執(zhí)行其對(duì)應(yīng)的事件過(guò)程代碼。4.重復(fù)執(zhí)行第2和第3步，直到遇到End語(yǔ)句或單擊結(jié)束按鈕停止程序的運(yùn)行。102可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)習(xí)題P47一、8.在VisualBasic中，程序的執(zhí)行順序是（）。A.由VisualBasic開發(fā)系統(tǒng)決定B.由事件驅(qū)動(dòng)C.由代碼行的順序決定D.隨意執(zhí)行答案：B103可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.5計(jì)時(shí)器控件的一些用法

計(jì)時(shí)器控件是VB內(nèi)設(shè)置的控件。如果想通過(guò)時(shí)間來(lái)控制某些操作或用于計(jì)時(shí)，可以利用這個(gè)控件來(lái)實(shí)現(xiàn)。計(jì)時(shí)器控件在設(shè)計(jì)時(shí)可見，而在運(yùn)行時(shí)則隱藏起來(lái)，但在后臺(tái)每隔一定的時(shí)間間隔就產(chǎn)生一次Timer事件。利用Timer事件和計(jì)時(shí)器控件特有的屬性，可以判斷是否執(zhí)行某項(xiàng)任務(wù)。計(jì)時(shí)器控件常用來(lái)進(jìn)行后臺(tái)中斷處理。104可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.5.1常用屬性1.Interval屬性

Interval屬性用來(lái)設(shè)置兩個(gè)計(jì)時(shí)事件之間發(fā)生的時(shí)間間隔，以毫秒（ms）為單位，其取值范圍為0~65535，即最大的時(shí)間間隔不超過(guò)65.5秒。如果將Interval屬性設(shè)置為1000ms，即將時(shí)間間隔設(shè)置為1秒，則表明每隔1秒就會(huì)產(chǎn)生一次計(jì)時(shí)器事件。Interval屬性的默認(rèn)值為0，表示不產(chǎn)生計(jì)時(shí)器事件。105可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.Enabled屬性Enabled屬性用來(lái)決定計(jì)時(shí)器控件是否能響應(yīng)計(jì)時(shí)器事件，相當(dāng)于啟動(dòng)或關(guān)閉計(jì)時(shí)器的開關(guān)。當(dāng)Enabled屬性值為0（或False），關(guān)閉Timer控件；當(dāng)Enabled屬性值為1（默認(rèn)），啟動(dòng)計(jì)時(shí)器。倒計(jì)時(shí)總是從Interval屬性的設(shè)計(jì)值開始。106可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.5.2Timer事件Timer事件是計(jì)時(shí)器唯一的事件。設(shè)置好Interval屬性后，每經(jīng)過(guò)由Interval屬性指定的時(shí)間間隔，就產(chǎn)生一個(gè)Timer事件。通過(guò)編寫Timer事件的代碼，通知VB每次時(shí)間到該做些什么。

Timer事件的典型的系統(tǒng)事件，由系統(tǒng)內(nèi)部自發(fā)產(chǎn)生。107可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.5.3時(shí)鐘程序的拓展應(yīng)用

對(duì)本章開始的倒計(jì)時(shí)程序進(jìn)行修改。達(dá)到的效果如圖所示：?jiǎn)?dòng)界面108可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.5.3時(shí)鐘程序的拓展應(yīng)用

對(duì)本章開始的倒計(jì)時(shí)程序進(jìn)行修改。達(dá)到的效果如圖所示：?jiǎn)?dòng)界面109可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)2.5.3時(shí)鐘程序的拓展應(yīng)用

對(duì)本章開始的倒計(jì)時(shí)程序進(jìn)行修改。達(dá)到的效果如圖所示：?jiǎn)?dòng)界面110可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)代碼設(shè)計(jì)：DimmAsLong’聲明m為長(zhǎng)整型變量PrivateSubCommand1_Click()’單擊“開始”按鈕的事件過(guò)程

Timer1.Enabled=True’開啟計(jì)時(shí)器

Timer1.Interval=1000’設(shè)置時(shí)間間隔為1秒

m=Val(Text1.Text)*60’將輸入的分鐘數(shù)轉(zhuǎn)換為秒數(shù)

Label1.Caption=“現(xiàn)在開始倒計(jì)時(shí)”’設(shè)置Label1的標(biāo)題

Command1.Visible=FalseEndSub111可視化編程初步時(shí)鐘程序設(shè)計(jì)任務(wù)代碼設(shè)計(jì)：PrivateSubTimer1_Timer()m=m–1’每執(zhí)行一次Timer事件總秒數(shù)減1Ifm<0ThenTimer1.Enabled=False’計(jì)時(shí)器無(wú)效，中斷后臺(tái)任務(wù)

MsgBox“時(shí)間到！”,0,“倒計(jì)時(shí)”’消息框輸出信息和標(biāo)題

Label1.Caption=“請(qǐng)輸入倒計(jì)時(shí)的分鐘數(shù)”’Label1標(biāo)題

Text1.Text=“”’清除文本框內(nèi)容

Command1.Visible=True’重新出現(xiàn)“開始”按鈕

ExitSub’跳出