新建空白窗体,然后粘帖下面代码: Option ExplicitPublic WithEvents br As VBControlExtender Private Sub br_ObjectEvent(Info As EventInfo)If Info.Name = "NewWindow2" Then 'Dim fm As New Form1 'fm.Show 'Info.EventParameters(0) = br.object '根据需要可实现在自己的新开窗口打
原文:屏蔽webbrowser控件右键的一种方法 Option ExplicitPrivate Declare Sub ZeroMemory Lib "KERNEL32" Alias "RtlZeroMemory" (dest As Any, ByVal numBytes As Long)Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA&quo