【文章內(nèi)容簡介】 的函數(shù)接口：窗體沒有修飾將會十分難看，現(xiàn)在常用的操作是窗體加上一層皮膚。對窗體來說，皮膚就是皮膚文件，它由一組圖片和包含圖片信息的XML文件組成。加載皮膚就是通過讀取皮膚XML文件來設(shè)置窗體元素的圖片屬性。其核心處理就是讀取皮膚XML文件，loadXmlSkin為該處理的關(guān)鍵函數(shù)。Function loadXmlSkin(strSkin As String) Global root As IXMLDOMElement加載皮膚文件接口，供上層窗體綁定窗體皮膚元素，主要是對XML的操作，參數(shù)為皮膚文件路徑；root是全局變量，存儲XML根接點對象，實現(xiàn)如下：Set skinXml = New DOMDocumentCall (“皮膚文件路徑”)Set root = //獲取根接點對象，使用根接點可遍歷所有接點。播放器啟動后，需要加載系統(tǒng)的基本狀態(tài)。這對于用戶來說是一個很實用的操作，用戶有用戶的使用習(xí)慣，每次關(guān)閉系統(tǒng)，系統(tǒng)都將保存本次播放的狀態(tài)信息(當(dāng)前播放的列表、曲目、播放模式、顯示模式、顯示狀態(tài)等等)，下次啟動系統(tǒng)自動加載上次的狀態(tài)信息，這是一個較為人性化的設(shè)計。狀態(tài)信息存儲在系統(tǒng)設(shè)置XML文件里面，通過loadPlayerSettings函數(shù)進行讀取。Public Sub loadPlayerSettings(node As IXMLDOMNode)加載播放器基本設(shè)置信息：歌詞窗體顯示狀態(tài)、播放列表窗體顯示狀態(tài)、播放模式、上次播放記錄(播放列表和播放曲目的記錄)、靜音狀態(tài)、顯示模式等。Dim childNode As IXMLDOMNodeFor Each childNode In //遍歷根接點所有子接點 Select Case //設(shè)置操作 End SelectNext媒體列表播放主要是通過讀取列表文件中媒體文件的物理路徑進行播放，得到文件物理路徑實現(xiàn)的關(guān)鍵所在。Public Function getFilePath(strFileList As String, index As Integer) As String通過播放列表名和文件位置獲取播放列表中該文件的物理路徑，函數(shù)返回值為該文件的物理路徑，具體實現(xiàn)如下：Open “媒體列表” For Input Lock Write As 1 Do While Not EOF(1) //循環(huán)至文件尾。 If num = index Then Line Input 1, “播放文件路徑”//讀入一行數(shù)據(jù)并將其賦予某變量。 GoTo nextStep Else num = num + 1 Line Input 1, textLine End If LoopClose 1MP3是目前使用最為廣泛的媒體格式之一，也是本系統(tǒng)最主要支持的格式。讀取MP3文件信息可以使用戶直接的了解文件的相關(guān)說明信息。MP3文件由一系列長度不同的禎組成，在MP3文件的開始或結(jié)尾，通常會存儲一些額外的信息，如歌手，曲木目名等等，這些叫做“ID3”數(shù)據(jù)。Public Function GetMp3Tag(FName As String) As mp3Tag獲取MP3格式的文件信息，F(xiàn)Name為MP3文件的物理路徑，返回值為自定義的結(jié)構(gòu)類型，該結(jié)構(gòu)類型用來存儲MP3文件的信息，其定義如下：Public Type mp3Tag Artist As String //存儲歌手信息 Album As String //存儲唱片專輯信息 Title As String //存儲標(biāo)題信息 Year As String //存儲年代信息 Comments As String //存儲備注信息 Genre As Integer //存儲音樂風(fēng)格序列End TypeGlobal mp3Infor As mp3Tag //聲明一個該結(jié)構(gòu)變量具體獲取文件信息的方式如下：Open “文件路徑” For Binary Access Read As FileNum//以二進制形式打開文件Seek FileNum, LOF(FileNum) 127 //把文件指針移動到MP3信息處strInput = Space(3)Get FileNum, , strInputIf strInput TAG Then //如果沒有發(fā)現(xiàn)信息標(biāo)識，就關(guān)閉文件 Close FileNum exitEnd IfstrInput = Space(30)Get FileNum, , strInputTitle = Trim(strInput) //讀取文件詳細(xì)信息Close FileNum如前面所提到的，退出系統(tǒng)時需要保存當(dāng)前系統(tǒng)狀態(tài)信息，這里用saveSettings函數(shù)實現(xiàn)。Public Sub saveSettings()退出播放系統(tǒng)時，保存本次播放的基本狀態(tài)信息，供下次使用系統(tǒng)時加載使用，這個函數(shù)沒有什么核心內(nèi)容，主要逐個獲取狀態(tài)信息，調(diào)用函數(shù)editNodeValue進行保存。Private Sub editNodeValue(strNodeName As String, node As IXMLDOMNode, strTemp As String, strPSXML As String)在node節(jié)點下保存系統(tǒng)狀態(tài)信息，若存在節(jié)點，更新其值即可；若不存在，在node節(jié)點下新建節(jié)點進行賦值，保存退出即可。strNodeName為狀態(tài)信息節(jié)點名，strTemp為節(jié)點值，strPSXML為XML文件物理路徑。該函數(shù)核心實現(xiàn)如下：If (strNodeName) Is Nothing Then//若不存在，新建節(jié)點賦值保存 Dim newNode As IXMLDOMNodeSet newNode = (strNodeName) newNode Set newAttribute = (strNodeName).(value) = strTemp (newAttribute) strPSXMLElse (strNodeName).(value).Text = strTemp strPSXMLEnd If系統(tǒng)函數(shù)入口是系統(tǒng)運行的根基點，系統(tǒng)運行首先運行入口函數(shù)。Public Sub Main()主函數(shù)入口：加載皮膚、加載系統(tǒng)基本信息、系統(tǒng)基本設(shè)置、啟動播放。具體實現(xiàn)如下：Call loadXmlSkin(orange) //加載皮膚文件On Error GoTo errorSet mpXml = New DOMDocumentCall ( amp。 \ amp。 )//加載系統(tǒng)基本狀態(tài)信息文件Dim root As IXMLDOMElement //XML文件根節(jié)點Set root = //根節(jié)點賦值Dim node As IXMLDOMNode //定義子節(jié)點For Each node In //循環(huán)讀取各個子節(jié)點進行狀態(tài)設(shè)置 Select Case Case Player //設(shè)置狀態(tài)信息操作 End SelectNext…… (filePath)//啟動播放 功能窗體區(qū)功能窗體模塊包含五個窗體：主播放窗體、媒體列表窗體、歌詞顯示窗體、迷你播放窗體、媒體文件信息窗體。對于迷你播放窗體，其主要功能都是通過調(diào)用主播放窗體公共接口實現(xiàn)的，而媒體文件信息窗體是調(diào)用接口功能模塊公共成員實現(xiàn)的，所以均不加介紹。下面主要結(jié)合其他三個主要窗體主要功能的設(shè)計與實現(xiàn)進行論述。 主播放窗體如前面的介紹，主要進行各種播放控制，其主要的功能實現(xiàn)有以下幾點：打開文件播放，使用的是CommonDialog控件，該控件在 Visual Basic 和 Microsoft Windows 例程之間提供了接口。為了用該控件創(chuàng)建對話框， 在 Microsoft Windows \System 目錄下。為了在應(yīng)用程序中使用 CommonDialog 控件，應(yīng)將其添加到窗體上并設(shè)置屬性?？丶@示的對話由控件的方法決定。運行時，調(diào)用相應(yīng)方法后將顯示對話框或執(zhí)行幫助引擎；設(shè)計時在窗體上將 CommonDialog 控件顯示成一個圖標(biāo)，此圖標(biāo)的大小不能改變。CommonDialog 控件可以顯示如下常用對話框：“打開”、“另存為”、“顏色”、“字體”、“打印”顯示“打開”對話框有了“打開”對話框就可指定驅(qū)動器、目錄、文件擴展名和文件名?！傲泶鏋椤睂υ捒蛟谕庥^上與“打開”對話框相同，只是對話框的標(biāo)題和文件名是暗淡的。運行時選定文件并關(guān)閉對話框后，可用 FileName 屬性獲取選定的文件名。要顯示“打開”對話框(1) 指定在“文件類型”列表框中顯示的文件過濾器列表?？捎孟铝懈袷皆O(shè)置 Filter 屬性：description1 | filter1 | description2 | filter2...Description 是列表框中顯示的字符串——例如，Text Files (*.txt)。Filter 是實際的文件過濾器——例如，*.txt。每個description | filter 設(shè)置間必須用管道符號分隔 (|)。(2) 用 ShowOpen 方法顯示對