home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch21 / browser / webbrwsr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-05-19  |  4.7 KB  |  153 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Begin VB.Form BrowserForm 
  5.    BackColor       =   &H00808080&
  6.    Caption         =   "WebBrowser Demo"
  7.    ClientHeight    =   6855
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   11055
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   6855
  13.    ScaleWidth      =   11055
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton Command4 
  16.       Caption         =   "E X I T"
  17.       BeginProperty Font 
  18.          Name            =   "MS Sans Serif"
  19.          Size            =   9.75
  20.          Charset         =   0
  21.          Weight          =   400
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   405
  27.       Left            =   9285
  28.       TabIndex        =   5
  29.       Top             =   6360
  30.       Width           =   1710
  31.    End
  32.    Begin VB.CommandButton Command3 
  33.       Caption         =   "Stop Browsing"
  34.       BeginProperty Font 
  35.          Name            =   "MS Sans Serif"
  36.          Size            =   9.75
  37.          Charset         =   0
  38.          Weight          =   400
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   405
  44.       Left            =   7455
  45.       TabIndex        =   4
  46.       Top             =   6360
  47.       Width           =   1710
  48.    End
  49.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  50.       Height          =   5715
  51.       Left            =   60
  52.       TabIndex        =   0
  53.       Top             =   555
  54.       Width           =   10935
  55.       ExtentX         =   19288
  56.       ExtentY         =   10081
  57.       ViewMode        =   1
  58.       Offline         =   0
  59.       Silent          =   0
  60.       RegisterAsBrowser=   0
  61.       RegisterAsDropTarget=   0
  62.       AutoArrange     =   -1  'True
  63.       NoClientEdge    =   -1  'True
  64.       AlignLeft       =   0   'False
  65.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  66.       Location        =   ""
  67.    End
  68.    Begin VB.CommandButton Command2 
  69.       Caption         =   "Open HTML File"
  70.       BeginProperty Font 
  71.          Name            =   "MS Sans Serif"
  72.          Size            =   9.75
  73.          Charset         =   0
  74.          Weight          =   400
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       Height          =   315
  80.       Left            =   9075
  81.       TabIndex        =   3
  82.       Top             =   120
  83.       Width           =   1890
  84.    End
  85.    Begin VB.ComboBox Combo1 
  86.       Height          =   315
  87.       Left            =   1905
  88.       TabIndex        =   2
  89.       Text            =   "Combo1"
  90.       Top             =   120
  91.       Width           =   1965
  92.    End
  93.    Begin VB.CommandButton Command1 
  94.       Caption         =   "Show URL"
  95.       BeginProperty Font 
  96.          Name            =   "MS Sans Serif"
  97.          Size            =   9.75
  98.          Charset         =   0
  99.          Weight          =   400
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       Height          =   315
  105.       Left            =   135
  106.       TabIndex        =   1
  107.       Top             =   120
  108.       Width           =   1485
  109.    End
  110.    Begin MSComDlg.CommonDialog CommonDialog1 
  111.       Left            =   4260
  112.       Top             =   15
  113.       _ExtentX        =   847
  114.       _ExtentY        =   847
  115.       _Version        =   393216
  116.       FontSize        =   2.54052e-29
  117.    End
  118. Attribute VB_Name = "BrowserForm"
  119. Attribute VB_GlobalNameSpace = False
  120. Attribute VB_Creatable = False
  121. Attribute VB_PredeclaredId = True
  122. Attribute VB_Exposed = False
  123. Option Explicit
  124. Private Sub Command1_Click()
  125. WebBrowser1.Navigate "http://www." & Combo1.Text & ".com"
  126. End Sub
  127. Private Sub Command2_Click()
  128. CommonDialog1.CancelError = True
  129. On Error GoTo CancelOpen
  130. CommonDialog1.Filter = "HTML Files|*.HTM|Text Files|*.TXT|All Files|*.*"
  131. CommonDialog1.ShowOpen
  132. If CommonDialog1.FileName <> "" Then
  133.     WebBrowser1.Navigate CommonDialog1.FileName
  134. End If
  135. Exit Sub
  136. CancelOpen:
  137.     Exit Sub
  138. End Sub
  139. Private Sub Command3_Click()
  140.     WebBrowser1.Stop
  141. End Sub
  142. Private Sub Command4_Click()
  143.     End
  144. End Sub
  145. Private Sub Form_Load()
  146.     Combo1.AddItem "Microsoft"
  147.     Combo1.AddItem "SYBEX"
  148.     Combo1.AddItem "Infoseek"
  149.     Combo1.AddItem "Excite"
  150.     Combo1.AddItem "RealAudio"
  151.     Combo1.ListIndex = 0
  152. End Sub
  153.