rfb
asked on
Code to program order for playing RealAudio files
I need help in either finding an existing program or in writing the code to play Real Audio files in a particualar order and also have the ability to change the order during the playing of any one of the selections.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Do these steps rfb:
1 – Start new project (project1).
2 – Add the following controls to (form1):
a) RealAudio ActiveX (realaudio1) and set Visible property to False.
b) ListBox control (list1).
c) Command Button (command1) and set Caption to “Play”.
d) Command Button (command2) and set Caption to “Stop”.
3 – Copy and paste this code:
Private Sub Command1_Click()
If Command1.Caption = "Play" Then
Command1.Caption = "Pause"
Else
Command1.Caption = "Play"
End If
RealAudio1.Source = List1.Text
RealAudio1.DoPlayPause
End Sub
Private Sub Command2_Click()
RealAudio1.DoStop
End Sub
Private Sub Form_Load()
'Add a full path for RealAudio file
List1.AddItem "C:\RealAudio_File1"
List1.AddItem "C:\RealAudio_File2"
End Sub
1 – Start new project (project1).
2 – Add the following controls to (form1):
a) RealAudio ActiveX (realaudio1) and set Visible property to False.
b) ListBox control (list1).
c) Command Button (command1) and set Caption to “Play”.
d) Command Button (command2) and set Caption to “Stop”.
3 – Copy and paste this code:
Private Sub Command1_Click()
If Command1.Caption = "Play" Then
Command1.Caption = "Pause"
Else
Command1.Caption = "Play"
End If
RealAudio1.Source = List1.Text
RealAudio1.DoPlayPause
End Sub
Private Sub Command2_Click()
RealAudio1.DoStop
End Sub
Private Sub Form_Load()
'Add a full path for RealAudio file
List1.AddItem "C:\RealAudio_File1"
List1.AddItem "C:\RealAudio_File2"
End Sub
rfb,
Please post a comment if you are facing any problem with the code.
Please post a comment if you are facing any problem with the code.
ASKER