home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch17 / sprbrwsr / sprbrwsr.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  5.0 KB  |  140 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.0#0"; "SHDOCVW.DLL"
  4. Begin VB.Form SuperBrowser 
  5.    Caption         =   "SuperBrrrrrowser"
  6.    ClientHeight    =   6450
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   8835
  10.    FillColor       =   &H00FFFFFF&
  11.    FillStyle       =   0  'Solid
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   6450
  14.    ScaleWidth      =   8835
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin TabDlg.SSTab SSTab1 
  17.       Height          =   5700
  18.       Left            =   120
  19.       TabIndex        =   0
  20.       Top             =   270
  21.       Width           =   8550
  22.       _ExtentX        =   15081
  23.       _ExtentY        =   10054
  24.       _Version        =   262144
  25.       TabHeight       =   520
  26.       TabCaption(0)   =   "Tab 0"
  27.       TabPicture(0)   =   "SprBrwsr.frx":0000
  28.       Tab(0).ControlCount=   1
  29.       Tab(0).ControlEnabled=   -1  'True
  30.       Tab(0).Control(0)=   "WebBrowser1(0)"
  31.       Tab(0).Control(0).Enabled=   0   'False
  32.       TabCaption(1)   =   "Tab 1"
  33.       TabPicture(1)   =   "SprBrwsr.frx":001C
  34.       Tab(1).ControlCount=   1
  35.       Tab(1).ControlEnabled=   0   'False
  36.       Tab(1).Control(0)=   "WebBrowser1(1)"
  37.       Tab(1).Control(0).Enabled=   0   'False
  38.       TabCaption(2)   =   "Tab 2"
  39.       TabPicture(2)   =   "SprBrwsr.frx":0038
  40.       Tab(2).ControlCount=   1
  41.       Tab(2).ControlEnabled=   0   'False
  42.       Tab(2).Control(0)=   "WebBrowser1(2)"
  43.       Tab(2).Control(0).Enabled=   0   'False
  44.       Begin SHDocVwCtl.WebBrowser WebBrowser1 
  45.          Height          =   4725
  46.          Index           =   0
  47.          Left            =   240
  48.          TabIndex        =   1
  49.          Top             =   615
  50.          Width           =   7980
  51.          Object.Height          =   315
  52.          Object.Width           =   532
  53.          AutoSize        =   0
  54.          ViewMode        =   1
  55.          AutoSizePercentage=   0
  56.          AutoArrange     =   -1  'True
  57.          NoClientEdge    =   -1  'True
  58.          AlignLeft       =   0   'False
  59.       End
  60.       Begin SHDocVwCtl.WebBrowser WebBrowser1 
  61.          Height          =   4860
  62.          Index           =   1
  63.          Left            =   -74700
  64.          TabIndex        =   2
  65.          Top             =   600
  66.          Width           =   7995
  67.          Object.Height          =   324
  68.          Object.Width           =   533
  69.          AutoSize        =   0
  70.          ViewMode        =   1
  71.          AutoSizePercentage=   0
  72.          AutoArrange     =   -1  'True
  73.          NoClientEdge    =   -1  'True
  74.          AlignLeft       =   0   'False
  75.       End
  76.       Begin SHDocVwCtl.WebBrowser WebBrowser1 
  77.          Height          =   4770
  78.          Index           =   2
  79.          Left            =   -74670
  80.          TabIndex        =   3
  81.          Top             =   585
  82.          Width           =   7935
  83.          Object.Height          =   318
  84.          Object.Width           =   529
  85.          AutoSize        =   0
  86.          ViewMode        =   1
  87.          AutoSizePercentage=   0
  88.          AutoArrange     =   -1  'True
  89.          NoClientEdge    =   -1  'True
  90.          AlignLeft       =   0   'False
  91.       End
  92.    End
  93.    Begin VB.Label Label1 
  94.       BeginProperty Font 
  95.          Name            =   "MS Sans Serif"
  96.          Size            =   9.75
  97.          Charset         =   0
  98.          Weight          =   400
  99.          Underline       =   0   'False
  100.          Italic          =   0   'False
  101.          Strikethrough   =   0   'False
  102.       EndProperty
  103.       Height          =   300
  104.       Left            =   135
  105.       TabIndex        =   4
  106.       Top             =   6045
  107.       Width           =   3360
  108.    End
  109. Attribute VB_Name = "SuperBrowser"
  110. Attribute VB_GlobalNameSpace = False
  111. Attribute VB_Creatable = False
  112. Attribute VB_PredeclaredId = True
  113. Attribute VB_Exposed = False
  114. Private Sub Form_Load()
  115.     WebBrowser1(0).Navigate "http://home.microsoft.com"
  116.     WebBrowser1(1).Navigate "http://www.sybex.com"
  117.     WebBrowser1(2).Navigate "http://www.alta-vista.com"
  118. End Sub
  119. Private Sub WebBrowser1_BeforeNavigate(Index As Integer, ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)
  120.     SSTab1.TabCaption(Index) = URL
  121. End Sub
  122. Private Sub WebBrowser1_DownloadBegin(Index As Integer)
  123. Debug.Print "Started Download for tab #" & Index
  124. End Sub
  125. Private Sub WebBrowser1_DownloadComplete(Index As Integer)
  126. Debug.Print "Completed download for tab #" & Index
  127. End Sub
  128. Private Sub WebBrowser1_NavigateComplete(Index As Integer, ByVal URL As String)
  129.     SSTab1.TabCaption(Index) = WebBrowser1(Index).LocationName
  130. End Sub
  131. Private Sub WebBrowser1_ProgressChange(Index As Integer, ByVal Progress As Long, ByVal ProgressMax As Long)
  132. If Index = 0 Then
  133.     If Progress >= 0 Then
  134.         Label1.Caption = "Download Progress " & Progress & "/" & ProgressMax
  135.     Else
  136.         Label1.Caption = "Page downloaded"
  137.     End If
  138. End If
  139. End Sub
  140.