用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）

关键词：用VB做realplayer播放下文