急!~~谁知道如何屏蔽或替换RealPlayer控件中的右键菜单啊~~~(在线等待)

Question

急!~~谁知道如何屏蔽或替换RealPlayer控件中的右键菜单啊
100分啊,问题解决肯定给分啊!!!!!

Answer 1

这样:
在窗体上先画上picture1,在picture1中(注意)画上picture2,在picture2中画上realaudio1
菜单:一级菜单menu_file(不可见)menu_play,二级菜单menu_play,menu_pause,menu_stop(均可见),然后设置picture2的enabled属性为false(屏蔽realaudio控件的右键菜单),然后设置picture1的enabled属性为true(显示自己的右键菜单),下面是简单的代码:
Private Sub Form_Load()
    Picture2.Left = 0
    Picture2.Top = 0
    Picture2.Width = Me.Picture1.Width
    Picture2.Height = Me.Picture1.Height
    RealAudio1.Left = 0
    RealAudio1.Top = 0
    RealAudio1.Width = Me.Picture1.Width
    RealAudio1.Height = Me.Picture1.Height
    RealAudio1.Controls = "imagewindow"
    RealAudio1.Source = App.Path + "\123.rm"
    RealAudio1.DoPlay
End SubPrivate Sub menu_pause_Click()
    RealAudio1.DoPause
End SubPrivate Sub menu_play_Click()
    RealAudio1.DoPlay
End SubPrivate Sub menu_stop_Click()
    RealAudio1.DoStop
End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        PopupMenu menu_file
    End If
End Sub优点:简单,容易实现
缺点:realaudio的控制将不能使用,必须自己用控件,代码控制影片,不过,还是可以的,毕竟,用代码控制影片很容易实现