RealPlayer's list play, using a REALPLAYER's path to implement, on the standard EXE form, place a realAudio1, and commonDialog1, plus two buttons, list1 named lstractitems, a button is named Add file, a button is saved list , Add a file to the code:
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 = "/" "=" / "end if yy = yy & strfix next i stmp =" file: // "& yy lstractitems.addItem STMP
End Sub
Private Sub Command2_Click () Dim s As IntegerCommonDialog1.DialogTitle = "Enter the file to be saved RM" CommonDialog1.Filter = "RealPlayer Playlist (* .RM) | * .RM" CommonDialog1.ShowSaveIf Len (CommonDialog1.FileName) = 0 ThenExit Subend ifopen compondialog1.filename for output as # 1for s = 0 to me.lstitems.listcount - 1Print # 1, me.lstitems.list (s) Next Srealaudio.Source = CommonDialog.FileName
ReaRaudio.doplay
End Sub
Private Sub Form_Load () ReaRaudio1.controls = "ImageWindow"
End Sub
In addition to deleting or moving files, add some, modify a little, and can be implemented!
2002.1.1
