【文章內容簡介】 “電源接通事件”，反之，它的電源斷掉時就發(fā)生了“電源斷掉事件”。方法，則是指人對電視機進行的操作，比如，現(xiàn)在顯示的是10頻道，我在電視機的頻道調節(jié)按鈕上，向前按了5次，則進入了15頻道。電視機支持使用“頻道按鈕”進行“頻道調節(jié)”的動作，就可以說成是它支持“用按鈕調整頻道”的“方法”，“5”就是這個方法的參數(shù)（只要是您家里電視機所支持的值，當然都可以作為它的參數(shù)。）。 那位朋友說了“喂，大哥，我們可是在學習Office的VBA編程語言??！怎么扯到電視機上去了？！”好吧，我們來談Office。Office是一個對像，Word是一個對像，窗口是一個對像，文檔是一個對像，段落、標題、一行文字、一個字符、一個標點、一個表格、一個單元格……無一不是對像！它們都有顏色、大小、寬窄、數(shù)量、位置……等等屬性。我們利用VBA語言進行編程，不外乎就是為了控制某個對像的某個屬性值以方便我們的工作罷了！ 對于對像、屬性、方法、事件，我們先了解這么多，在實例六我們將繼續(xù)對其進行學習。今天，我們先試試這些知識在窗體與控件上的運用吧！一、界面制作 打開VBE，指向“插入”菜單，點擊“插入用戶窗體”命令（也可以在工具欄中做同樣的動作。），窗體的名稱默認為“UserForm1”，如圖4—1。 點擊控件工具箱按鈕，打開控件工具箱，選中工具箱中的“按鈕”控件，在窗體上“畫”出一個按鈕控件（“按鈕控件”就是控件工具箱中的那個方形的小塊。），按鈕的名稱默認為“CommandButton1”。二、屬性賦值方法之一：注意，下面進入今天的關鍵知識點： 首先，雙擊做好的窗體或按鈕，就會打開代碼窗口。保證光標在窗體或按鈕代碼的正中間，按下F5鍵運行它，或在“運行”菜單中選擇“運行用戶窗體或子過程”命令運行它，看看效果。如圖42左面。這里需要注意兩點：A、如果光標不在代碼中間，而您的模塊中又還存在其它的代碼的話，運行時，VBE會讓您選擇要運行的宏名稱；B、如果工程被鎖定而不能運行的話，首先請在“工具——宏——安全性”對話框中把安全性設為“低”，然后刪除VBE中所有存在的代碼，并關閉Word，等一下再重新啟動，重新開始本步的操作。當然，如果您VBE中以前的代碼需要保存的話，最好把它剪切到其它文本中去，要用時再復制過來。最后，千萬記得在本實例完成之后，把“安全性”改回為高，以避免宏病毒。 右擊按鈕CommandButton1，選“屬性”，（如果“屬性”對話框本來就的打開的，則選中按鈕CommandButton1，然后直接修改屬性就行了。）在“屬性”對話框中選“Caption”，在右面的屬性值中輸入“開始運行”。保存后，再次運行，看看與第１步運行時相比，效果有什么不同？對，按鈕上面的提示文字已經(jīng)改變成“開始運行”了。對比效果如圖42。 以上這兩個步驟中，需要我們應該掌握的知識就是“怎樣在屬性對話框中，對控件的屬性進行賦值”。下面，我們還要為控件的屬性賦值，但賦值的方法有所不同，請注意體會以下賦值方法與上面的區(qū)別。三、屬性賦值方法之二請撤消前面添加“開始運行”屬性的操作，回到按鈕表面提示文字仍然是“CommandButton1”時的狀態(tài)，雙擊“CommandButton1”將打開“CommandButton1”的代碼窗口，代碼窗口已為我們生成了控件被單擊時的空過程?，F(xiàn)在，我們就在這個“CommandButton1”的Click事件（即按鈕被單擊的事件）空過程中，添加如下的代碼：’’’========用代碼修改屬性========Private Sub CommandButton1_Click() = 開始運行End Sub本實例之初，我們學習了為對像的屬性賦值的格式，那么，您看到代碼“ = 開始運行”時，應該不難理解吧？代碼中的CommandButton1是指窗體上的那個按鈕，如果有多個按鈕的話，就會分別被命名為CommandButtonCommandButton3……等等。如果要解釋上面的程序，就應該是：當按鈕被“Click”（單擊）時，按鈕的“Caption”（提示文字）就被改變?yōu)椤伴_始運行”。 運行本程序并單擊按鈕看看出現(xiàn)了什么效果？在按鈕被單擊前，運行的效果與第1步一樣（與圖42左面相同。）；當按鈕被單后，是不是與第2步運行時的情況一樣？（與圖42右面相同。） 第2步中，我們是“先設計好了”按鈕的提示文字再運行；第3步中，我們根本沒有“設計”按鈕的提示文字，而是已經(jīng)“在窗體運行的時候”利用了按鈕的單擊事件，改變了按鈕表面的提示文字。對于第2步中的做法，我們稱之為“設計時”修改控件，對于第三步中的做法，我們稱之為“運行時”修改控件。“設計時”修改控件的屬性雖然更方便、更容量掌握，但它往往沒有“運行時”修改控件屬性那么靈活。下面我們再做一個例子，動態(tài)改變按鈕與窗體的屬性值。再體會體會“運行時”修改屬性值的靈活性。將前面的代碼修改如下：‘==========利用單擊按鈕事件，動態(tài)改變按鈕名與窗體顏色===========Private Sub CommandButton1_Click()If = CommandButton1 Then = 開始運行ElseIf = 開始運行 Then = 點我干嘛，別煩我！ElseIf = 點我干嘛，別煩我！ Then = RGB(255, 128, 128) = 想讓我給你點顏色嗎？ElseIf = 想讓我給你點顏色嗎？ Then = RGB(0, 128, 64) = 你真的不怕我變臉嗎？ElseIf = 你真的不怕我變臉嗎？ Then = RGB(128, 0, 255) = 怕了你了，我逃！Else: = 怕了你了，我逃！Unload UserForm1’“Unload”是窗體的一個方法，其作用是卸載窗體。End IfEnd Sub 本程序中用到了窗體的顏色屬性（BackColor）及其屬性值（RGB）的知識，我們在利用VBA對Word中的文字進行修飾時，經(jīng)常會用到顏色屬性及其值的設置，這里正好學習一下。代碼最后的“Unload”是窗體的一個方法，其作用是卸載窗體，與平時我們關閉窗體時按右上角最大、最小化按鈕那里的“X”按鈕等價。有卸載就有加載，加載并顯示窗體的命令是“Show”，該命令的使用格式是“”。本實例的知識擴展： 朋友們在“設計時”屬性設置中，下點功夫摸索摸索，盡快熟悉窗體、按鈕的各種屬性； 本例只用到了“控件工具箱”中的按鈕控件，其它的控件雖然在作用上各不相同，但在使用的方法上與按鈕控件沒有什么大的區(qū)別，朋友們就自己嘗試一下其它的控件吧； 請您制作一個窗體，上面加上兩個按鈕，一個按鈕運行實例三中的游戲，另一個按鈕退出游戲。實例四到此結束，怎么樣，有收獲嗎？下一個實例“Word版的媒體播放器”，將是我們前面知識的一個集中練習，也將是一個會讓您很有“成就感”的練習。還等得及嗎？——從零開始，步入Word宏編程的世界（第五講）實例五：Word版的“媒體播放器”知識點：進一步熟悉VBE的操作界面； 學習使用窗體與控件進行編程； 學習運用附加的控件進行編程。 通過以上四個實例的學習，今天，我們終于迎來了激動人心的時刻——編寫一個“Word版的媒體播放器”！“媒體播放器”大家不會陌生吧？對，就是開始——程序——附件——娛樂中的“Media player播放器”！相信本實例會給您帶來成就感！也算是對我們前四個實例辛苦學習的一點點回報吧！當然，在高興之余，千萬不要忘了對本實例中知識點的學習。其實，本實例中，理論知識上的難度幾乎沒有，但操作上的步驟卻相當多，朋友們耐心一點。步驟一：界面的制作 回憶實例四中的操作方法，在VBE中添加一個窗體，窗體上添加兩個按鈕。將窗體的“Caption”屬性改為“Word版媒體播放器”，再分別將兩個按鈕的“Caption”屬性改為“開始運行”與“結束程序”。 右擊控件工具箱，選“附加控件”，將“附加控件”面板的滾動條拖動到最底端，然后選中“Windows Media player”控件?！按_定”后，退出“附加控件”面板（圖51）。這時控件工具箱最下面就多出了一個網(wǎng)格狀的“Windows Media player”控件。 選中“Windows Media player”控件，在窗體上按您的需要和喜好“畫”出它將要顯示的范圍。 現(xiàn)在，我們就可以利用“屬性對話框”開始對整個窗體及窗體上所有的控件進行“美化”。“美化”的內容就按您自己的喜好看著辦好了，反正是“設計時”修改控件，不會影響最終程序的運行。我修改了窗體和按鈕的顏色，并修改了按鈕上的字體以及字號和字色。最終的效果如圖52。準備工作已就緒，開始編寫代碼了吧！步驟二：編寫代碼雙擊“開始運行”按鈕，在VBE自動生成的空過程中輸入如下代碼：Private Sub CommandButton1_Click() = D:\MyMpg\ End Sub(注意: office2003及以上版本，上句代碼應該是：=D:\MyMpg\ ，這是因為在這些版本上，MediaPlayer控件的屬性與方法已略有些變化了。)代碼解說： 關于“過程”，就不消多說了吧？“MediaPlayer1”就是我們在“設計時”所添加的“MediaPlayer控件”。它尾巴上的“1”，指它是在本窗體上的第一個“MediaPlayer控件”?！癋ileName”是“MediaPlayer1”的一個屬性，這個屬性的值就是將要播放的媒體文件的名稱（還記得為屬性賦值的格式嗎？這整句代碼可是一個標準的賦值語句。）。等號后面大家就很清楚了——是要播放的文件的路徑與文件名。當然，您的電腦上恐怕不會有“D:\MyMpg\”文件的，您可要根據(jù)自己電腦上的實際情況輸入這部分的內容。 雙擊“結束程序”按鈕，在打開空過程中輸入——Private Sub CommandButton2_Click()Unload UserForm1End Sub代碼解說： 這段代碼如果還需要解說的話，就請再看看實例四的后半部分內容。 完成前兩步代碼輸入后，可以將光標定位于“開始運行”按鈕的代碼區(qū)正中間，然后按下F5鍵??！看到了什么？？怎么樣，有成就感吧？？還沒完呢！趕快“結束程序”編完最后的代碼吧！ 回到Word，指向工具——宏，打開“宏名”對話框（不要告訴我，你找不到這個對話框），在“宏名”中輸入“我的播放器”（沒有引號），點擊“創(chuàng)建”按鈕，在VBE所生成空過程中輸入——Sub 我的播放器()End Sub本段代碼與上段代碼一樣，也無需解說了吧？ 回到Word，打開工具——自定義，拖動“命令”選項卡的滾動條到最底部，選中“類別”窗格中的“宏”，再找到右邊“命令”窗格中的“我的播放器”宏，左鍵按住它，不要讓它跑掉（？），拖動它到“任意”的“菜單欄”或“工具欄”上，好，松左鍵，它跑不掉了（圖53）。保證它是被選中的，再回到“命令”選項卡上，點擊正中間的“更改所選內容”，把它的名字“美化”一下，或者再給它添一個圖標，怎么樣，帥吧？！酷吧？！(圖54) 從此之后，王子和公主就在您的Word中……哦？錯了，應該是——從此以后，您的Word中，就多了一個可以播放Mpg、Mp3……等等媒體的小妞……啊，又錯了，是“小鈕”。當然，要播放的內容還得您自己為它指定（寫進代碼中去）。本實例的知識擴展： 修改代碼來確定媒體文件的路徑及文件名不麻煩嗎？難道您不愿意使用“輸入框”？ 有沒有辦法指定一個文件夾后，播放器就自動將這個文件夾下的媒體文件一個一個地播放出來呢？或者，將要播放的文件名寫在一個文本文件中，讓播放器一個一個地讀出它的名字來播放呢？ 如果要求您不用“設計時”修改控件屬性，而讓您用“運行時”修改控件屬性的方法，來制作步驟一中的界面，您不愿意試一試嗎？ 都有哪些附加控件？各附加控件的作用又都是什么呢？本實例至此結束！VBA好玩吧？對我們的實例六，您是否已有所期待了呢？從零開始，步入Word宏編程的世界（第六講）實例六：Word中的常用對像、屬性、方法和事件知識點：掌握Word中常用的對像并學習這些對像主要的屬性、方法和事件。在實例四中，我們已接觸了對像、屬性、方法和事件的基本概念，今天，我們就來學習一下Word中的常見對像以及它們的屬性、方法和事件。本實例的內容稍微多了一些，為了便于朋友們的理解，以下將主要介紹Word中最重要的幾個對象、屬性、方法與事件。要想得到更詳細的內容，朋友們可以在完全掌握本實例后，嘗試看看VBA的幫助，在幫助文件中搜索“Microsoft Word 對象”即可。本實例將重點介紹以下的對象，首先理清我們今天要學習的“對像”的結構層次——Applicat