實例五：Word版的“媒體播放器”
知識點：
1、進(jìn)一步熟悉VBE的操作界面；
2、學(xué)習(xí)使用窗體與控件進(jìn)行編程；
3、學(xué)習(xí)運用附加的控件進(jìn)行編程。
通過以上四個實例的學(xué)習(xí)，今天，我們終于迎來了激動人心的時刻——編寫一個“Word版的媒體播放器”！“媒體播放器”大家不會陌生吧？對，就是開始——程序——附件——娛樂中的“Mediaplayer播放器”！相信本實例會給您帶來成就感！也算是對我們前四個實例辛苦學(xué)習(xí)的一點點回報吧！當(dāng)然，在高興之余，千萬不要忘了對本實例中知識點的學(xué)習(xí)。其實，本實例中，理論知識上的難度幾乎沒有，但操作上的步驟卻相當(dāng)多，朋友們耐心一點。
步驟一：界面的制作——
1、回憶實例四中的操作方法，在VBE中添加一個窗體，窗體上添加兩個按鈕。將窗體的“Caption”屬性改為“Word版媒體播放器”，再分別將兩個按鈕的“Caption”屬性改為“開始運行”與“結(jié)束程序”。
2、右擊控件工具箱，選“附加控件”，將“附加控件”面板的滾動條拖動到最底端，然后選中“Windows Mediaplayer”控件?！按_定”后，退出“附加控件”面板（圖5-1）。這時控件工具箱最下面就多出了一個網(wǎng)格狀的“Windows Mediaplayer”控件。
3、選中“WindowsMedia player”控件，在窗體上按您的需要和喜好“畫”出它將要顯示的范圍。
4、現(xiàn)在，我們就可以利用“屬性對話框”開始對整個窗體及窗體上所有的控件進(jìn)行“美化”?！懊阑钡膬?nèi)容就按您自己的喜好看著辦好了，反正是“設(shè)計時”修改控件，不會影響最終程序的運行。我修改了窗體和按鈕的顏色，并修改了按鈕上的字體以及字號和字色。最終的效果如圖5-2。
準(zhǔn)備工作已就緒，開始編寫代碼了吧！
步驟二：編寫代碼——
1、雙擊“開始運行”按鈕，在VBE自動生成的空過程中輸入如下代碼：
Private Sub CommandButton1_Click()
MediaPlayer1.FileName = "D:\MyMpg\龍珠2.mpg "
End Sub
(注意:office2003及以上版本，上句代碼應(yīng)該是：WindowsMediaPlayer1.URL="D:\MyMpg\龍珠2.mpg"，這是因為在這些版本上，MediaPlayer控件的屬性與方法已略有些變化了。)
代碼解說：
關(guān)于“過程”，就不消多說了吧？“MediaPlayer1”就是我們在“設(shè)計時”所添加的“MediaPlayer控件”。它尾巴上的“1”，指它是在本窗體上的第一個“MediaPlayer控件”。“FileName”是“MediaPlayer1”的一個屬性，這個屬性的值就是將要播放的媒體文件的名稱（還記得為屬性賦值的格式嗎？這整句代碼可是一個標(biāo)準(zhǔn)的賦值語句。）。等號后面大家就很清楚了——是要播放的文件的路徑與文件名。當(dāng)然，您的電腦上恐怕不會有“D:\MyMpg\龍珠2.mpg”文件的，您可要根據(jù)自己電腦上的實際情況輸入這部分的內(nèi)容。
2、雙擊“結(jié)束程序”按鈕，在打開空過程中輸入——
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
代碼解說：
這段代碼如果還需要解說的話，就請再看看實例四的后半部分內(nèi)容。
完成前兩步代碼輸入后，可以將光標(biāo)定位于“開始運行”按鈕的代碼區(qū)正中間，然后按下F5鍵??！看到了什么？？怎么樣，有成就感吧？？還沒完呢！趕快“結(jié)束程序”編完最后的代碼吧！
3、回到Word，指向工具——宏，打開“宏名”對話框（不要告訴我，你找不到這個對話框），在“宏名”中輸入“我的播放器”（沒有引號），點擊“創(chuàng)建”按鈕，在VBE所生成空過程中輸入——
Sub 我的播放器()
UserForm1.Show
End Sub
本段代碼與上段代碼一樣，也無需解說了吧？
4、回到Word，打開工具——自定義，拖動“命令”選項卡的滾動條到最底部，選中“類別”窗格中的“宏”，再找到右邊“命令”窗格中的“我的播放器”宏，左鍵按住它，不要讓它跑掉（？），拖動它到“任意”的“菜單欄”或“工具欄”上，好，松左鍵，它跑不掉了（圖5-3）。保證它是被選中的，再回到“命令”選項卡上，點擊正中間的“更改所選內(nèi)容”，把它的名字“美化”一下，或者再給它添一個圖標(biāo)，怎么樣，帥吧？！酷吧？！(圖5-4)
5、從此之后，王子和公主就在您的Word中……哦？錯了，應(yīng)該是——從此以后，您的Word中，就多了一個可以播放Mpg、Mp3……等等媒體的小妞……啊，又錯了，是“小鈕”。當(dāng)然，要播放的內(nèi)容還得您自己為它指定（寫進(jìn)代碼中去）。
本實例的知識擴(kuò)展：
1、修改代碼來確定媒體文件的路徑及文件名不麻煩嗎？難道您不愿意使用“輸入框”？
2、有沒有辦法指定一個文件夾后，播放器就自動將這個文件夾下的媒體文件一個一個地播放出來呢？或者，將要播放的文件名寫在一個文本文件中，讓播放器一個一個地讀出它的名字來播放呢？
3、如果要求您不用“設(shè)計時”修改控件屬性，而讓您用“運行時”修改控件屬性的方法，來制作步驟一中的界面，您不愿意試一試嗎？
4、都有哪些附加控件？各附加控件的作用又都是什么呢？
本實例至此結(jié)束！VBA好玩吧？對我們的實例六，您是否已有所期待了呢？
本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請
點擊舉報。
