home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch17 / webbrwsr / webbrwsr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-20  |  3.2 KB  |  105 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.0#0"; "SHDOCVW.DLL"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  4. Begin VB.Form Form1 
  5.    Caption         =   "WebBrowser Demo"
  6.    ClientHeight    =   4380
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   7605
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4380
  12.    ScaleWidth      =   7605
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  15.       Height          =   3345
  16.       Left            =   240
  17.       TabIndex        =   0
  18.       Top             =   855
  19.       Width           =   7125
  20.       Object.Height          =   223
  21.       Object.Width           =   475
  22.       AutoSize        =   0
  23.       ViewMode        =   1
  24.       AutoSizePercentage=   0
  25.       AutoArrange     =   -1  'True
  26.       NoClientEdge    =   -1  'True
  27.       AlignLeft       =   0   'False
  28.    End
  29.    Begin VB.CommandButton Command2 
  30.       Caption         =   "Open HTML File"
  31.       BeginProperty Font 
  32.          Name            =   "MS Sans Serif"
  33.          Size            =   9.75
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   315
  41.       Left            =   5265
  42.       TabIndex        =   3
  43.       Top             =   120
  44.       Width           =   1890
  45.    End
  46.    Begin VB.ComboBox Combo1 
  47.       Height          =   315
  48.       Left            =   1905
  49.       TabIndex        =   2
  50.       Text            =   "Combo1"
  51.       Top             =   120
  52.       Width           =   1965
  53.    End
  54.    Begin VB.CommandButton Command1 
  55.       Caption         =   "Show URL"
  56.       BeginProperty Font 
  57.          Name            =   "MS Sans Serif"
  58.          Size            =   9.75
  59.          Charset         =   0
  60.          Weight          =   400
  61.          Underline       =   0   'False
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       Height          =   315
  66.       Left            =   135
  67.       TabIndex        =   1
  68.       Top             =   120
  69.       Width           =   1485
  70.    End
  71.    Begin MSComDlg.CommonDialog CommonDialog1 
  72.       Left            =   4260
  73.       Top             =   180
  74.       _ExtentX        =   847
  75.       _ExtentY        =   847
  76.       FontSize        =   2.54052e-29
  77.    End
  78. Attribute VB_Name = "Form1"
  79. Attribute VB_GlobalNameSpace = False
  80. Attribute VB_Creatable = False
  81. Attribute VB_PredeclaredId = True
  82. Attribute VB_Exposed = False
  83. Option Explicit
  84. Private Sub Command1_Click()
  85. WebBrowser1.Navigate "http://www." & Combo1.Text & ".com"
  86. End Sub
  87. Private Sub Command2_Click()
  88. CommonDialog1.cancelerror = True
  89. On Error GoTo CancelOpen
  90. CommonDialog1.filter = "HTML Files|*.HTM|Text Files|*.TXT|All Files|*.*"
  91. CommonDialog1.showopen
  92. If CommonDialog1.filename <> "" Then
  93.     WebBrowser1.Navigate CommonDialog1.filename
  94. End If
  95. Exit Sub
  96. CancelOpen:
  97.     Exit Sub
  98. End Sub
  99. Private Sub Form_Load()
  100. Combo1.AddItem "Microsoft"
  101. Combo1.AddItem "SYBEX"
  102. Combo1.AddItem "Alta-Vista"
  103. Combo1.ListIndex = 0
  104. End Sub
  105.