home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch21 / sprbrwsr / sprbrwsr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-05-19  |  5.7 KB  |  158 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.1#0"; "SHDOCVW.DLL"
  4. Begin VB.Form SuperBrowser 
  5.    Caption         =   "SuperBrrrrrowser"
  6.    ClientHeight    =   6450
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11010
  10.    FillColor       =   &H00FFFFFF&
  11.    FillStyle       =   0  'Solid
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   6450
  14.    ScaleWidth      =   11010
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin TabDlg.SSTab SSTab1 
  17.       Height          =   5775
  18.       Left            =   120
  19.       TabIndex        =   0
  20.       Top             =   195
  21.       Width           =   10800
  22.       _ExtentX        =   19050
  23.       _ExtentY        =   10186
  24.       _Version        =   393216
  25.       TabHeight       =   635
  26.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  27.          Name            =   "MS Sans Serif"
  28.          Size            =   8.25
  29.          Charset         =   0
  30.          Weight          =   400
  31.          Underline       =   0   'False
  32.          Italic          =   0   'False
  33.          Strikethrough   =   0   'False
  34.       EndProperty
  35.       TabCaption(0)   =   "Tab 0"
  36.       TabPicture(0)   =   "SprBrwsr.frx":0000
  37.       Tab(0).ControlEnabled=   -1  'True
  38.       Tab(0).Control(0)=   "WebBrowser1(0)"
  39.       Tab(0).Control(0).Enabled=   0   'False
  40.       Tab(0).ControlCount=   1
  41.       TabCaption(1)   =   "Tab 1"
  42.       TabPicture(1)   =   "SprBrwsr.frx":001C
  43.       Tab(1).ControlEnabled=   0   'False
  44.       Tab(1).Control(0)=   "WebBrowser1(1)"
  45.       Tab(1).ControlCount=   1
  46.       TabCaption(2)   =   "Tab 2"
  47.       TabPicture(2)   =   "SprBrwsr.frx":0038
  48.       Tab(2).ControlEnabled=   0   'False
  49.       Tab(2).Control(0)=   "WebBrowser1(2)"
  50.       Tab(2).ControlCount=   1
  51.       Begin SHDocVwCtl.WebBrowser WebBrowser1 
  52.          Height          =   5160
  53.          Index           =   0
  54.          Left            =   120
  55.          TabIndex        =   1
  56.          Top             =   420
  57.          Width           =   10575
  58.          ExtentX         =   18653
  59.          ExtentY         =   9102
  60.          ViewMode        =   1
  61.          Offline         =   0
  62.          Silent          =   0
  63.          RegisterAsBrowser=   0
  64.          RegisterAsDropTarget=   0
  65.          AutoArrange     =   -1  'True
  66.          NoClientEdge    =   -1  'True
  67.          AlignLeft       =   0   'False
  68.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  69.          Location        =   ""
  70.       End
  71.       Begin SHDocVwCtl.WebBrowser WebBrowser1 
  72.          Height          =   5160
  73.          Index           =   1
  74.          Left            =   -74865
  75.          TabIndex        =   3
  76.          Top             =   420
  77.          Width           =   10560
  78.          ExtentX         =   18627
  79.          ExtentY         =   9102
  80.          ViewMode        =   1
  81.          Offline         =   0
  82.          Silent          =   0
  83.          RegisterAsBrowser=   0
  84.          RegisterAsDropTarget=   0
  85.          AutoArrange     =   -1  'True
  86.          NoClientEdge    =   -1  'True
  87.          AlignLeft       =   0   'False
  88.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  89.          Location        =   ""
  90.       End
  91.       Begin SHDocVwCtl.WebBrowser WebBrowser1 
  92.          Height          =   5160
  93.          Index           =   2
  94.          Left            =   -74880
  95.          TabIndex        =   4
  96.          Top             =   435
  97.          Width           =   10575
  98.          ExtentX         =   18653
  99.          ExtentY         =   9102
  100.          ViewMode        =   1
  101.          Offline         =   0
  102.          Silent          =   0
  103.          RegisterAsBrowser=   0
  104.          RegisterAsDropTarget=   0
  105.          AutoArrange     =   -1  'True
  106.          NoClientEdge    =   -1  'True
  107.          AlignLeft       =   0   'False
  108.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  109.          Location        =   ""
  110.       End
  111.    End
  112.    Begin VB.Label Label1 
  113.       BeginProperty Font 
  114.          Name            =   "MS Sans Serif"
  115.          Size            =   9.75
  116.          Charset         =   0
  117.          Weight          =   400
  118.          Underline       =   0   'False
  119.          Italic          =   0   'False
  120.          Strikethrough   =   0   'False
  121.       EndProperty
  122.       Height          =   300
  123.       Left            =   135
  124.       TabIndex        =   2
  125.       Top             =   6045
  126.       Width           =   3360
  127.    End
  128. Attribute VB_Name = "SuperBrowser"
  129. Attribute VB_GlobalNameSpace = False
  130. Attribute VB_Creatable = False
  131. Attribute VB_PredeclaredId = True
  132. Attribute VB_Exposed = False
  133. Private Sub Form_Load()
  134.     WebBrowser1(0).Navigate "http://www.microsoft.com"
  135.     WebBrowser1(1).Navigate "http://www.sybex.com"
  136.     WebBrowser1(2).Navigate "http://www.infoseek.com"
  137. End Sub
  138. Private Sub WebBrowser1_DownloadBegin(Index As Integer)
  139.     Debug.Print "Started Download for tab #" & Index
  140.     SSTab1.TabCaption(Index) = "Downloading ..."
  141. End Sub
  142. Private Sub WebBrowser1_DownloadComplete(Index As Integer)
  143.     Debug.Print "Completed download for tab #" & Index
  144.     SSTab1.TabCaption(Index) = WebBrowser1(Index).LocationURL
  145. End Sub
  146. Private Sub WebBrowser1_NavigateComplete(Index As Integer, ByVal URL As String)
  147.     SSTab1.TabCaption(Index) = WebBrowser1(Index).LocationName
  148. End Sub
  149. Private Sub WebBrowser1_ProgressChange(Index As Integer, ByVal Progress As Long, ByVal ProgressMax As Long)
  150.     If SSTab1.Tab = Index Then
  151.         If Progress >= 0 Then
  152.             Label1.Caption = "Download Progress " & Progress & "/" & ProgressMax
  153.         Else
  154.             Label1.Caption = "Page downloaded"
  155.         End If
  156.     End If
  157. End Sub
  158.