『教程』用VB做realplayer播放列表_海蓝冰◇雪儿吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：47贴子：
『教程』用VB做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
Private&Sub&Command2_Click()
Dim&s&As&Integer
CommonDialog1.DialogTitle&=&&输入要保存的RM文件&
CommonDialog1.Filter&=&&播放列表（*.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
Private&Sub&Form_Load()
realaudio1.controls=&imagewindow&
如加上删除或移动文件，增加一些，修改一点，并可实现呀！
1楼 14:03&|
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
使用签名档&&
为兴趣而生，贴吧更懂你。或CSDN网站正在维护中,会尽快恢复关于VB里的RealAudio1控件实现播放视频_百度知道
关于VB里的RealAudio1控件实现播放视频
我使用了 RealAudio1控件但是却不播放视频只有声音``在线等```高手来答
我有更好的答案
按默认排序
Audio说什么
。。。。。。。
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁CSDN网站正在维护中,会尽快恢复}