VB.NET禁用右键单击AxShockwaveFlash元素

Question

我试过在我的应用程序中禁用shockwave flash元素的内置右键单击菜单，但它不起作用。有没有办法在VB中禁用它？谢谢！

Answer 1

应该禁用鼠标右键单击事件：

public partial class Form1 : Form ,IMessageFilter // after the name space 
{  

    private const int WM_LBUTTONDOWN = 0x0201; 



    public Form1() 
    { 
     InitializeComponent(); 
     Application.AddMessageFilter(this); 
     this.FormClosed += new FormClosedEventHandler(this.Form1_FormClosed); 
    } 
    private void Form1_FormClosed(object sender, FormClosedEventArgs e) 
    { 
     Application.RemoveMessageFilter(this); 
    } 
    public bool PreFilterMessage(ref Message m) 
    { 
     //Filter out WM_NCRBUTTONDOWN/UP/DBLCLK 
     if (m.Msg == 0xA4 || m.Msg == 0xA5 || m.Msg == 0xA6) return true; 
     // Filter out WM_RBUTTONDOWN/UP/DBLCLK 
     if (m.Msg == 0x204 || m.Msg == 0x205 || m.Msg == 0x206) return true; 
     return false; 
    } 

Answer 2

这可以给你一个右击残疾人ShockWaveObject“只有4个简单的步骤”

在您的“形”添加的Shockwave Flash控制。

1.创建一个名为 “NoRightClickFlashControl.vb”

波纹代码粘贴到NoRightClickFlashControl.vb

Public Class NoRightClickFlashControl 

Inherits AxShockwaveFlashObjects.AxShockwaveFlash 
Private Const WM_RBUTTONDOWN As Integer = &H204 

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) 
    Select Case m.Msg 
     Case WM_RBUTTONDOWN 
      ' Do nothing on right-click 
      m.Result = New IntPtr(1) 
      Return 
    End Select 
    MyBase.WndProc(m) 
End Sub 

End Class 

2.更改的名称一个新的类文件的ShockwaveObject“AxShockwaveFlash1”到您的表单上的“NoRightClickFlashControl1”。然后，在最后

Private Sub InitializeComponent() 

'// Old is : Me.NoRightClickFlashControl1 = New AxShockwaveFlashObjects.AxShockwaveFlash() 

    '// Change like this 
    Me.NoRightClickFlashControl1 = New Your_Project_NameSpace.NoRightClickFlashControl 

    Me.SuspendLayout() 

，在： '和初始化SuspendLayout' 之间像波纹管在

打开Form.Designer.vb文件

3.更改代码 “End Class”文件附近的Form.Designer.vb - 更改以下内容：

'// Old is : Friend WithEvents NoRightClickFlashControl1 As AxShockwaveFlashObjects.AxShockwaveFlash 

    '// Change Like this : 
    Friend WithEvents NoRightClickFlashControl1 As NoRightClickFlashControl 

End Class '// the End Class is just o understand. 

所有其他的编码是相同的，以ShockwaveFlashObject - 加载电影，玩

据完成

按F5键运行！请享用！！！