Visual Basic编程制作Browser(网页浏览器)

【实例截图】

【核心代码】

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll"
Begin VB.Form Form3 
   Caption         =   "Form3"
   ClientHeight    =   6555
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   8745
   Icon            =   "浏览器9.frx":0000
   LinkTopic       =   "Form3"
   ScaleHeight     =   6555
   ScaleMode       =   0  'User
   ScaleWidth      =   8745
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   720
      TabIndex        =   0
      Text            =   "Combo1"
      Top             =   1920
      Width           =   2175
   End
   Begin SHDocVwCtl.WebBrowser WebBrowser1 
      Height          =   2655
      Left            =   720
      TabIndex        =   1
      Top             =   2280
      Width           =   6735
      ExtentX         =   11880
      ExtentY         =   4683
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   ""
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   495
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   3135
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
  Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
Attribute Web_V1.VB_VarHelpID = -1
Private Sub WebBrowser1_DownloadBegin()
  '让控件保持安静-忽略错误警告
  WebBrowser1.Silent = True
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmWB As Form4
Set frmWB = New Form4
frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Silent = True
End Sub

'防止出现脚本错误这类问题
Private Sub WebBrowser1_DownloadComplete()
WebBrowser1.Silent = True
End Sub
Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)
Processed = True
WebBrowser1.Navigate URL
End Sub

  Private Sub Form_Load()
    Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 "http://baidu.com/browse/74"
    WebBrowser1.Silent = True
    Me.Caption = "Internet Explorer V7.0 (精简版）"
    Label1.Caption = "Internet Explorer V7.0（精简版） 当今最好用的浏览器！"
    Combo1.Text = ""
    Combo1.Top = Label1.Height
    Combo1.Left = 0
    WebBrowser1.Top = Combo1.Top   Combo1.Height
    WebBrowser1.Left = 0
    Form_Resize
    End Sub

 
 Private Sub Form_Resize()
    On Error GoTo a
    Combo1.Width = Form1.Width - 100
    WebBrowser1.Width = Combo1.Width
    WebBrowser1.Height = Form1.Height - Combo1.Height - 1000
a:
    End Sub

    Private Sub Combo1_Click()
    WebBrowser1.Navigate Combo1.Text
    End Sub

 
    Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim I As Long
    Dim existed As Boolean
    If KeyCode = 13 Then
    If Left(Combo1.Text, 7) <> "http://" Then
    Combo1.Text = "http://"   Combo1.Text
    End If
    WebBrowser1.Navigate Combo1.Text
    For I = 0 To Combo1.ListCount - 1
    If Combo1.List(I) = Combo1.Text Then
    existed = True
    Exit For
    Else
    existed = False
    End If
    Next
    If Not existed Then
    Combo1.AddItem (Combo1.Text)
    End If
    End If
    End Sub
    
    Private Sub WebBrowser1_TitleChange(ByVal Text As String)
    Combo1.Text = WebBrowser1.LocationURL
    End Sub