ActiveX Programming Unleashed CD/AXU.iso/source/chap07/lst71.frm

Visual Basic Form | 1996-11-19 | 5.7 KB | 172 lines

VERSION 4.00
Begin VB.Form Form1
   Caption         =   "Custom Web Browsing"
   ClientHeight    =   5940
   ClientLeft      =   360
   ClientTop       =   2085
   ClientWidth     =   8940
   Height          =   6345
   Left            =   300
   LinkTopic       =   "Form1"
   ScaleHeight     =   5940
   ScaleWidth      =   8940
   Top             =   1740
   Width           =   9060
   Begin VB.CommandButton btnGo
      BackColor       =   &H00808080&
      Caption         =   "Go"
      Height          =   375
      Left            =   4080
      TabIndex        =   3
      Top             =   0
      Width           =   615
   End
   Begin VB.TextBox txtAddress
      Height          =   375
      Left            =   960
      TabIndex        =   2
      Text            =   "http://www.microsoft.com"
      Top             =   0
      Width           =   3015
   End
   Begin VB.Image imageSearch
      Height          =   525
      Left            =   7800
      Picture         =   "lst71.frx":0000
      Top             =   0
      Width           =   585
   End
   Begin VB.Image imageHome
      Height          =   525
      Left            =   7200
      Picture         =   "lst71.frx":033E
      Top             =   0
      Width           =   585
   End
   Begin VB.Image imageRefresh
      Height          =   525
      Left            =   6600
      Picture         =   "lst71.frx":067C
      Top             =   0
      Width           =   585
   End
   Begin VB.Image imageStop
      Height          =   525
      Left            =   6000
      Picture         =   "lst71.frx":09BA
      Top             =   0
      Width           =   585
   End
   Begin VB.Image imageForward
      Height          =   525
      Left            =   5400
      Picture         =   "lst71.frx":0CF8
      Top             =   0
      Width           =   585
   End
   Begin VB.Image imageBack
      Height          =   525
      Left            =   4800
      Picture         =   "lst71.frx":1036
      Top             =   0
      Width           =   585
   End
   Begin VB.Label Label1
      BackColor       =   &H00808080&
      Caption         =   "Address"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   0
      Width           =   735
   End
   Begin SHDocVwCtl.WebBrowser WebBrowser1
      Height          =   4575
      Left            =   120
      TabIndex        =   0
      Top             =   600
      Width           =   8670
      Object.Height          =   202
      Object.Width           =   382
      AutoSize        =   0
      ViewMode        =   1
      AutoSizePercentage=   0
      AutoArrange     =   -1  'True
      NoClientEdge    =   -1  'True
      AlignLeft       =   0   'False
   End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub btnGo_Click()
    WebBrowser1.Navigate txtAddress
End Sub
Private Sub imageBack_Click()
    'go back one item in the history list
    WebBrowser1.GoBack
End Sub
Private Sub imageForward_Click()
    'go one item forward in the history list
    WebBrowser1.GoForward
End Sub
Private Sub imageHome_Click()
    'go to the current page or start page
    WebBrowser1.GoHome
End Sub
Private Sub imageRefresh_Click()
    'reload the page that is displaying
    WebBrowser1.Refresh
End Sub
Private Sub imageSearch_Click()
    'go to the current search page specified
    'in the internet control panel and the IE option
    'dialog box
    WebBrowser1.GoSearch
End Sub
Private Sub imageStop_Click()
    'stop the downloading or navigation
    WebBrowser1.Stop
End Sub
Private Sub WebBrowser1_BeforeNavigate(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)
    Debug.Print "beforeNavigation"
End Sub
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
    Debug.Print "CommandStateChange"
End Sub
Private Sub WebBrowser1_DownloadBegin()
    Debug.Print "DownloadBegin"
End Sub
Private Sub WebBrowser1_DownloadComplete()
    Debug.Print "DownloadComplete"
End Sub
Private Sub WebBrowser1_FrameBeforeNavigate(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)
    Debug.Print "FrameBeforeNavigate"
End Sub
Private Sub WebBrowser1_FrameNavigateComplete(ByVal URL As String)
    Debug.Print "FrameNavigateComplete"
End Sub
Private Sub WebBrowser1_FrameNewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
    Debug.Print "FrameNewWindow"
End Sub
Private Sub WebBrowser1_NavigateComplete(ByVal URL As String)
    Debug.Print "NavigateComplete"
End Sub
Private Sub WebBrowser1_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
    Debug.Print "NewWindow"
End Sub
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    Debug.Print "ProgressChange"
End Sub
Private Sub WebBrowser1_PropertyChange(ByVal szProperty As String)
    Debug.Print "PropertyChange"
End Sub
Private Sub WebBrowser1_Quit(Cancel As Boolean)
    Debug.Print "Quit"
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    Debug.Print "StatusTextChange"
End Sub
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
    Debug.Print "TitleChange"
End Sub