如何屏蔽Real控件的右键菜单??

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

没有更多推荐了,返回首页

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试