用做播放列表
2021-09-06 来源:黑龙江租房网
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
owOpen
sTmp = leName
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 = \" yy
dItem sTmp
end sub
Private Sub Command2_Click()
Dim s As Integer
alogTitle = \"输入要保存的RM文件\"
lter = \"RealPlayer播放列表(*.RM)|*.RM\"
owSave
If Len(leName) = 0 Then
Exit Sub
End If
Open leName For Output As #1
For s = 0 To stCount - 1
Print #1, st(s)
Next s
urce=lename
play
End Sub
他就曾经向西方国家领导人表示将尽一切所能“保护俄的核心利益”。 Private Sub Form_Load()
ntrols=\"imagewindow\"
End Sub
如加上删除或移动文件,增加一些,修改一点,并可实现呀!
合肥哪里能治疗白癜风蒙脱石散怎么吃
拉萨治白癜风医院
-
- 上一篇
- 用为软件增加注册功能的
-
- 下一篇
- 用写歌词搜索程序物业