Private Sub Form_Load() RealAudio1.Source = "rtsp://localhost/test.rm" RealAudio1.SetWantErrors True '设置为TRUE,播放器不会自动弹出错误提示窗口 RealAudio1.SetWantMouseEvents True '安置响应滑鼠事件 End Sub Private Sub RealAudio1_OnErrorMessage(ByVal uSeverity As Integer, ByVal uRMACode As Long, ByVal uUserCode As Long, ByVal pUserString As String, ByVal pMoreInfoURL As String, ByVal pErrorString As String) Select Case uRMACode Case -2147221496 MsgBox "文件没找到" Case -2147221433, -2147221428, -2147221417, -2147217468 MsgBox "网络繁忙连接不上服务器" Case Else MsgBox "未知错误" End Select End Sub Private Sub RealAudio1_OnRButtonDown(ByVal nFlags As Long, ByVal nX As Long, ByVal nY As Long) MsgBox "右键禁止" 'RealAudio右键选单一出来就被这个警告窗口给搞掉了 End Sub
