home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD988.psc / WebBr.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1999-09-25  |  2.7 KB  |  92 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Begin VB.Form frmWeb 
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   4  'Fixed ToolWindow
  6.    Caption         =   "Web Browser"
  7.    ClientHeight    =   9600
  8.    ClientLeft      =   45
  9.    ClientTop       =   285
  10.    ClientWidth     =   12360
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   9600
  15.    ScaleWidth      =   12360
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton Command4 
  18.       Caption         =   "&Home"
  19.       Height          =   255
  20.       Left            =   4200
  21.       TabIndex        =   5
  22.       Top             =   240
  23.       Width           =   1695
  24.    End
  25.    Begin VB.CommandButton Command3 
  26.       Caption         =   "&Forward"
  27.       Height          =   255
  28.       Left            =   2160
  29.       TabIndex        =   4
  30.       Top             =   240
  31.       Width           =   1695
  32.    End
  33.    Begin VB.CommandButton Command2 
  34.       Caption         =   "&Back"
  35.       Height          =   255
  36.       Left            =   120
  37.       TabIndex        =   3
  38.       Top             =   240
  39.       Width           =   1695
  40.    End
  41.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  42.       Height          =   8415
  43.       Left            =   120
  44.       TabIndex        =   2
  45.       Top             =   1080
  46.       Width           =   12135
  47.       ExtentX         =   21405
  48.       ExtentY         =   14843
  49.       ViewMode        =   0
  50.       Offline         =   0
  51.       Silent          =   0
  52.       RegisterAsBrowser=   0
  53.       RegisterAsDropTarget=   1
  54.       AutoArrange     =   0   'False
  55.       NoClientEdge    =   0   'False
  56.       AlignLeft       =   0   'False
  57.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  58.       Location        =   ""
  59.    End
  60.    Begin VB.CommandButton Command1 
  61.       Caption         =   "&Go"
  62.       Height          =   255
  63.       Left            =   9000
  64.       TabIndex        =   1
  65.       Top             =   600
  66.       Width           =   1095
  67.    End
  68.    Begin VB.TextBox Text1 
  69.       Height          =   285
  70.       Left            =   120
  71.       TabIndex        =   0
  72.       Top             =   600
  73.       Width           =   8655
  74.    End
  75. Attribute VB_Name = "frmWeb"
  76. Attribute VB_GlobalNameSpace = False
  77. Attribute VB_Creatable = False
  78. Attribute VB_PredeclaredId = True
  79. Attribute VB_Exposed = False
  80. Private Sub Command1_Click()
  81. WebBrowser1.Navigate = Text1.Text
  82. End Sub
  83. Private Sub Command2_Click()
  84. WebBrowser1.GoBack
  85. End Sub
  86. Private Sub Command3_Click()
  87. WebBrowser1.GoForward
  88. End Sub
  89. Private Sub Command4_Click()
  90. WebBrowser1.GoHome
  91. End Sub
  92.