用VB做realplayer播放列表

原创 2002年02月16日 23:34:00

       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

用vb制作简单的播放器

看了这篇文章的标题,你是不是想拥有一个自己制作的播放器呢?那就继续向下看吧。       1、因为我们需要使用到MediaPlayer控件,所以刚开始就要右击工具面板并在部件添加窗口里选择“Wind...
  • renmengmeng520
  • renmengmeng520
  • 2016年03月22日 20:33
  • 2371

带有播放列表的网页播放器

最近一个学弟又找我,问我带列表的播放器如何写。我大体告诉了一下他思路,用一个列表标签...
  • Tro_picana
  • Tro_picana
  • 2014年06月20日 21:43
  • 1019

HLS科普5 播放列表

播放列表必须是扩展的M3U文件,该文档通过定义新的标签扩展了m3u文件的格式。M3U播放列表是一个文本文件,它包含了各自独立的行。 HLS的播放列表文本文件必须是UTF-8编码格式。 M3U播放列...
  • cabbage2008
  • cabbage2008
  • 2016年01月25日 22:30
  • 623

HTML5+JavaScript+CSS实现音乐播放器——难点一:动态生成播放列表

通过解析Json格式的数组,动态为列表设置信息
  • Ritajiaojiao
  • Ritajiaojiao
  • 2017年10月22日 10:53
  • 604

怎么在水果音乐制作软件播放列表中排列样式

我们在FL Studio中做好了节奏样式后就可以在播放列表窗口中进行乐曲的编排了。刚接触这款软件的同学肯定会对如何编排比较陌生但也比较憧憬的,因为它是从一个窗口到另一个窗口中的操作。其实明白了这里的知...
  • flstudiosoft
  • flstudiosoft
  • 2017年01月06日 10:57
  • 703

vb接口的实现

'什么是回调函数?回调函数就是由你自己写的。你需要调用另外一个函数,而这个函数的其中一个参数,就 '是你的这个回调函数名。回调函数与普通的函数没有什么区别,其之所以称之为回调函数,是因为这个函数 '作...
  • sdgaojian
  • sdgaojian
  • 2013年12月29日 18:36
  • 1002

VB模拟出的按键精灵大部分功能

原贴:[原创帖]VB模拟出的按键精灵大部分功能 http://www.52pojie.cn/thread-46719-1-1.html (出处: 吾爱破解论坛) 模块部分:   Priv...
  • quanxusheng
  • quanxusheng
  • 2016年06月09日 21:38
  • 2383

高仿今日头条视频列表功能

高仿今日头条视频列表功能
  • mwq384807683
  • mwq384807683
  • 2017年04月21日 14:00
  • 800

android音乐播放器开发 SweetMusicPlayer 加载歌曲列表

android音乐播放器开发   SweetMusicPlayer   加载歌曲列表 上一篇写了播放器的整体实现思路, http://blog.csdn.net/huweigoodboy/arti...
  • huweigoodboy
  • huweigoodboy
  • 2014年10月07日 22:29
  • 5769

VB 编写的 文档管理系统

VB 对档案管理 有高效的处理效果,可以弄个工具,更加professional 工作。 More professional, more potential to achieve success....
  • shenghuiping2001
  • shenghuiping2001
  • 2015年04月07日 17:53
  • 541
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB做realplayer播放列表
举报原因:
原因补充:

(最多只允许输入30个字)