第2章VisualBasic基本控件

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

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

2．相關知識窗體(Form)是構造用戶界面的基本模塊，是開發人員的“工作臺”。窗體設計好以后，運行時每個窗體就是一個窗口。構建一個友好的窗體是創建應用程序的第一步。

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

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

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

(1)?Load事件。Load事件是指將控件(對象)自動裝入工作區，并自動執行Load事件過程，對控件屬性、變量進行初始化。窗體的Load事件在運行時將窗體裝入工作區，并自動執行SubForm_Load()過程。

(2)Unload事件。運行程序后，單擊窗體的(關閉)按鈕，則觸發Unload事件，并執行SubForm_Unload()事件過程中的程序代碼。在Unload事件過程中，我們往往會編寫保護程序，用以提醒用戶在退出該應用程序前保存數據，以避免數據的丟失。

(3)Click事件。程序運行后，當單擊窗口內的某個位置時，VisualBasic將調用窗體單擊事件過程SubForm_Click()。如果單擊窗體內的控件，則只能夠調用相應控件的Click過程。

(4)?DblClick事件。程序運行后，當雙擊窗口內的某個位置時，VisualBasic將調用窗體雙擊事件過程。窗體最常用的方法有Print、Cls、Show、Hide和Move等。

3．程序實現程序實現的具體步驟如下：

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

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

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

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

(5)單擊工具欄中的圖標則進入運行階段。單擊窗體，在窗體上即顯示“HOWAREYOU?”，運行結果如圖2.5所示。

4．思考

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

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

1．學習目標用鼠標在窗體上任意畫，可以畫出隨意的曲線。通過本案例的學習，掌握窗體的MouseMove事件的用法。

2．程序實現程序實現的具體步驟如下：

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

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

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

PrivateSubForm_MouseMove(ButtonasInteger,ShiftasInteger,xassingle,yassingle)

Line-(x,y)'在上一點與鼠標移動到的(x,y)點之間畫一條直線

EndSub完成設計后，就可進入運行階段。用鼠標在窗體上任意畫，即可出現類似圖2.6所示的畫面。圖2.6運行結果2.2命令按鈕案例3設置CommandButton控件的屬性

1．學習目標利用屬性窗口和程序代碼設置命令按鈕(CommandButton)

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

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

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

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

3．程序實現程序實現的具體步驟如下：

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

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

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

PrivateSubCommand2_Click()

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

Command1.Font="隸書"'設置文字的類型

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

Command1.Width=800

'設置Command1控件的寬度

Command1.Height=800

'設置Command1控件的高度EndSub

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

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

2．相關知識

Label控件是VB6.0內建的文字標簽，用于設計在用戶界面上不能被使用者修改的只讀的文字內容。

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

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

3．程序實現程序實現的具體步驟如下：

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

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

(3)點選工具欄中的運行圖標，在窗體的任一位置單擊鼠標左鍵，其結果如圖2.12所示。

4．思考如何設置標簽上的文字為“計算機系文藝晚會”？圖2.12運行結果2.4文本框案例5利用TextBox控件制作一個密碼框

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

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

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

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

3．程序實現程序實現的具體步驟如下：

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

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

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

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

PrivateSubCommand1_Click()

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

Form1.Caption="歡迎進入本系統" '如正確，則修改窗體的標題

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

Label1.Visible=True

'設"歡迎進入本系統"的紅色標簽為可見狀態

Command1.Visible=False '設Command1和Command2為不可見

Command2.Visible=FalseText1.Visible=False '設Text1為不可見

Else

Form1.Caption="密碼錯，請重新輸入" '如密碼錯，窗體標題設為"密碼錯，請重新輸入"

EndIf

EndSub

(5)點選工具欄中的運行圖標，在文本框內輸入正確密碼“2591”，再單擊“輸入”命令按鈕，結果如圖2.15所示。若輸入密碼錯誤，則結果如圖2.16所示。圖2.15運行結果(一)圖2.16運行結果(二)

4．思考

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

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

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

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

2．程序實現實現程序的具體步驟如下：

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

(2)編寫代碼。該程序流程要求先由用戶輸入兩個數到文本框，當用戶選擇“+”或“–”運算符后，其運算結果出現在Text3中。因此，將數1與數2進行相加或相減的運算過程必須在用戶點擊“+”或“–”標簽后進行，所對應的事件過程如下：

PrivateSublblAdd_Click()

Dims1AsSingle,s2AsSingle,addAsSingle

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

s2=Val(Text2.Text)

add=s1+s2

txtResult.Text=Str(add)'將計算的結果通過Str()函數轉換成文本進行顯示

EndSub

PrivateSublblRemove_Click()

Dims1AsSingle,s2AsSingle,sAsSingle

s1=Val(Text1.Text)