首页 技术教程 实用代码 注册破解 正则表达式 网址导航 电子书籍

用VB做realplayer播放列表

Realplayer的列表播放,利用一个REALPLAYER的路径来实现的,在标准EXE窗体上,放置一个REALAUDIO1,和commondialog1,加二个按钮,LIST1命名为lstItems,一个按钮命名为添加文件,一个按钮为保存列表,在添加文件中加入下如代码: Private Sub Command1_Click()Dim sTmp As StringDim strfix As StringDim i As IntegerDim yy As StringCommonDialog1.ShowOpensTmp = CommonDialog1.FileNameIf Len(sTmp) = 0 Then Exit SubFor i = 1 To Len(sTmp)strfix = Mid(sTmp, i, 1)If strfix = "" Thenstrfix = "/"End Ifyy = yy & strfixNext isTmp = &...
类别:程序开发 - VB/.NET    查看:117    更新:2014-05-19