调用RealPlayer控件播放rm格式 给个简单的用法代码:
播放01.rm
Private Sub Command1_Click()
RealAudio1.Source = "c:\01.rm"
RealAudio1.DoPlay
End Sub
播放01.rm
Private Sub Command1_Click()
RealAudio1.Source = "c:\01.rm"
RealAudio1.DoPlay
End Sub
调试欢乐多
RL为我的realplay控件得名称,file1为rm得路径和名称
RL.Source = File1
RL.AutoStart = True
RL.DoPlay
RL.NoLabels = False
RL.Console = "clip1"
RL.SetConsoleEvents False
RL.SetShowStatistics False
RL.SetEnableContextMenu False
RL.Controls = "ImageWindow,ControlPanel"‘这个是设置显示得,有控制面版,没有状态栏