《Visual Basic程序設(shè)計(jì)案例教程》課件第2章

第2章VisualBasic基本控件

2.1窗體2.2命令按鈕2.3標(biāo)簽2.4文本框習(xí)題2.1窗體案例1在窗體上顯示黑底白字“HOWAREYOU?”

1．學(xué)習(xí)目標(biāo)利用屬性窗口和程序代碼設(shè)置窗體(Form)的屬性，將窗體標(biāo)題由“Form1”修改為“牛刀小試”，且窗體顯示黑底白字“HOWAREYOU?”。通過本案例的學(xué)習(xí)，掌握窗體的Caption、BackColor、ForeColor等屬性的用法和Click事件的用法。

2．相關(guān)知識(shí)窗體(Form)是構(gòu)造用戶界面的基本模塊，是開發(fā)人員的“工作臺(tái)”。窗體設(shè)計(jì)好以后，運(yùn)行時(shí)每個(gè)窗體就是一個(gè)窗口。構(gòu)建一個(gè)友好的窗體是創(chuàng)建應(yīng)用程序的第一步。

1)窗體的結(jié)構(gòu)窗體的結(jié)構(gòu)與Windows窗口的類似。圖2.1所示是一個(gè)設(shè)計(jì)中的窗體，窗體的左上角為標(biāo)題欄，即窗體的標(biāo)題(缺省值為Form1)；窗體的右上角為控制欄，包括最小化、最大化和關(guān)閉按鈕，可通過ControlBox、MinButton和MaxButton屬性加以設(shè)置；窗體的中部是客戶區(qū)，開發(fā)人員可在客戶區(qū)添加其他控件以構(gòu)建出友好的用戶界面。圖2.1窗體結(jié)構(gòu)

2)窗體的常用屬性屬性決定控件(對(duì)象)的外觀，一般有兩種設(shè)置屬性的方法：一是直接通過屬性窗口選擇不同的屬性值進(jìn)行設(shè)置；二是在事件過程中通過程序代碼設(shè)置。通過選擇不同的屬性值可以制作風(fēng)格各異的窗體，F(xiàn)orm控件的常用屬性見表2.1。表2.1Form控件的常用屬性

3)窗體的常用事件和方法窗體最常用的事件有Load(裝入)、Unload(移出)、Click(單擊)和DblClick(雙擊)。

(1)?Load事件。Load事件是指將控件(對(duì)象)自動(dòng)裝入工作區(qū)，并自動(dòng)執(zhí)行Load事件過程，對(duì)控件屬性、變量進(jìn)行初始化。窗體的Load事件在運(yùn)行時(shí)將窗體裝入工作區(qū)，并自動(dòng)執(zhí)行SubForm_Load()過程。

(2)Unload事件。運(yùn)行程序后，單擊窗體的(關(guān)閉)按鈕，則觸發(fā)Unload事件，并執(zhí)行SubForm_Unload()事件過程中的程序代碼。在Unload事件過程中，我們往往會(huì)編寫保護(hù)程序，用以提醒用戶在退出該應(yīng)用程序前保存數(shù)據(jù)，以避免數(shù)據(jù)的丟失。

(3)Click事件。程序運(yùn)行后，當(dāng)單擊窗口內(nèi)的某個(gè)位置時(shí)，VisualBasic將調(diào)用窗體單擊事件過程SubForm_Click()。如果單擊窗體內(nèi)的控件，則只能夠調(diào)用相應(yīng)控件的Click過程。

(4)?DblClick事件。程序運(yùn)行后，當(dāng)雙擊窗口內(nèi)的某個(gè)位置時(shí)，VisualBasic將調(diào)用窗體雙擊事件過程。窗體最常用的方法有Print、Cls、Show、Hide和Move等。

3．程序?qū)崿F(xiàn)程序?qū)崿F(xiàn)的具體步驟如下：

(1)進(jìn)入VB6.0設(shè)計(jì)環(huán)境，在屬性窗口中找到Caption(標(biāo)題)。在Caption屬性值上單擊鼠標(biāo)左鍵，將原缺省值Form1刪除，再鍵入新的內(nèi)容，如圖2.2所示。圖2.2設(shè)置Form1的Caption屬性

(2)移動(dòng)鼠標(biāo)在BackColor屬性值欄上單擊鼠標(biāo)左鍵，然后再單擊下拉箭頭，調(diào)出“調(diào)色板”，選中黑色，如圖2.3所示。圖2.3設(shè)置Form1的BackColor屬性

(3)移動(dòng)鼠標(biāo)在ForeColor屬性值欄上單擊鼠標(biāo)左鍵，然后再單擊下拉箭頭，調(diào)出“調(diào)色板”，選中白色。

(4)在“牛刀小試”窗體上雙擊鼠標(biāo)左鍵，調(diào)出“代碼”窗口，再單擊“過程”欄的下拉箭頭，選擇“Click”事件，在代碼區(qū)輸入Print"HOWAREYOU?"，如圖2.4所示。圖2.4在“代碼”窗口輸入程序

(5)單擊工具欄中的圖標(biāo)則進(jìn)入運(yùn)行階段。單擊窗體，在窗體上即顯示“HOWAREYOU?”，運(yùn)行結(jié)果如圖2.5所示。

4．思考

(1)修改Form1的屬性，將Caption設(shè)置為“窗體”、BackColor設(shè)置為“藍(lán)色”、ForeColor設(shè)置為“紅色”。

(2)怎樣修改程序，使得單擊窗體后窗體上顯示“書山有路勤為徑”？圖2.5運(yùn)行結(jié)果案例2編寫一個(gè)隨手畫程序

1．學(xué)習(xí)目標(biāo)用鼠標(biāo)在窗體上任意畫，可以畫出隨意的曲線。通過本案例的學(xué)習(xí)，掌握窗體的MouseMove事件的用法。

2．程序?qū)崿F(xiàn)程序?qū)崿F(xiàn)的具體步驟如下：

(1)選擇“文件”菜單的“新建工程”菜單項(xiàng)，建立窗體Form1。

(2)設(shè)置屬性。設(shè)置背景顏色為紅色，前景顏色為白色。

(3)編寫代碼。在“事件列表”中搜索MouseMove事件，再為MouseMove事件編寫過程。

PrivateSubForm_MouseMove(ButtonasInteger,ShiftasInteger,xassingle,yassingle)

Line-(x,y)'在上一點(diǎn)與鼠標(biāo)移動(dòng)到的(x,y)點(diǎn)之間畫一條直線

EndSub完成設(shè)計(jì)后，就可進(jìn)入運(yùn)行階段。用鼠標(biāo)在窗體上任意畫，即可出現(xiàn)類似圖2.6所示的畫面。圖2.6運(yùn)行結(jié)果2.2命令按鈕案例3設(shè)置CommandButton控件的屬性

1．學(xué)習(xí)目標(biāo)利用屬性窗口和程序代碼設(shè)置命令按鈕(CommandButton)

控件的屬性。通過本案例的學(xué)習(xí)，掌握命令按鈕的Caption、Picture、Style、Font、BackColor、Width、Height等屬性的用法和Click事件的用法。

2．相關(guān)知識(shí)在設(shè)計(jì)應(yīng)用程序界面時(shí)，工具箱中的命令按鈕(CommandButton)主要是用來制作矩形按鈕的，通常在該控件上單擊鼠標(biāo)左鍵可執(zhí)行指定操作。

1)命令按鈕的常用屬性前面介紹的大多數(shù)屬性都適用于命令按鈕，如Caption、Name、BackColor、ForeColor、Picture、Height、Width等。CommandButton控件的其他常用屬性見表2.2。

2)命令按鈕的常用事件和方法命令按鈕的常用事件有Click、GotFocus和LostFocus。命令按鈕的常用方法為SetFocus。表2.2CommandButton控件的常用屬性

3．程序?qū)崿F(xiàn)程序?qū)崿F(xiàn)的具體步驟如下：

(1)在工具箱中的上單擊鼠標(biāo)左鍵，再移動(dòng)鼠標(biāo)到窗體的適當(dāng)位置，按住鼠標(biāo)左鍵拖曳，分別調(diào)出Command1和Command2。在Command2的Caption屬性值上單擊鼠標(biāo)左鍵，將原缺省值刪除，再鍵入“運(yùn)行代碼”。將Command1的Style(圖形外觀)屬性值設(shè)為1，再選中Picture屬性，調(diào)出“加載圖片”對(duì)話框，如圖2.7所示。圖2.7設(shè)置屬性

(2)在出現(xiàn)的“加載圖片”對(duì)話框中，從“查找范圍”內(nèi)選擇存放圖片的文件夾，選擇合適的圖片，再單擊“打開”按鈕，如圖2.8所示。圖2.8“加載圖片”對(duì)話框

(3)移動(dòng)鼠標(biāo)到Command2控件上雙擊鼠標(biāo)左鍵，在Command2_Click()事件代碼窗口中輸入設(shè)定Command1控件屬性的代碼。

PrivateSubCommand2_Click()

Command1.Caption="圖形按鈕"'設(shè)置Command1控件上顯示的文字

Command1.Font="隸書"'設(shè)置文字的類型

Command1.BackColor=RGB(50,150,0)'設(shè)置Command1控件上的顏色

Command1.Width=800

'設(shè)置Command1控件的寬度

Command1.Height=800

'設(shè)置Command1控件的高度EndSub

(4)點(diǎn)選工具欄中的運(yùn)行圖標(biāo)，單擊“運(yùn)行代碼”按鈕，即執(zhí)行以上代碼，運(yùn)行結(jié)果如圖2.9所示。圖2.9運(yùn)行結(jié)果2.3標(biāo)簽案例4利用Label控件制作宣傳畫

1．學(xué)習(xí)目標(biāo)利用Label控件制作一個(gè)“仲夏之夜演奏會(huì)”的宣傳畫。通過本案例的學(xué)習(xí)，掌握標(biāo)簽(Label)的Caption、BackColor、ForeColor、Font、Picture、BackStyle等屬性的用法。

2．相關(guān)知識(shí)

Label控件是VB6.0內(nèi)建的文字標(biāo)簽，用于設(shè)計(jì)在用戶界面上不能被使用者修改的只讀的文字內(nèi)容。

1)標(biāo)簽的常用屬性前面介紹的大多數(shù)屬性都適用于該標(biāo)簽，如Caption、Name、BackColor、ForeColor、Font、ToopTipText、Height、Width等。Label控件的其他常用屬性見表2.3。

2)標(biāo)簽的常用事件標(biāo)簽的常用事件為Click和DblClick。表2.3Label控件的常用屬性

3．程序?qū)崿F(xiàn)程序?qū)崿F(xiàn)的具體步驟如下：

(1)在工具箱中的上單擊鼠標(biāo)左鍵，再將鼠標(biāo)移動(dòng)到窗體的適當(dāng)位置，并按住鼠標(biāo)左鍵拖曳，調(diào)出Label1。在屬性窗口修改窗體Form1的Picture屬性值，并加載合適的圖片。修改Label1的Caption屬性值，鍵入“仲夏之夜演奏會(huì)”。然后選中Label1的Font屬性，調(diào)出“字體”對(duì)話框，選擇字體為“華文中宋”，字型為“粗體”，大小為“小四”，并加下劃線。再設(shè)置Label1的BackColor為黃色、ForeColor為紅色，如圖2.10所示。圖2.10設(shè)置控件屬性

(2)在窗體Form1上雙擊鼠標(biāo)左鍵，調(diào)出代碼窗口，在Form_Click()事件代碼窗口中輸入修改Label1控件屬性的代碼，如圖2.11所示。圖2.11輸入代碼

(3)點(diǎn)選工具欄中的運(yùn)行圖標(biāo)，在窗體的任一位置單擊鼠標(biāo)左鍵，其結(jié)果如圖2.12所示。

4．思考如何設(shè)置標(biāo)簽上的文字為“計(jì)算機(jī)系文藝晚會(huì)”？圖2.12運(yùn)行結(jié)果2.4文本框案例5利用TextBox控件制作一個(gè)密碼框

1．學(xué)習(xí)目標(biāo)利用文本框(TextBox)控件制作一個(gè)密碼框。通過本案例的學(xué)習(xí)，掌握文本框的Text、MaxLength、PasswordChar等屬性的用法和Change、KeyPress事件的用法。

2．相關(guān)知識(shí)文本框控件同樣可以制作出顯示文字的標(biāo)簽效果，不過與Label控件不同的是，Label控件僅能以只讀方式顯示文字，而TextBox控件既可以顯示文本，又可以由使用者改變其內(nèi)容，所以文本框常作為用戶與程序之間的交流界面。此外，文本框還具備編輯器的一些基本功能，如能進(jìn)行插入、刪除、反白、剪切、復(fù)制、粘貼等操作，因此文本框也被稱為“小型編輯器”。

1)文本框的常用屬性前面介紹的許多屬性也同樣適用于文本框，這些屬性包括Name、BackColor、ForeColor、Height、Width、Enabled、Visible、Alignment、Font等。此外，文本框還具有以下一些常用屬性，見表2.4。注意：TextBox控件無Caption屬性。表2.4TextBox控件的常用屬性

2)文本框的常用事件文本框與窗體類似，也可觸發(fā)Click和DblClick事件，除此之外，文本框還支持Change、LostFocus、KeyPress等事件。①??Change事件：當(dāng)用戶向文本框中輸入新信息，或把Text設(shè)置為新值，從而改變文本框Text屬性時(shí)，將觸發(fā)該事件，執(zhí)行該事件過程。②?LostFocus事件：當(dāng)按下Tab鍵使光標(biāo)離開當(dāng)前文本框或用鼠標(biāo)選擇其他對(duì)象時(shí)，觸發(fā)該事件。③?KeyPress事件：該事件與鍵盤輸入有關(guān)，適用于窗體和大部分控件，當(dāng)在鍵盤上按下某鍵時(shí)觸發(fā)該事件。

3．程序?qū)崿F(xiàn)程序?qū)崿F(xiàn)的具體步驟如下：

(1)在工具箱中的上單擊鼠標(biāo)左鍵，再移動(dòng)鼠標(biāo)到窗體的適當(dāng)位置，并按住鼠標(biāo)左鍵拖曳，調(diào)出TextBox控件。然后調(diào)入兩命令按鈕于適當(dāng)位置，并在屬性窗口修改窗體Form1的Caption屬性值，鍵入“請(qǐng)輸入密碼”，再修改兩命令按鈕的Caption屬性值，鍵入“輸入”及“退出”，如圖2.13所示。圖2.13設(shè)置控件屬性

(2)對(duì)TextBox控件的Text1屬性通過其屬性窗口進(jìn)行設(shè)置，其具體的屬性設(shè)置如表2.5所示。表2.5Text1控件屬性設(shè)置

(3)加入一個(gè)標(biāo)簽控件Label1，設(shè)置它的Caption屬性值為“歡迎進(jìn)入本系統(tǒng)”，然后選中Label1的Font屬性，調(diào)出“字體”對(duì)話框，選擇字體為“新宋體”，字型為“粗體”，大小為“小四”，再設(shè)置Label1的ForeColor為紅色，BackStyle為0(透明)，最后設(shè)置它的Visible屬性值為False，即如果密碼不正確時(shí)，不可見該控件，如圖2.14所示。圖2.14設(shè)置Label1控件屬性

(4)移動(dòng)鼠標(biāo)到Command1(輸入)控件上，單擊鼠標(biāo)左鍵，在Command1_Click()事件代碼窗口中輸入如下代碼。

PrivateSubCommand1_Click()

IfText1.Text="2591"Then '采用If語句對(duì)輸入密碼正確與否進(jìn)行核對(duì)

Form1.Caption="歡迎進(jìn)入本系統(tǒng)" '如正確，則修改窗體的標(biāo)題

Form1.BackColor=vbYellow '窗體的背景顏色設(shè)為黃色

Label1.Visible=True

'設(shè)"歡迎進(jìn)入本系統(tǒng)"的紅色標(biāo)簽為可見狀態(tài)

Command1.Visible=False '設(shè)Command1和Command2為不可見

Command2.Visible=FalseText1.Visible=False '設(shè)Text1為不可見

Else

Form1.Caption="密碼錯(cuò)，請(qǐng)重新輸入" '如密碼錯(cuò)，窗體標(biāo)題設(shè)為"密碼錯(cuò)，請(qǐng)重新輸入"

EndIf

EndSub

(5)點(diǎn)選工具欄中的運(yùn)行圖標(biāo)，在文本框內(nèi)輸入正確密碼“2591”，再單擊“輸入”命令按鈕，結(jié)果如圖2.15所示。若輸入密碼錯(cuò)誤，則結(jié)果如圖2.16所示。圖2.15運(yùn)行結(jié)果(一)圖2.16運(yùn)行結(jié)果(二)

4．思考

(1)如果要將密碼修改為“goodmorning”，應(yīng)該怎樣修改程序？

(2)增加Text1_Change()事件過程，實(shí)現(xiàn)下面的功能：如果第一次輸入了錯(cuò)誤的密碼，則第二次重新輸入密碼時(shí)，清除窗體Form1上顯示的“密碼錯(cuò)，請(qǐng)重新輸入”。

(3)增加Text1_KeyPress()事件過程，實(shí)現(xiàn)下面的功能：如果在文本框中按回車鍵，則判斷密碼是否正確(回車鍵的KeyAscii為13)。案例6設(shè)計(jì)一個(gè)簡單的加減計(jì)算器

1．學(xué)習(xí)目標(biāo)設(shè)計(jì)一個(gè)簡單的加減計(jì)算器，先從鍵盤上輸入兩個(gè)數(shù)，然后選擇所需的運(yùn)算符(“+”或“–”)，其結(jié)果顯示在一個(gè)文本框中。通過本案例的學(xué)習(xí)，掌握文本框和標(biāo)簽控件的綜合運(yùn)用，并學(xué)會(huì)利用Val()函數(shù)、Str()函數(shù)在字符串和數(shù)值之間進(jìn)行相互轉(zhuǎn)換。

2．程序?qū)崿F(xiàn)實(shí)現(xiàn)程序的具體步驟如下：

(1)界面設(shè)計(jì)與屬性設(shè)置。根據(jù)程序要求，“計(jì)算器”的用戶界面需要7個(gè)用于顯示提示文字的標(biāo)簽，3個(gè)用于輸入數(shù)據(jù)和顯示結(jié)果的文本框，其控件屬性設(shè)置如表2.6所示。表2.6“計(jì)算器”控件屬性設(shè)置

(2)編寫代碼。該程序流程要求先由用戶輸入兩個(gè)數(shù)到文本框，當(dāng)用戶選擇“+”或“–”運(yùn)算符后，其運(yùn)算結(jié)果出現(xiàn)在Text3中。因此，將數(shù)1與數(shù)2進(jìn)行相加或相減的運(yùn)算過程必須在用戶點(diǎn)擊“+”或“–”標(biāo)簽后進(jìn)行，所對(duì)應(yīng)的事件過程如下：

PrivateSublblAdd_Click()

Dims1AsSingle,s2AsSingle,addAsSingle

s1=Val(Text1.Text)'將用戶輸入的文本通過Val()函數(shù)轉(zhuǎn)換成能進(jìn)行計(jì)算的數(shù)值

s2=Val(Text2.Text)

add=s1+s2

txtResult.Text=Str(add)'將計(jì)算的結(jié)果通過Str()函數(shù)轉(zhuǎn)換成文本進(jìn)行顯示

EndSub

PrivateSublblRemove_Click()

Dims1AsSingle,s2AsSingle,sAsSingle

s1=Val(Text1.Text)