實例四：窗體與基本的控件
知識點：
1、窗體與控件的使用；
2、什么是“設(shè)計時”、什么是“運行時”；
3、了解什么是對像、屬性、方法和事件。
扎實的基礎(chǔ)知識是我們順利掌握VBA編程語言的先決條件。說到基礎(chǔ)知識，我想告訴朋友們——我們必須建立起“面向?qū)ο瘛钡木幊趟枷搿！懊嫦驅(qū)ο瘛边M行編程的思想實在是太重要了！我們所接觸的所有事物都是對像，都有屬性，也都有屬性值。如果您不相信？那么請看——
您怎樣來描述自己家里的電視機呢？它的身高？體重？住址？年齡？顏色？頻道個數(shù)？聲道個數(shù)？音量大??？屏幕大?。糠直媛?？刷新率？……對，這些都是電視機的“屬性”，在這里，“電視機”就是一個“對像”。
以下，假設(shè)我們生活在“VBA編程語言”當中，生活中的事物就是VBA的對像——那么，我們怎樣來找出一個“對像”的屬性，或是怎能樣來對“對像”的屬性進行賦值呢？看下面的程序：
‘========程序名“您想看幾頻道”========
Sub 您想看幾頻道 （）
Dim X
X = InputBox（“請輸入您想看的頻道的值：”）
電視機 ．頻道 = X
End Sub
運行這代碼，輸入您想看的頻道的值，比如“10”或是“36”，那么，您就會看到10頻道或是36頻道的節(jié)目。這里，“電視機”是對像，“頻道”是它的屬性，“10或36”是它的屬性值。在“對像”引用自己的某個“屬性”時，我們在它們之間用一個小圓點（英文的句號）來表示，具體的格式如代碼“電視機．頻道 = X”中所示；設(shè)置值的時候，用等號來賦予它。
說到賦值，您是不是想執(zhí)行“電視機．屏幕尺寸 = 100吋”命令呢？呵呵，有些事物的屬性值是“只讀”的，不能修改，比如電視機的重量等。
現(xiàn)在，我正在看一個節(jié)目，但我不知道這個節(jié)目所在的是幾頻道，怎么辦呢？請看程序——
‘========程序名“當前頻道是多少”========
Sub 頻道是多少（）
Dim 頻道的值
頻道的值 = 電視機 ．當前頻道
MsgBox （ “頻道的值” ）
End Sub
程序不難懂吧？
前一個程序“您想看幾頻道”中，我們是將“值”賦予對像的屬性，后一個“頻道是多少”程序中，我們是取得對像屬性的“值”。這兩種類型的程序在使用時剛好相反，但，它們在VBA編程語言中的運用幾乎可以說是無處不在！！請一定要認真體會這兩個程序中關(guān)于“對像”、“屬性”與“值”之間的關(guān)系?。?br> 那么，什么又是事件和方法呢？對于電視機來說，當它的電源接通時就發(fā)生了“電源接通事件”，反之，它的電源斷掉時就發(fā)生了“電源斷掉事件”。方法，則是指人對電視機進行的操作，比如，現(xiàn)在顯示的是10頻道，我在電視機的頻道調(diào)節(jié)按鈕上，向前按了5次，則進入了15頻道。電視機支持使用“頻道按鈕”進行“頻道調(diào)節(jié)”的動作，就可以說成是它支持“用按鈕調(diào)整頻道”的“方法”，“5”就是這個方法的參數(shù)（只要是您家里電視機所支持的值，當然都可以作為它的參數(shù)。）。
那位朋友說了“喂，大哥，我們可是在學(xué)習(xí)Office的VBA編程語言??！怎么扯到電視機上去了？！”好吧，我們來談Office。Office是一個對像，Word是一個對像，窗口是一個對像，文檔是一個對像，段落、標題、一行文字、一個字符、一個標點、一個表格、一個單元格……無一不是對像！它們都有顏色、大小、寬窄、數(shù)量、位置……等等屬性。我們利用VBA語言進行編程，不外乎就是為了控制某個對像的某個屬性值以方便我們的工作罷了！
對于對像、屬性、方法、事件，我們先了解這么多，在實例六我們將繼續(xù)對其進行學(xué)習(xí)。今天，我們先試試這些知識在窗體與控件上的運用吧！
一、界面制作——
1、打開VBE，指向“插入”菜單，點擊“插入用戶窗體”命令（也可以在工具欄中做同樣的動作。），窗體的名稱默認為“UserForm1”，如圖4—1。
2、點擊控件工具箱按鈕，打開控件工具箱，選中工具箱中的“按鈕”控件，在窗體上“畫”出一個按鈕控件（“按鈕控件”就是控件工具箱中的那個方形的小塊。），按鈕的名稱默認為“CommandButton1”。
二、屬性賦值方法之一：
注意，下面進入今天的關(guān)鍵知識點：
1、首先，雙擊做好的窗體或按鈕，就會打開代碼窗口。保證光標在窗體或按鈕代碼的正中間，按下F5鍵運行它，或在“運行”菜單中選擇“運行用戶窗體或子過程”命令運行它，看看效果。如圖4-2左面。
這里需要注意兩點：A、如果光標不在代碼中間，而您的模塊中又還存在其它的代碼的話，運行時，VBE會讓您選擇要運行的宏名稱；B、如果工程被鎖定而不能運行的話，首先請在“工具——宏——安全性”對話框中把安全性設(shè)為“低”，然后刪除VBE中所有存在的代碼，并關(guān)閉Word，等一下再重新啟動，重新開始本步的操作。當然，如果您VBE中以前的代碼需要保存的話，最好把它剪切到其它文本中去，要用時再復(fù)制過來。最后，千萬記得在本實例完成之后，把“安全性”改回為高，以避免宏病毒。
2、右擊按鈕CommandButton1，選“屬性”，（如果“屬性”對話框本來就的打開的，則選中按鈕CommandButton1，然后直接修改屬性就行了。）在“屬性”對話框中選“Caption”，在右面的屬性值中輸入“開始運行”。保存后，再次運行，看看與第１步運行時相比，效果有什么不同？對，按鈕上面的提示文字已經(jīng)改變成“開始運行”了。對比效果如圖4-2。
以上這兩個步驟中，需要我們應(yīng)該掌握的知識就是“怎樣在屬性對話框中，對控件的屬性進行賦值”。下面，我們還要為控件的屬性賦值，但賦值的方法有所不同，請注意體會以下賦值方法與上面的區(qū)別。
三、屬性賦值方法之二——
請撤消前面添加“開始運行”屬性的操作，回到按鈕表面提示文字仍然是“CommandButton1”時的狀態(tài)，雙擊“CommandButton1”將打開“CommandButton1”的代碼窗口，代碼窗口已為我們生成了控件被單擊時的空過程。現(xiàn)在，我們就在這個“CommandButton1”的Click事件（即按鈕被單擊的事件）空過程中，添加如下的代碼：
’’’========用代碼修改屬性========
Private Sub CommandButton1_Click()
CommandButton1.Caption = "開始運行"
End Sub
本實例之初，我們學(xué)習(xí)了為對像的屬性賦值的格式，那么，您看到代碼“CommandButton1.Caption ="開始運行"”時，應(yīng)該不難理解吧？代碼中的CommandButton1是指窗體上的那個按鈕，如果有多個按鈕的話，就會分別被命名為CommandButton2、CommandButton3……等等。如果要解釋上面的程序，就應(yīng)該是：當按鈕被“Click”（單擊）時，按鈕的“Caption”（提示文字）就被改變?yōu)椤伴_始運行”。
運行本程序并單擊按鈕看看出現(xiàn)了什么效果？在按鈕被單擊前，運行的效果與第1步一樣（與圖4-2左面相同。）；當按鈕被單后，是不是與第2步運行時的情況一樣？（與圖4-2右面相同。）
第2步中，我們是“先設(shè)計好了”按鈕的提示文字再運行；第3步中，我們根本沒有“設(shè)計”按鈕的提示文字，而是已經(jīng)“在窗體運行的時候”利用了按鈕的單擊事件，改變了按鈕表面的提示文字。對于第2步中的做法，我們稱之為“設(shè)計時”修改控件，對于第三步中的做法，我們稱之為“運行時”修改控件。
“設(shè)計時”修改控件的屬性雖然更方便、更容量掌握，但它往往沒有“運行時”修改控件屬性那么靈活。下面我們再做一個例子，動態(tài)改變按鈕與窗體的屬性值。再體會體會“運行時”修改屬性值的靈活性。將前面的代碼修改如下：
‘==========利用單擊按鈕事件，動態(tài)改變按鈕名與窗體顏色===========
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "CommandButton1" Then
CommandButton1.Caption = "開始運行"
ElseIf CommandButton1.Caption = "開始運行" Then
CommandButton1.Caption = "點我干嘛，別煩我！"
ElseIf CommandButton1.Caption = "點我干嘛，別煩我！" Then
UserForm1.BackColor = RGB(255, 128, 128)
CommandButton1.Caption = "想讓我給你點顏色嗎？"
ElseIf CommandButton1.Caption = "想讓我給你點顏色嗎？" Then
UserForm1.BackColor = RGB(0, 128, 64)
CommandButton1.Caption = "你真的不怕我變臉嗎？"
ElseIf CommandButton1.Caption = "你真的不怕我變臉嗎？" Then
UserForm1.BackColor = RGB(128, 0, 255)
CommandButton1.Caption = "怕了你了，我逃！"
Else: CommandButton1.Caption = "怕了你了，我逃！"
Unload UserForm1’“Unload”是窗體的一個方法，其作用是卸載窗體。
End If
End Sub
本程序中用到了窗體的顏色屬性（BackColor）及其屬性值（RGB）的知識，我們在利用VBA對Word中的文字進行修飾時，經(jīng)常會用到顏色屬性及其值的設(shè)置，這里正好學(xué)習(xí)一下。代碼最后的“Unload”是窗體的一個方法，其作用是卸載窗體，與平時我們關(guān)閉窗體時按右上角最大、最小化按鈕那里的“X”按鈕等價。有卸載就有加載，加載并顯示窗體的命令是“Show”，該命令的使用格式是“窗體名.Show”。
本實例的知識擴展：
1、朋友們在“設(shè)計時”屬性設(shè)置中，下點功夫摸索摸索，盡快熟悉窗體、按鈕的各種屬性；
2、本例只用到了“控件工具箱”中的按鈕控件，其它的控件雖然在作用上各不相同，但在使用的方法上與按鈕控件沒有什么大的區(qū)別，朋友們就自己嘗試一下其它的控件吧；
3、請您制作一個窗體，上面加上兩個按鈕，一個按鈕運行實例三中的游戲，另一個按鈕退出游戲。
實例四到此結(jié)束，怎么樣，有收獲嗎？下一個實例“Word版的媒體播放器”，將是我們前面知識的一個集中練習(xí)，也將是一個會讓您很有“成就感”的練習(xí)。還等得及嗎？——
