用VB做realplayer播放列表

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

如加上删除或移动文件，增加一些，修改一点，并可实现呀！

2002。1。1