【正文】 畢業(yè)設(shè)計(jì)使自己又一次得到了錘煉，也希望自己的努力能為大學(xué)的學(xué)習(xí)生活劃上一個(gè)圓滿的句號。借助此系統(tǒng)開發(fā)，我熟悉了VB平臺的開發(fā)，對VB語言也有了進(jìn)一步的認(rèn)識，對相關(guān)多媒體方面的知識也進(jìn)行了較為全面的了解和學(xué)習(xí)。雖然沒有達(dá)到預(yù)期圓滿的目標(biāo)，但著實(shí)得到一次錘煉，更是對未來進(jìn)入社會工作充滿了信心。 = //迷你窗體歌詞顯示End If結(jié) 論。 //設(shè)置一個(gè)所有播放時(shí)間字符串，一個(gè)時(shí)間點(diǎn)對應(yīng)一個(gè)歌詞列表下標(biāo)，播放至該時(shí)間點(diǎn)時(shí)選中相應(yīng)歌詞顯示。 | amp。 Format(CStr(CInt(Mid(strPlayTime, num + 1, intTemp 1 num))), 00)//獲取一個(gè)時(shí)間單位，四舍五入秒后面的時(shí)間，如“03:” 四舍五入為“03:32” strAllPlayTime = strAllPlayTime amp。 .m3uName OldName As NewName //重命名文件 歌詞顯示窗體讀取歌詞文件綁定于歌詞列表，具體實(shí)現(xiàn)如下：歌詞文件格式為：[00:]徘徊過多少櫥窗，[00:]為顯示后面歌詞的時(shí)間，故采用以下處理：Line Input 1, textLine //讀入一行數(shù)據(jù)并將其賦予某變量。 \playList\ amp。 oldFileListName amp。 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。 textLine = Mid(textLine, InStrRev(textLine, \) + 1)//截取播放列表中物理路徑中的文件名 textLine //添加至列表() = – 1//設(shè)置該文件在播放列表中的位置(即所在行)，方便獲取物理路徑。由播放列表綁定文件列表，即讀取播放列表文件，逐行讀取每行綁定文件列表進(jìn)行顯示：Open 播放列表名 For Input Lock Write As 1 //打開列表文件Do While Not EOF(1) //循環(huán)至文件尾。音量控制的實(shí)現(xiàn)與進(jìn)度控制的實(shí)現(xiàn)思想一致，這里不在贅述。整個(gè)實(shí)現(xiàn)就是獲取并設(shè)置媒體的播放位置。 = + moveLength// moveLength為滑塊需要移動的距離進(jìn)度條操作控制播放進(jìn)度：通過滑塊位置和進(jìn)度條長度(即進(jìn)度條背景圖片的寬度)設(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)度。Firstdayofweek 可選參數(shù)，常數(shù)，表示一星期的第一天。Format 可選參數(shù)。 ： amp。系統(tǒng)中具體實(shí)現(xiàn)如下所示： = 初始化路徑 = cdlOFNFileMustExist //設(shè)置對話框模式 = 全部媒體格式(*.*)|*.* = = 多媒體文件 //cdOpenFile為CommonDialog對象，此處用于選擇文件。對所有公共對話框，當(dāng) CancelError 屬性為 True，而且用戶單擊了對話框的“取消”按鈕時(shí)將生成一個(gè)錯(cuò)誤。(2) 用 ShowOpen 方法顯示對話框。Filter 是實(shí)際的文件過濾器——例如，*.txt。要顯示“打開”對話框(1) 指定在“文件類型”列表框中顯示的文件過濾器列表?！傲泶鏋椤睂υ捒蛟谕庥^上與“打開”對話框相同，只是對話框的標(biāo)題和文件名是暗淡的。運(yùn)行時(shí)，調(diào)用相應(yīng)方法后將顯示對話框或執(zhí)行幫助引擎；設(shè)計(jì)時(shí)在窗體上將 CommonDialog 控件顯示成一個(gè)圖標(biāo)，此圖標(biāo)的大小不能改變。為了在應(yīng)用程序中使用 CommonDialog 控件，應(yīng)將其添加到窗體上并設(shè)置屬性。 主播放窗體如前面的介紹，主要進(jìn)行各種播放控制，其主要的功能實(shí)現(xiàn)有以下幾點(diǎn)：打開文件播放，使用的是CommonDialog控件，該控件在 Visual Basic 和 Microsoft Windows 例程之間提供了接口。對于迷你播放窗體，其主要功能都是通過調(diào)用主播放窗體公共接口實(shí)現(xiàn)的，而媒體文件信息窗體是調(diào)用接口功能模塊公共成員實(shí)現(xiàn)的，所以均不加介紹。 \ amp。Public Sub Main()主函數(shù)入口：加載皮膚、加載系統(tǒng)基本信息、系統(tǒng)基本設(shè)置、啟動播放。strNodeName為狀態(tài)信息節(jié)點(diǎn)名，strTemp為節(jié)點(diǎn)值，strPSXML為XML文件物理路徑。Public Sub saveSettings()退出播放系統(tǒng)時(shí)，保存本次播放的基本狀態(tài)信息，供下次使用系統(tǒng)時(shí)加載使用，這個(gè)函數(shù)沒有什么核心內(nèi)容，主要逐個(gè)獲取狀態(tài)信息，調(diào)用函數(shù)editNodeValue進(jìn)行保存。MP3文件由一系列長度不同的禎組成，在MP3文件的開始或結(jié)尾，通常會存儲一些額外的信息，如歌手，曲木目名等等，這些叫做“ID3”數(shù)據(jù)。 GoTo nextStep Else num = num + 1 Line Input 1, textLine End If LoopClose 1MP3是目前使用最為廣泛的媒體格式之一，也是本系統(tǒng)最主要支持的格式。Public Function getFilePath(strFileList As String, index As Integer) As String通過播放列表名和文件位置獲取播放列表中該文件的物理路徑，函數(shù)返回值為該文件的物理路徑，具體實(shí)現(xiàn)如下：Open “媒體列表” For Input Lock Write As 1 Do While Not EOF(1) //循環(huán)至文件尾。Public Sub loadPlayerSettings(node As IXMLDOMNode)加載播放器基本設(shè)置信息：歌詞窗體顯示狀態(tài)、播放列表窗體顯示狀態(tài)、播放模式、上次播放記錄(播放列表和播放曲目的記錄)、靜音狀態(tài)、顯示模式等。這對于用戶來說是一個(gè)很實(shí)用的操作，用戶有用戶的使用習(xí)慣，每次關(guān)閉系統(tǒng)，系統(tǒng)都將保存本次播放的狀態(tài)信息(當(dāng)前播放的列表、曲目、播放模式、顯示模式、顯示狀態(tài)等等)，下次啟動系統(tǒng)自動加載上次的狀態(tài)信息，這是一個(gè)較為人性化的設(shè)計(jì)。Function loadXmlSkin(strSkin As String) Global root As IXMLDOMElement加載皮膚文件接口，供上層窗體綁定窗體皮膚元素，主要是對XML的操作，參數(shù)為皮膚文件路徑；root是全局變量，存儲XML根接點(diǎn)對象，實(shí)現(xiàn)如下：Set skinXml = New DOMDocumentCall (“皮膚文件路徑”)Set root = //獲取根接點(diǎn)對象，使用根接點(diǎn)可遍歷所有接點(diǎn)。加載皮膚就是通過讀取皮膚XML文件來設(shè)置窗體元素的圖片屬性。下面介紹本系統(tǒng)主要的函數(shù)接口：窗體沒有修飾將會十分難看，現(xiàn)在常用的操作是窗體加上一層皮膚。Function Shell_NotifyIcon Lib (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long該函數(shù)主要功能：用來添加、刪除、更改系統(tǒng)托盤區(qū)(taskbar status area)的圖標(biāo)。 //Me指本窗體應(yīng)用程序最常用的基本操作之一就包括最小化系統(tǒng)托盤顯示，單擊最小化按扭，系統(tǒng)圖標(biāo)將出現(xiàn)在系統(tǒng)托盤區(qū)域，雙擊托盤中的圖標(biāo)，系統(tǒng)還原顯示。本系統(tǒng)用此函數(shù)來實(shí)現(xiàn)用鼠標(biāo)拖動窗體，詳細(xì)實(shí)現(xiàn)如下：Public Const WM_NCLBUTTONDOWN = amp。wParam：指定附加的消息指定信息。返回值指定消息處理的結(jié)果，依賴于所發(fā)送的消息。hWnd：將接收消息的窗口句柄。為窗體注冊鼠標(biāo)單擊觸發(fā)事件，在觸發(fā)函數(shù)中向窗體發(fā)送消息。要實(shí)現(xiàn)此種操作，就必須時(shí)時(shí)向窗體發(fā)送消息，從而實(shí)現(xiàn)窗體移動。SetWindowRgn可與CreateEllipticRgn、CreateRoundRectRgn函數(shù)結(jié)合使用,用來進(jìn)行窗體切割，使窗體只顯示創(chuàng)建區(qū)域部分的內(nèi)容，具體主要操作如下：HRgn_Lng = CreateRoundRectRgn(x1, y1, X2, Y2, radius, radius)//設(shè)置窗口區(qū)域SetWindowRgn , HRgn_Lng, True窗體切割前后效果對比如圖41和圖42所示。這意味著您可以創(chuàng)建圓的、星形的窗口，也可以將它分為兩個(gè)或許多部分，實(shí)際上可以是任何的形狀。通常所有窗口都是矩形的，窗口一旦存在就含有一個(gè)矩形區(qū)域。返回值類型也為long,執(zhí)行成功則為區(qū)域句柄，失敗則為零。下面是相關(guān)函數(shù)的介紹和使用。下面介紹一下本系統(tǒng)所使用的部分API函數(shù)和使用他們的設(shè)計(jì)考慮：窗體默認(rèn)情況下是以矩形顯示的，為了使窗體顯示更加新穎、美觀，可以使用系統(tǒng)提供的接口函數(shù)對窗體進(jìn)行切割處理，從而顯示出設(shè)計(jì)者或用戶所追求的種種效果。系統(tǒng)又把該模塊細(xì)分為兩個(gè)子模塊—Windows API模塊和基本播放處理模塊。各種功能的實(shí)現(xiàn)都是基于這五個(gè)模塊的，所以本章節(jié)主要通過系統(tǒng)的這幾個(gè)功能模塊來介紹系統(tǒng)的詳細(xì)設(shè)計(jì)及編碼實(shí)現(xiàn)，其中功能窗體區(qū)和接口模塊區(qū)是描述的重點(diǎn)。主窗體操作：包括播放系統(tǒng)的所有操作，包括播放控制操作、顯示模式操作、皮膚選擇操作等。設(shè)置皮膚是用讀取的皮膚文件信息來設(shè)置窗體和窗體元素的圖片、坐標(biāo)位置。具體操作如圖43所示。圖42 系統(tǒng)流程圖系統(tǒng)總體功能流程如圖42所示。 系統(tǒng)功能流