|
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
如加上删除或移动文件，增加一些，修改一点，并可实现呀！
|
