【正文】 為”、“顏色”、“字體”、“打印”顯示“打開”對(duì)話框有了“打開”對(duì)話框就可指定驅(qū)動(dòng)器、目錄、文件擴(kuò)展名和文件名?！傲泶鏋椤睂?duì)話框在外觀上與“打開”對(duì)話框相同，只是對(duì)話框的標(biāo)題和文件名是暗淡的。運(yùn)行時(shí)選定文件并關(guān)閉對(duì)話框后，可用 FileName 屬性獲取選定的文件名。要顯示“打開”對(duì)話框(1) 指定在“文件類型”列表框中顯示的文件過(guò)濾器列表?？捎孟铝懈袷皆O(shè)置 Filter 屬性：description1 | filter1 | description2 | filter2...Description 是列表框中顯示的字符串——例如，Text Files (*.txt)。Filter 是實(shí)際的文件過(guò)濾器——例如，*.txt。每個(gè)description | filter 設(shè)置間必須用管道符號(hào)分隔 (|)。(2) 用 ShowOpen 方法顯示對(duì)話框。選定文件后可用 FileName 屬性獲取選定文件的名稱。對(duì)所有公共對(duì)話框，當(dāng) CancelError 屬性為 True，而且用戶單擊了對(duì)話框的“取消”按鈕時(shí)將生成一個(gè)錯(cuò)誤。在顯示對(duì)話框時(shí)捕獲錯(cuò)誤，以此檢測(cè)是否按了“取消”按鈕。系統(tǒng)中具體實(shí)現(xiàn)如下所示： = 初始化路徑 = cdlOFNFileMustExist //設(shè)置對(duì)話框模式 = 全部媒體格式(*.*)|*.* = = 多媒體文件 //cdOpenFile為CommonDialog對(duì)象，此處用于選擇文件。 //獲取文件物理路徑playMediaFile() //啟動(dòng)播放媒體播放時(shí)間顯示，Duration是一個(gè)Double型變量，需要將其轉(zhuǎn)化為字符串進(jìn)行顯示，效果如圖具體實(shí)現(xiàn)如下：strTime = Format(CStr(doubleTime \ 60), 00) amp。 ： amp。 Format(CStr(doubleTime Mod 60), 00)Format(expression[, format[, firstdayofweek[, firstweekofyear]]])Expression 必要參數(shù)，任何有效的表達(dá)式。Format 可選參數(shù)。有效的命名表達(dá)式或用戶自定義格式表達(dá)式。Firstdayofweek 可選參數(shù)，常數(shù)，表示一星期的第一天。Firstweekofyear可選參數(shù)，常數(shù)，表示一年的第一周。Format(CStr(doubleTime \ 60), 00)//分鐘轉(zhuǎn)換Format(CStr(doubleTime Mod 60), 00)//秒轉(zhuǎn)換進(jìn)度條是用程序控制實(shí)現(xiàn)的，進(jìn)度條的使用分為兩種情況：(1)播放進(jìn)度控制進(jìn)度條顯示、(2)進(jìn)度條操作控制播放進(jìn)度。本系統(tǒng)未采用任何第三方進(jìn)度條控件，而是通過(guò)控制圖片顯示來(lái)實(shí)現(xiàn)的。這里需要兩張圖片：一張為背景圖片、一張為滑塊圖片，控制滑塊圖片在背景圖片上移動(dòng)。播放進(jìn)度控制進(jìn)度條顯示：通過(guò)獲取當(dāng)前媒體播放的位置來(lái)設(shè)置滑塊圖片的位置。 = + moveLength// moveLength為滑塊需要移動(dòng)的距離進(jìn)度條操作控制播放進(jìn)度：通過(guò)滑塊位置和進(jìn)度條長(zhǎng)度(即進(jìn)度條背景圖片的寬度)設(shè)置媒體的播放位置。 = (X / ) * mediaLength//X為鼠標(biāo)單擊位置的橫坐標(biāo)(相對(duì)于進(jìn)度條背景圖片的位置)，X / 。整個(gè)實(shí)現(xiàn)就是獲取并設(shè)置媒體的播放位置。 = X + 。音量控制的實(shí)現(xiàn)與進(jìn)度控制的實(shí)現(xiàn)思想一致，這里不在贅述。 媒體列表窗體播放列表窗體主要是播放列表的相關(guān)操作，主要列舉以下功能的實(shí)現(xiàn)：隨機(jī)播放實(shí)現(xiàn)，即隨機(jī)播放播放列表的媒體文件，具體實(shí)現(xiàn)如下：RandomizeplListCount = randomNum = Int((plListCount * Rnd) + 0)//生成 0 到 plListCount1之間的隨機(jī)數(shù)值 = randomNum然后通過(guò)播放列表窗體獲取當(dāng)前選中的文件進(jìn)行播放。由播放列表綁定文件列表，即讀取播放列表文件，逐行讀取每行綁定文件列表進(jìn)行顯示：Open 播放列表名 For Input Lock Write As 1 //打開列表文件Do While Not EOF(1) //循環(huán)至文件尾。 Line Input 1, textLine //讀入一行數(shù)據(jù)并將其賦予某變量。 textLine = Mid(textLine, InStrRev(textLine, \) + 1)//截取播放列表中物理路徑中的文件名 textLine //添加至列表() = – 1//設(shè)置該文件在播放列表中的位置(即所在行)，方便獲取物理路徑。LoopClose 1設(shè)置窗體控件位置及顯示大?。杭虞d皮膚文件，主要是加載窗體圖片信息及控件顯示坐標(biāo)、大小信息，加載后初始化窗體進(jìn)行設(shè)置： Dim strPosition As String strPosition = (position).Text//獲取位置信息，包含距左、距上距離及寬高信息 Call slipStr(strPosition)//提取位置信息中的左上寬高信息存至winPosition(4)中。 Call setPlayerConPos(player) //進(jìn)行控件設(shè)置 With player //設(shè)置控件位置的具體實(shí)現(xiàn)：.Left = winPosition(0) * .Top = winPosition(1) * .Width = winPosition(2) * .Height = winPosition(3) * End With文件重命名：本系統(tǒng)用到的是重命名播放列表名，具體處理思路如下：OldName = amp。 \playList\ amp。 oldFileListName amp。 .m3u: NewName = amp。 \playList\ amp。 newFileListName amp。 .m3uName OldName As NewName //重命名文件 歌詞顯示窗體讀取歌詞文件綁定于歌詞列表，具體實(shí)現(xiàn)如下：歌詞文件格式為：[00:]徘徊過(guò)多少櫥窗，[00:]為顯示后面歌詞的時(shí)間，故采用以下處理：Line Input 1, textLine //讀入一行數(shù)據(jù)并將其賦予某變量。strPlayTime = Trim(Mid(textLine, 1, InStrRev(textLine, ])))//獲取顯示時(shí)間：如“00:”textLine = Trim(Mid(textLine, InStrRev(textLine, ]) + 1))//獲取顯示時(shí)間的歌詞：如“徘徊過(guò)多少櫥窗” textLine //添加至歌詞列表顯示若一個(gè)多個(gè)時(shí)間點(diǎn)對(duì)應(yīng)一句歌詞，如下形式：“[03:][03:][02:]吞風(fēng)吻雨葬落日未曾彷徨”處理稍微麻煩，但原理基本一樣，具體實(shí)現(xiàn)如下：While strPlayTime intTemp = InStr(1, strPlayTime, ], 1) num = InStr(1, strPlayTime, :, 1) strTemp = Mid(strPlayTime, 2, num 1) amp。 Format(CStr(CInt(Mid(strPlayTime, num + 1, intTemp 1 num))), 00)//獲取一個(gè)時(shí)間單位，四舍五入秒后面的時(shí)間，如“03:” 四舍五入為“03:32” strAllPlayTime = strAllPlayTime amp。 strTemp amp。 | amp。 1 amp。 //設(shè)置一個(gè)所有播放時(shí)間字符串，一個(gè)時(shí)間點(diǎn)對(duì)應(yīng)一個(gè)歌詞列表下標(biāo)，播放至該時(shí)間點(diǎn)時(shí)選中相應(yīng)歌詞顯示。 strPlayTime = Trim(Mid(strPlayTime, intTemp + 1))Wend主播放窗體playTimer_Timer函數(shù)中進(jìn)行歌詞顯示控制，具體實(shí)現(xiàn)如下：If InStr(1, strAllPlayTime, , 1) 0 Then//若當(dāng)前播放時(shí)間在所有播放時(shí)間字符串中，則控制歌詞顯示intNum = InStr(InStr(1, strAllPlayTime, , 1), strAllPlayTime, |, 1) = CInt(Mid(strAllPlayTime, intNum + 1, InStr(intNum, strAllPlayTime, , 1) 1 intNum))//獲取當(dāng)前時(shí)間對(duì)應(yīng)歌詞列表的下標(biāo)，選定顯示。 = //迷你窗體歌詞顯示End If結(jié) 論。之所以選擇VB這個(gè)平臺(tái)，除了VB開發(fā)Windows應(yīng)用程序的方便、高效外，也想對(duì)自己學(xué)習(xí)能力進(jìn)行一次檢測(cè)，使自己在一個(gè)目標(biāo)時(shí)間內(nèi)去熟悉一個(gè)平臺(tái)，熟悉一門語(yǔ)言。雖然沒(méi)有達(dá)到預(yù)期圓滿的目標(biāo)，但著實(shí)得到一次錘煉，更是對(duì)未來(lái)進(jìn)入社會(huì)工作充滿了信心。項(xiàng)目實(shí)現(xiàn)了播放器所有的主要功能，涉及到了VB開發(fā)的大部分知識(shí)，進(jìn)度基本上與計(jì)劃保持了一致，達(dá)到了預(yù)期設(shè)計(jì)的目標(biāo)。借助此系統(tǒng)開發(fā)，我熟悉了VB平臺(tái)的開發(fā)，對(duì)VB語(yǔ)言也有了進(jìn)一步的認(rèn)識(shí)，對(duì)相關(guān)多媒體方面的知識(shí)也進(jìn)行了較為全面的了解和學(xué)習(xí)。但也存在部分問(wèn)題，如對(duì)Windows API函數(shù)了解不夠深入、VB數(shù)據(jù)庫(kù)操作相對(duì)還是比較薄弱、相關(guān)多媒體方面的專業(yè)知識(shí)不夠扎實(shí)等，所以需要進(jìn)一步深入地學(xué)習(xí)。畢業(yè)設(shè)計(jì)使自己又一次得到了錘煉，也希望自己的努力能為大學(xué)的學(xué)習(xí)生活劃上一個(gè)圓滿的句號(hào)。 參考文獻(xiàn)[1] 林福宗，多媒體技術(shù)基礎(chǔ)，第2版，清華大學(xué)出版社，2002年9月[2] 鐘玉琢，多媒體計(jì)算機(jī)技術(shù)基礎(chǔ)及應(yīng)用，清華大學(xué)出版社，2006年2月[3] ZENIAN LI等著，多媒體技術(shù)教程，機(jī)械工業(yè)出版社，2007年1月[4] 彭波等著，多媒體技術(shù)及應(yīng)用，機(jī)械工業(yè)出版社，2006年4月[5] Microsoft，MSDN Library Visual Studio (CHS)[6] 趙子江，多媒體技術(shù)應(yīng)用教程，第3版，機(jī)械工業(yè)出版社，2003年8月