Results 1 to 4 of 4

Thread: Removing border and the right click menu from IE control

  1. #1
    Guest
    Anyone know how can I remove the border and the right click menu from the IE ActiveX control?

  2. #2

  3. #3
    Guest
    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

  4. #4
    Guest
    Ok. I give up. It works on the sample, it doesn't work on mine. I dunno why. Here's my form:
    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
    Any ideas?

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width