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