home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / browser.exe / brw1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-08-09  |  7.7 KB  |  224 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  4. Begin VB.Form Form1 
  5.    Caption         =   "Internet Browser"
  6.    ClientHeight    =   5265
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   7425
  10.    Icon            =   "brw1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5265
  13.    ScaleWidth      =   7425
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin ComctlLib.Toolbar Toolbar1 
  16.       Align           =   1  'Align Top
  17.       Height          =   870
  18.       Left            =   0
  19.       TabIndex        =   4
  20.       Top             =   0
  21.       Width           =   7425
  22.       _ExtentX        =   13097
  23.       _ExtentY        =   1535
  24.       ButtonWidth     =   1191
  25.       ButtonHeight    =   1376
  26.       Appearance      =   1
  27.       ImageList       =   "ImageList1"
  28.       _Version        =   327680
  29.       BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  30.          NumButtons      =   5
  31.          BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  32.             Caption         =   "Back"
  33.             Key             =   "back"
  34.             Object.ToolTipText     =   "Back To Last Site"
  35.             Object.Tag             =   ""
  36.             ImageIndex      =   2
  37.          EndProperty
  38.          BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  39.             Caption         =   "Forward"
  40.             Key             =   "Forward"
  41.             Object.ToolTipText     =   "Forward"
  42.             Object.Tag             =   ""
  43.             ImageIndex      =   1
  44.          EndProperty
  45.          BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  46.             Caption         =   "Home"
  47.             Key             =   "Home"
  48.             Object.ToolTipText     =   "Go to Home Page"
  49.             Object.Tag             =   ""
  50.             ImageIndex      =   3
  51.          EndProperty
  52.          BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  53.             Caption         =   "Refresh"
  54.             Key             =   "refresh"
  55.             Object.ToolTipText     =   "Refresh This Page"
  56.             Object.Tag             =   ""
  57.             ImageIndex      =   4
  58.          EndProperty
  59.          BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  60.             Caption         =   "Stop"
  61.             Key             =   "Stop"
  62.             Object.ToolTipText     =   "Stop Loading"
  63.             Object.Tag             =   ""
  64.             ImageIndex      =   5
  65.          EndProperty
  66.       EndProperty
  67.    End
  68.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  69.       Height          =   3480
  70.       Left            =   15
  71.       TabIndex        =   3
  72.       Top             =   1320
  73.       Width           =   7365
  74.       ExtentX         =   12991
  75.       ExtentY         =   6138
  76.       ViewMode        =   1
  77.       Offline         =   0
  78.       Silent          =   0
  79.       RegisterAsBrowser=   0
  80.       RegisterAsDropTarget=   1
  81.       AutoArrange     =   -1  'True
  82.       NoClientEdge    =   0   'False
  83.       AlignLeft       =   0   'False
  84.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  85.       Location        =   ""
  86.    End
  87.    Begin VB.TextBox Text1 
  88.       Height          =   285
  89.       Left            =   750
  90.       TabIndex        =   2
  91.       Text            =   "http://www.bright.net/~stevensp"
  92.       Top             =   900
  93.       Width           =   6630
  94.    End
  95.    Begin VB.CommandButton Command1 
  96.       Caption         =   "Command1"
  97.       Height          =   240
  98.       Left            =   75
  99.       TabIndex        =   1
  100.       Top             =   1380
  101.       Visible         =   0   'False
  102.       Width           =   930
  103.    End
  104.    Begin ComctlLib.StatusBar StatusBar1 
  105.       Align           =   2  'Align Bottom
  106.       Height          =   405
  107.       Left            =   0
  108.       TabIndex        =   0
  109.       Top             =   4860
  110.       Width           =   7425
  111.       _ExtentX        =   13097
  112.       _ExtentY        =   714
  113.       SimpleText      =   ""
  114.       _Version        =   327680
  115.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  116.          NumPanels       =   3
  117.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  118.             TextSave        =   ""
  119.             Object.Tag             =   ""
  120.          EndProperty
  121.          BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  122.             Style           =   5
  123.             TextSave        =   "1:05 PM"
  124.             Object.Tag             =   ""
  125.          EndProperty
  126.          BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  127.             Style           =   6
  128.             TextSave        =   "8/9/97"
  129.             Object.Tag             =   ""
  130.          EndProperty
  131.       EndProperty
  132.    End
  133.    Begin VB.Shape Shape1 
  134.       BackColor       =   &H00FF0000&
  135.       BackStyle       =   1  'Opaque
  136.       FillColor       =   &H00FF0000&
  137.       Height          =   75
  138.       Left            =   30
  139.       Top             =   1185
  140.       Width           =   7335
  141.    End
  142.    Begin VB.Label Label1 
  143.       Caption         =   "Address:"
  144.       Height          =   285
  145.       Left            =   60
  146.       TabIndex        =   5
  147.       Top             =   915
  148.       Width           =   690
  149.    End
  150.    Begin ComctlLib.ImageList ImageList1 
  151.       Left            =   6645
  152.       Top             =   4710
  153.       _ExtentX        =   1005
  154.       _ExtentY        =   1005
  155.       BackColor       =   -2147483643
  156.       ImageWidth      =   32
  157.       ImageHeight     =   32
  158.       MaskColor       =   12632256
  159.       _Version        =   327680
  160.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  161.          NumListImages   =   5
  162.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  163.             Picture         =   "brw1.frx":030A
  164.             Key             =   ""
  165.          EndProperty
  166.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  167.             Picture         =   "brw1.frx":0624
  168.             Key             =   ""
  169.          EndProperty
  170.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  171.             Picture         =   "brw1.frx":093E
  172.             Key             =   ""
  173.          EndProperty
  174.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  175.             Picture         =   "brw1.frx":0C58
  176.             Key             =   ""
  177.          EndProperty
  178.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  179.             Picture         =   "brw1.frx":0F72
  180.             Key             =   ""
  181.          EndProperty
  182.       EndProperty
  183.    End
  184. Attribute VB_Name = "Form1"
  185. Attribute VB_GlobalNameSpace = False
  186. Attribute VB_Creatable = False
  187. Attribute VB_PredeclaredId = True
  188. Attribute VB_Exposed = False
  189. Option Explicit
  190.      Private Sub Command1_Click()
  191.          If Text1.Text <> "" Then
  192.              WebBrowser1.Navigate Text1.Text
  193.              If WebBrowser1.Visible = False Then
  194.                  WebBrowser1.Visible = True
  195.              End If
  196.          End If
  197.      End Sub
  198. Private Sub Text1_KeyPress(KeyAscii As Integer)
  199. If KeyAscii = 13 Then
  200.    Command1_Click
  201. End If
  202. End Sub
  203. Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
  204. Select Case Button.Key
  205. Case "back"
  206. WebBrowser1.GoBack
  207. Case "forward"
  208. WebBrowser1.GoForward
  209. Case "Home"
  210. Text1.Text = "http://www.bright.net/~stevensp"
  211. Command1_Click
  212. Case "refresh"
  213. WebBrowser1.Refresh
  214. Case "stop"
  215. WebBrowser1.Stop
  216. End Select
  217. End Sub
  218. Private Sub WebBrowser1_DownloadBegin()
  219. StatusBar1.Panels(1).Text = " Getting Page..."
  220. End Sub
  221. Private Sub WebBrowser1_DownloadComplete()
  222. StatusBar1.Panels(1).Text = "Got It"
  223. End Sub
  224.