Oct 21st, 2000, 08:25 PM
Anyone know how can I remove the border and the right click menu from the IE ActiveX control?
|
Click to See Complete Forum and Search --> : Removing border and the right click menu from IE control Oct 21st, 2000, 08:25 PM Anyone know how can I remove the border and the right click menu from the IE ActiveX control? Oct 21st, 2000, 09:34 PM To remove right click menu from Webbrowser: http://support.microsoft.com/support/kb/articles/Q183/2/35.ASP http://msdn.microsoft.com/downloads/samples/internet/browser/wbcustomizer/sample.asp Oct 22nd, 2000, 07:50 AM 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 :) Oct 22nd, 2000, 07:03 PM Ok. I give up. It works on the sample, it doesn't work on mine. I dunno why. Here's my form: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 Any ideas? vbforums.com
Copyright 2007 Jupitermedia Corporation All Rights Reserved. |