Realplayer的列表播放,利用一个REALPLAYER的路径来实现的,在标准EXE窗体上,放置一个REALAUDIO1,和commondialog1,加二个按钮,LIST1命名为lstItems,一个按钮命名为添加文件,一个按钮为保存列表,在添加文件中加入下如代码:
Private Sub Command1_Click() Dim sTmp As String Dim strfix As String Dim i As Integer Dim yy As String CommonDialog1.ShowOpen sTmp = CommonDialog1.FileName If Len(sTmp) = 0 Then Exit Sub For i = 1 To Len(sTmp) strfix = Mid(sTmp, i, 1) If strfix = "\" Then strfix = "/" End If yy = yy & strfix Next i sTmp = "File://" & yy lstItems.AddItem sTmp
end sub
Private Sub Command2_Click() Dim s As Integer CommonDialog1.DialogTitle = "输入要保存的RM文件" CommonDialog1.Filter = "RealPlayer播放列表(*.RM)|*.RM" CommonDialog1.ShowSave If Len(CommonDialog1.FileName) = 0 Then Exit Sub End If Open CommonDialog1.FileName For Output As #1 For s = 0 To Me.lstItems.ListCount - 1 Print #1, Me.lstItems.List(s) Next s realaudio.source=commondialog.filename
realaudio.doplay
End Sub
Private Sub Form_Load() realaudio1.controls="imagewindow"
End Sub
如加上删除或移动文件,增加一些,修改一点,并可实现呀!
|