【文章內(nèi)容簡介】 lename(i).Length If (filename(i), j + 1).Chars(0) = \ Then strfile(i) = CType((filename(i), j), String) strfile(i) = CType((strfile(i), 第 11 頁 共 26 頁 strfile(i).Length 4), String) For i = 0 To file 1 播放列表 .(i + 1 amp。 . amp。 strfile(i)) (filename(i)) 4）自動播放： = filename(0) 播放列表 .SetSelected(0, True) cmbAdd() 5）操作流程： 單擊圖 3 上面的‘打開’按鈕，彈出文件加載對話框，如圖 6所示： 圖 6打開彈出對話框 選擇要打開的文件，單擊圖 6的“打開”按鈕，加載文件成功。 加載成功后對比加載前后的播放列表發(fā)現(xiàn)打開的文件代替了播放列表中原有的文件。如圖 7， 8所示： 第 12 頁 共 26 頁 圖 7“打開”操作前播放列表圖 圖 8“打開”操作后播放列表圖 添加 添加系統(tǒng)的功能是向播放列表添加多媒體文件，一次可以添加一個或者多個文件，不影響播放列表中的原有文件，僅僅是在其后增加文件。其實現(xiàn)代碼相比打開僅僅是少了清空播放列表的代碼，在這里就不贅言了。 操作流程：單擊圖 3上面的“添加”按鈕，彈出打開對話框，如圖 9 所示， 圖 9添加彈出對話框 第 13 頁 共 26 頁 選擇要添加的文件，單擊圖 9上的“打開”按鈕，添加成功。添加前后的 播放列表對比，如圖 10， 11所示： 圖 10 添加操作后播放列表圖 圖 11添加操作前播放列表圖 清空 清空系統(tǒng)的功能是清空播放列表中加載的文件，清空后播放完當(dāng)前正在播放的文件后就不會播放清空前加載的文件。其實現(xiàn)代碼為： () 播放列表 .() intcount = 0 = writeIndex(0) IsChange = True 操作 流程：單擊圖 3的“清空”按紐，清空播放列表里面的文件，播放列表在清空前后的對比圖如圖 12， 13 所示： 第 14 頁 共 26 頁 圖 12清空前播放列表圖 圖 13清空后播放列表圖 文件播放系統(tǒng) 暫停 /播放 當(dāng)正在播放文件時，按鈕顯示為暫停，單擊按鈕，播放停止，按鈕轉(zhuǎn)換為播放，再次單擊按鈕，文件從上次暫停處繼續(xù)播放，按鈕轉(zhuǎn)換為暫停。其實現(xiàn)代碼為： Isplay = Not Isplay If Isplay = True Then = 播放 () Else = 暫停 第 15 頁 共 26 頁 () End If 停止 單擊停止按鈕，正在播放的文件停止播放，播放進度條跳回到起點，暫停 /播放按鈕由暫停狀態(tài)轉(zhuǎn)變成為播放狀態(tài)。其實現(xiàn)代碼為：() = False = False = Isplay = Not Isplay If Isplay = True Then = 播放 End If 自定義播放順序 當(dāng)用戶想通過自己的操作隨意改變播放的順序時，可以采取三種方式：單擊上一首按鈕；單擊下一首按鈕 ；在播放列表中雙擊任意一個文件的名稱，從而實現(xiàn)自定義播放順序。 1）上一首 單擊上一首按鈕，播放器馬上停止播放當(dāng)前文件，重新開始播放上一個文件，當(dāng)播放器列表中只有一個文件或者是正在播放第一個文件或者單擊上一首倒退到第一個文件，上一首按鈕將失去作用。其實現(xiàn)代碼為： If 0 And intcount 0 Then = (intcount 1) intcount = intcount 1 播放列表 .SetSelected(intcount, True) = ((intcount)) If intcount 0 Then = 第 amp。 intcount + 1 amp。 首 Else = 第 1 首 End If = True 2）下一首 單擊下一首按鈕，播放器將停止播放當(dāng)前文件，重新開始播放下一個文件，第 16 頁 共 26 頁 當(dāng)播放器列表中只有一個文件或者是正在播放最后一個文件或者單擊下一首前進到最后一個文件，下一首按鈕將失去作用。其實現(xiàn)代碼為： If intcount + 1 Then = (intcount + 1) intcount = intcount + 1 播放列表 .SetSelected(intcount, True) = ((intcount)) = 第 amp。 intcount + 1 amp。 首 = True Exit Sub End If 3）雙擊播放列表中文件名稱 雙擊播放列表中任意一個文件名稱，播放器將會結(jié)束當(dāng)前正在播放的文件轉(zhuǎn)到播放用戶選擇的文件，播放完用戶選擇的文件后，播放器將自動從選擇文件后連續(xù)播放其他文件。其實現(xiàn)代碼為： 播放列表 .SetSelected(CInt(), True) intcount = CInt() = ((intcount)) = ((intcount)) If = False Then = True End If = True 連續(xù)播放多個文件的實現(xiàn) 播放器開始播放后將連續(xù)播放后面的其他文件，不需要用戶再去手動才能繼續(xù)播放，使整個播放過程自動化，連續(xù)化，從而使用戶全身心傾聽或者觀看多媒體文件。其實現(xiàn)代碼為： strfilename = For i = 0 To 播放列表 . 1 If 播放列表 .(i) = CStr(i + 1 amp。 . amp。 strfilename) Then 播放列表 .SetSelected(i + 1, True) intcount = i + 1 = ((intcount)) 第 17 頁 共 26 頁 If = False Then = True End If = True = 第 amp。 intcount amp。 首 Exit Sub End If Next If (經(jīng)查沒有這首歌曲 ,是否另選歌曲 ?, 信息 , , , ) = Then () () Else Exit Sub End If End If 記憶播放 當(dāng)播放器 列表 中 的文件還沒有播放完畢就關(guān)閉播放器，但是下次再打開播放器的時候想從上次關(guān)閉時的文件開始播放，這就是所謂的記憶播放功能。首先通過創(chuàng)建一個文件，當(dāng)關(guān)閉的時候把關(guān)閉時候的播放列表信息寫進文件，再次打開播放器便從文件中讀出播放列表中的信息，從而實現(xiàn)記憶播放功能。其實現(xiàn)代碼為： 1）寫入信息： If ( amp。 \) Then ( amp。 \) End If Dim obj As New StreamWriter( amp。 \, True) (intCount) () 2）讀出信息： 第 18 頁 共 26 頁 If ( amp。 \) Then Dim obj As New StreamReader( amp。 \, True) strtest = () intcount = 0 + strtest () End If 3） 打開播放器讀入播放列表信息： Dim reader As New XmlTextReader(filename) Try Do While (()) Select Case Case If = PathName Then () () ElseIf = FileName Then () 播放列表 .() End If End Select Loop () Catch ex As Exception Finally If Not reader Is Nothing Then () End If End Try 在實例再次打開函數(shù)中引用函數(shù) readIndex()，當(dāng)播放器再次打開時，就會從文件中讀卻保存下來的信息，從而實現(xiàn)記憶播放的功能。 關(guān)閉 當(dāng)播放列表 中的文件播放完畢后，用戶可以選擇循環(huán)播放，或者是關(guān)閉播放器。設(shè)一變量 Dim plyCount As Boolean = True， 在 默認(rèn)情況下變量為真，并第 19 頁 共 26 頁 使播放器循環(huán)播放，如果變量為假，則使播放器播放完列表文件就關(guān)閉播放器。其實現(xiàn)代碼為： If intcount = And plyCount = True Then intcount = 0 = (intcount) (intcount, True) 39。//使其被選中 = ((intcount)) = 第 amp。 intcount + 1 amp。 首 = True End If If intcount = And plyCount = False Then intcount = 0 writeIndex(intcount) () End If 操作流程： 在默認(rèn)下播放器自動循環(huán)播放，如果要選擇播放完一次就關(guān)閉播放列表則單擊圖 3 上面的“操作”菜單，選擇“播放”選擇“播放一次就關(guān)閉”。 如圖 14 所示： 第 20 頁 共 26 頁 圖 14選擇關(guān)閉播放器圖 全屏 為了用戶能更好的享受多媒體帶來的視覺享受，項目增加了全屏功能，其實現(xiàn)代碼為： Try = True Catch ex As Exception MsgBox() End Try 全屏的實現(xiàn)是有條件的，當(dāng)播放器正在播放或者暫停文件時候，可以全屏