首页 >> 租房资讯

用做播放列表

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

如加上删除或移动文件,增加一些,修改一点,并可实现呀!

合肥哪里能治疗白癜风
蒙脱石散怎么吃
拉萨治白癜风医院