【正文】 ormat(expression[, format[, firstdayofweek[, firstweekofyear]]])Expression 必要參數(shù)，任何有效的表達(dá)式。播放進(jìn)度控制進(jìn)度條顯示：通過獲取當(dāng)前媒體播放的位置來設(shè)置滑塊圖片的位置。 Line Input 1, textLine //讀入一行數(shù)據(jù)并將其賦予某變量。 newFileListName amp。 strPlayTime = Trim(Mid(strPlayTime, intTemp + 1))Wend主播放窗體playTimer_Timer函數(shù)中進(jìn)行歌詞顯示控制，具體實現(xiàn)如下：If InStr(1, strAllPlayTime, , 1) 0 Then//若當(dāng)前播放時間在所有播放時間字符串中，則控制歌詞顯示intNum = InStr(InStr(1, strAllPlayTime, , 1), strAllPlayTime, |, 1) = CInt(Mid(strAllPlayTime, intNum + 1, InStr(intNum, strAllPlayTime, , 1) 1 intNum))//獲取當(dāng)前時間對應(yīng)歌詞列表的下標(biāo)，選定顯示。 參考文獻(xiàn)[1] 林福宗，多媒體技術(shù)基礎(chǔ)，第2版，清華大學(xué)出版社，2002年9月[2] 鐘玉琢，多媒體計算機技術(shù)基礎(chǔ)及應(yīng)用，清華大學(xué)出版社，2006年2月[3] ZENIAN LI等著，多媒體技術(shù)教程，機械工業(yè)出版社，2007年1月[4] 彭波等著，多媒體技術(shù)及應(yīng)用，機械工業(yè)出版社，2006年4月[5] Microsoft，MSDN Library Visual Studio (CHS)[6] 趙子江，多媒體技術(shù)應(yīng)用教程，第3版，機械工業(yè)出版社，2003年8月以下內(nèi)容與本文檔無關(guān)?。?！以下內(nèi)容與本文檔無關(guān)?。?！?！备惶m克林將自己一生的成就歸功于對“在一定時期內(nèi)不遺余力地做一件事”這一信條的實踐。只要把問題想透徹了，才能找到問題到底是什么，才能找到解決問題最有效的手段。小部分的努力，可以獲得大的收獲；起關(guān)鍵作用的小部分，通常就能主宰整個組織的產(chǎn)出、盈虧和成敗。對手，可以讓你時刻提醒自己：沒有最好的，只有更好。身處激烈的競爭之中,一名高效能人士應(yīng)當(dāng)注意工作中的調(diào)節(jié)與休息,這不但于自己健康有益,對事業(yè)也是大有好處的。及時化解人際關(guān)系矛盾與人際交往是一種藝術(shù),如果你曾為辦公室人際關(guān)系的難題而苦惱,無法忍受主管的反復(fù)無常,看不慣主管的假公濟(jì)私,那么你要嘗試學(xué)習(xí)如何與不同的人相處,提高自己化解人際矛盾的能力。一位哲人曾經(jīng)説過：“好習(xí)慣是一個人在社交場合中所能穿著最佳服飾。工作壓力會給我們的工作帶來種種不良的影響，形成工作狂或者完美主義等錯誤的工作習(xí)慣，這會大大地降低一個人的工作績效。在商業(yè)競爭中，對市場信息尤其是市場關(guān)鍵信息把握的及時性與準(zhǔn)確性，對競爭的成敗有著特殊的意義。因此，一名高效能人士要時常以“兼聽則明，偏聽則暗”的諫言提醒自己，多方地聽取他人的意見，以確保自己能夠做出正確的決定。有效決策一個好的決策思想，不是限期完成的，而是在反復(fù)思考、不斷推敲的過程中，在相關(guān)事物或其他活動中受啟發(fā)頓悟而產(chǎn)生和迸發(fā)出來的。不論多么困難，他們都要鼓勵自己再試一次。這對你工作績效的提高很有幫助。如果你在工作中是一個人心胸開闊、樂于幫助別人成功和愿意與他人分享榮譽的人的話，那么你就不愁沒有朋友。及時走出失敗高效能人士不會讓自己永遠(yuǎn)徘徊在失敗的陰影之下。環(huán)境能夠改變我們的思維與行為習(xí)慣，直接影響到我們的工作效能與生活。一名高效能人士的好口才加上禮儀禮節(jié)，往往可以為自己的工作錦上添花，如果我們能夠巧妙運用語言藝術(shù)，對協(xié)調(diào)人際關(guān)系、提高工作效能都將大有裨益。這是每一個人只要肯做就能做到的，也是一個人走向成功的必由之路。學(xué)會正確地應(yīng)對壓力就成了高效能人士必備的一項習(xí)慣。杜絕壞的生活習(xí)慣習(xí)慣有好有壞。專注目標(biāo)美國明尼蘇達(dá)礦業(yè)制造公司(3M)的口號是:,對個人工作也有指導(dǎo)作用。他明白在一個企業(yè)中，只有團(tuán)隊成功，個人才能成功。習(xí)慣1向競爭對手學(xué)習(xí)一位知名的企業(yè)家曾經(jīng)說過，“對手是一面鏡子，可以照見自己的缺陷。因此，在工作中，如果我們不能選擇正確的事情去做，那么唯一正確的事情就是停止手頭上的事情，直到發(fā)現(xiàn)正確的事情為止。蓋茨所説：“通向最高管理層的最迅捷的途徑，是主動承擔(dān)別人都不愿意接手的工作，并在其中展示你出眾的創(chuàng)造力和解決問題的能力?！爆F(xiàn)實中那些頂尖的成功人士不是成功了才設(shè)定目標(biāo)，而是設(shè)定了目標(biāo)才成功。之所以選擇VB這個平臺，除了VB開發(fā)Windows應(yīng)用程序的方便、高效外，也想對自己學(xué)習(xí)能力進(jìn)行一次檢測，使自己在一個目標(biāo)時間內(nèi)去熟悉一個平臺，熟悉一門語言。strPlayTime = Trim(Mid(textLine, 1, InStrRev(textLine, ])))//獲取顯示時間：如“00:”textLine = Trim(Mid(textLine, InStrRev(textLine, ]) + 1))//獲取顯示時間的歌詞：如“徘徊過多少櫥窗” textLine //添加至歌詞列表顯示若一個多個時間點對應(yīng)一句歌詞，如下形式：“[03:][03:][02:]吞風(fēng)吻雨葬落日未曾彷徨”處理稍微麻煩，但原理基本一樣，具體實現(xiàn)如下：While strPlayTime intTemp = InStr(1, strPlayTime, ], 1) num = InStr(1, strPlayTime, :, 1) strTemp = Mid(strPlayTime, 2, num 1) amp。LoopClose 1設(shè)置窗體控件位置及顯示大小：加載皮膚文件，主要是加載窗體圖片信息及控件顯示坐標(biāo)、大小信息，加載后初始化窗體進(jìn)行設(shè)置： Dim strPosition As String strPosition = (position).Text//獲取位置信息，包含距左、距上距離及寬高信息 Call slipStr(strPosition)//提取位置信息中的左上寬高信息存至winPosition(4)中。 = (X / ) * mediaLength//X為鼠標(biāo)單擊位置的橫坐標(biāo)(相對于進(jìn)度條背景圖片的位置)，X / 。有效的命名表達(dá)式或用戶自定義格式表達(dá)式。選定文件后可用 FileName 屬性獲取選定文件的名稱。CommonDialog 控件可以顯示如下常用對話框：“打開”、“另存為”、“顏色”、“字體”、“打印”顯示“打開”對話框有了“打開”對話框就可指定驅(qū)動器、目錄、文件擴展名和文件名。 )//加載系統(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é)點進(jìn)行狀態(tài)設(shè)置 Select Case Case Player //設(shè)置狀態(tài)信息操作 End SelectNext…… (filePath)//啟動播放 功能窗體區(qū)功能窗體模塊包含五個窗體：主播放窗體、媒體列表窗體、歌詞顯示窗體、迷你播放窗體、媒體文件信息窗體。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//以二進(jìn)制形式打開文件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)。狀態(tài)信息存儲在系統(tǒng)設(shè)置XML文件里面，通過loadPlayerSettings函數(shù)進(jìn)行讀取。dwMessage：為消息設(shè)置值，它可以是以下的常數(shù)值：0、2；NIM_ADD = 0 //加入圖標(biāo)到系統(tǒng)狀態(tài)欄中NIM_MODIFY = 1 //修改系統(tǒng)狀態(tài)欄中的圖標(biāo)NIM_DELETE = 2 //刪除系統(tǒng)狀態(tài)欄中的圖標(biāo)LpData：用以傳入N