Anyone know how can I remove the border and the right click menu from the IE ActiveX control?
Printable View
Anyone know how can I remove the border and the right click menu from the IE ActiveX control?
To remove right click menu from Webbrowser:
http://support.microsoft.com/support.../Q183/2/35.ASP
http://msdn.microsoft.com/downloads/...zer/sample.asp
Cheers. I'm having a look now.
I got rid of the border by putting it in a picturebox and making it slightly too big.
I know I could use javascript to make a message box appear everytime you right click (thus cancelling out the menu) but with a bit of luck the links you gave me should be better :)
Ok. I give up. It works on the sample, it doesn't work on mine. I dunno why. Here's my form:Any ideas?Code:VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
Begin VB.Form frmHelp
Caption = "Netatalk - Help"
ClientHeight = 5415
ClientLeft = 60
ClientTop = 345
ClientWidth = 9030
Icon = "frmHelp.frx":0000
LinkTopic = "Form1"
ScaleHeight = 5415
ScaleWidth = 9030
StartUpPosition = 3 'Windows Default
Begin VB.PictureBox picIEContainer
BorderStyle = 0 'None
Height = 4335
Left = 120
ScaleHeight = 4335
ScaleWidth = 8835
TabIndex = 3
Top = 960
Width = 8835
Begin SHDocVwCtl.WebBrowser webTopic
Height = 4335
Left = 0
TabIndex = 4
Top = 0
Width = 8835
ExtentX = 15584
ExtentY = 7646
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = ""
End
End
Begin VB.Image Image4
Height = 2475
Left = 3240
Picture = "frmHelp.frx":1042
Top = 6720
Visible = 0 'False
Width = 2415
End
Begin VB.Image Image3
Height = 1275
Left = 3240
Picture = "frmHelp.frx":14878
Top = 5400
Visible = 0 'False
Width = 1560
End
Begin VB.Image Image2
Height = 1695
Left = 120
Picture = "frmHelp.frx":1B052
Top = 6240
Visible = 0 'False
Width = 3000
End
Begin VB.Image Image1
Height = 810
Left = 120
Picture = "frmHelp.frx":2B96C
Top = 5400
Visible = 0 'False
Width = 1545
End
Begin VB.Label lblCopyright
Caption = "© Matthew Ralston 2000."
ForeColor = &H00FF0000&
Height = 240
Left = 795
TabIndex = 0
Top = 555
Width = 1920
End
Begin VB.Label lblNeta
Caption = "Neta"
BeginProperty Font
Name = "Arial"
Size = 20.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 480
Left = 765
TabIndex = 2
Top = 120
Width = 885
End
Begin VB.Label lblTalk
Caption = "talk"
BeginProperty Font
Name = "Arial"
Size = 20.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 1650
TabIndex = 1
Top = 120
Width = 1095
End
Begin VB.Image imgLogo
Height = 480
Left = 120
Picture = "frmHelp.frx":2FB7E
Top = 210
Width = 480
End
End
Attribute VB_Name = "frmHelp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim sPath As String
sPath = App.Path
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
webTopic.Navigate sPath & "help\frames.html"
Dim objWebCust As WBCustomizer
Set objWebCust = New WBCustomizer
Set objWebCust.WebBrowser = webTopic
objWebCust.EnableContextMenus = False
End Sub
Private Sub Form_Resize()
On Error Resume Next
picIEContainer.Move 0, picIEContainer.Top, ScaleWidth, ScaleHeight - picIEContainer.Top
webTopic.Move -30, -30, picIEContainer.ScaleWidth + 60, picIEContainer.ScaleHeight + 60
End Sub
Private Sub lblCopyright_Click()
Open_Web_Site 0, "http://www.mralston.co.uk"
End Sub