ITPub博客

首页 > 应用开发 > IT综合 > 用VB做realplayer播放列表 (转)

用VB做realplayer播放列表 (转)

原创 IT综合 作者:worldblog 时间:2007-12-12 11:48:23 0 删除 编辑
用VB做realplayer播放列表 (转)[@more@]

  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


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-991903/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2410887