home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / creat1 / frmbrows.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-07-08  |  8.3 KB  |  245 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  4. Begin VB.Form frmBrowser 
  5.    ClientHeight    =   5130
  6.    ClientLeft      =   3060
  7.    ClientTop       =   3345
  8.    ClientWidth     =   6540
  9.    Icon            =   "frmBrowser.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5130
  12.    ScaleWidth      =   6540
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   2  'CenterScreen
  15.    WindowState     =   2  'Maximized
  16.    Begin MSComctlLib.Toolbar tbToolBar 
  17.       Align           =   1  'Align Top
  18.       Height          =   540
  19.       Left            =   0
  20.       TabIndex        =   3
  21.       Top             =   0
  22.       Width           =   6540
  23.       _ExtentX        =   11536
  24.       _ExtentY        =   953
  25.       ButtonWidth     =   820
  26.       ButtonHeight    =   794
  27.       Appearance      =   1
  28.       ImageList       =   "imlIcons"
  29.       _Version        =   393216
  30.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  31.          NumButtons      =   6
  32.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  33.             Key             =   "Back"
  34.             Object.ToolTipText     =   "Back"
  35.             ImageIndex      =   1
  36.          EndProperty
  37.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  38.             Key             =   "Forward"
  39.             Object.ToolTipText     =   "Forward"
  40.             ImageIndex      =   2
  41.          EndProperty
  42.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  43.             Key             =   "Stop"
  44.             Object.ToolTipText     =   "Stop"
  45.             ImageIndex      =   3
  46.          EndProperty
  47.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  48.             Key             =   "Refresh"
  49.             Object.ToolTipText     =   "Refresh"
  50.             ImageIndex      =   4
  51.          EndProperty
  52.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  53.             Key             =   "Home"
  54.             Object.ToolTipText     =   "Home"
  55.             ImageIndex      =   5
  56.          EndProperty
  57.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  58.             Key             =   "Search"
  59.             Object.ToolTipText     =   "Search"
  60.             ImageIndex      =   6
  61.          EndProperty
  62.       EndProperty
  63.    End
  64.    Begin SHDocVwCtl.WebBrowser brwWebBrowser 
  65.       Height          =   3734
  66.       Left            =   50
  67.       TabIndex        =   0
  68.       Top             =   1215
  69.       Width           =   5393
  70.       ExtentX         =   9525
  71.       ExtentY         =   6588
  72.       ViewMode        =   1
  73.       Offline         =   0
  74.       Silent          =   0
  75.       RegisterAsBrowser=   0
  76.       RegisterAsDropTarget=   0
  77.       AutoArrange     =   -1  'True
  78.       NoClientEdge    =   -1  'True
  79.       AlignLeft       =   0   'False
  80.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  81.       Location        =   ""
  82.    End
  83.    Begin VB.Timer timTimer 
  84.       Enabled         =   0   'False
  85.       Interval        =   5
  86.       Left            =   6180
  87.       Top             =   1500
  88.    End
  89.    Begin VB.PictureBox picAddress 
  90.       Align           =   1  'Align Top
  91.       BorderStyle     =   0  'None
  92.       Height          =   675
  93.       Left            =   0
  94.       ScaleHeight     =   675
  95.       ScaleWidth      =   6540
  96.       TabIndex        =   4
  97.       TabStop         =   0   'False
  98.       Top             =   540
  99.       Width           =   6540
  100.       Begin VB.ComboBox cboAddress 
  101.          Height          =   315
  102.          Left            =   45
  103.          TabIndex        =   2
  104.          Top             =   300
  105.          Width           =   3795
  106.       End
  107.       Begin VB.Label lblAddress 
  108.          Caption         =   "&Address:"
  109.          Height          =   255
  110.          Left            =   45
  111.          TabIndex        =   1
  112.          Tag             =   "&Address:"
  113.          Top             =   60
  114.          Width           =   3075
  115.       End
  116.    End
  117.    Begin MSComctlLib.ImageList imlIcons 
  118.       Left            =   2670
  119.       Top             =   2325
  120.       _ExtentX        =   1005
  121.       _ExtentY        =   1005
  122.       BackColor       =   -2147483643
  123.       ImageWidth      =   24
  124.       ImageHeight     =   24
  125.       MaskColor       =   12632256
  126.       _Version        =   393216
  127.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  128.          NumListImages   =   6
  129.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  130.             Picture         =   "frmBrowser.frx":030A
  131.             Key             =   ""
  132.          EndProperty
  133.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  134.             Picture         =   "frmBrowser.frx":05EC
  135.             Key             =   ""
  136.          EndProperty
  137.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  138.             Picture         =   "frmBrowser.frx":08CE
  139.             Key             =   ""
  140.          EndProperty
  141.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  142.             Picture         =   "frmBrowser.frx":0BB0
  143.             Key             =   ""
  144.          EndProperty
  145.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  146.             Picture         =   "frmBrowser.frx":0E92
  147.             Key             =   ""
  148.          EndProperty
  149.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  150.             Picture         =   "frmBrowser.frx":1174
  151.             Key             =   ""
  152.          EndProperty
  153.       EndProperty
  154.    End
  155. Attribute VB_Name = "frmBrowser"
  156. Attribute VB_GlobalNameSpace = False
  157. Attribute VB_Creatable = False
  158. Attribute VB_PredeclaredId = True
  159. Attribute VB_Exposed = False
  160. Option Explicit
  161. Public StartingAddress As String
  162. Dim mbDontNavigateNow As Boolean
  163. Private Sub Form_Load()
  164.     On Error Resume Next
  165.     Me.Show
  166.     tbToolBar.Refresh
  167.     Form_Resize
  168.     cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15
  169.     If Len(StartingAddress) > 0 Then
  170.         cboAddress.Text = StartingAddress
  171.         cboAddress.AddItem cboAddress.Text
  172.         'try to navigate to the starting address
  173.         timTimer.Enabled = True
  174.         brwWebBrowser.Navigate StartingAddress
  175.     End If
  176. End Sub
  177. Private Sub brwWebBrowser_DownloadComplete()
  178.     On Error Resume Next
  179.     Me.Caption = brwWebBrowser.LocationName
  180. End Sub
  181. Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
  182.     Dim i As Integer
  183.     Dim bFound As Boolean
  184.     Me.Caption = brwWebBrowser.LocationName
  185.     For i = 0 To cboAddress.ListCount - 1
  186.         If cboAddress.List(i) = brwWebBrowser.LocationURL Then
  187.             bFound = True
  188.             Exit For
  189.         End If
  190.     Next i
  191.     mbDontNavigateNow = True
  192.     If bFound Then
  193.         cboAddress.RemoveItem i
  194.     End If
  195.     cboAddress.AddItem brwWebBrowser.LocationURL, 0
  196.     cboAddress.ListIndex = 0
  197.     mbDontNavigateNow = False
  198. End Sub
  199. Private Sub cboAddress_Click()
  200.     If mbDontNavigateNow Then Exit Sub
  201.     timTimer.Enabled = True
  202.     brwWebBrowser.Navigate cboAddress.Text
  203. End Sub
  204. Private Sub cboAddress_KeyPress(KeyAscii As Integer)
  205.     On Error Resume Next
  206.     If KeyAscii = vbKeyReturn Then
  207.         cboAddress_Click
  208.     End If
  209. End Sub
  210. Private Sub Form_Resize()
  211.     cboAddress.Width = Me.ScaleWidth - 100
  212.     brwWebBrowser.Width = Me.ScaleWidth - 100
  213.     brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100
  214. End Sub
  215. Private Sub timTimer_Timer()
  216.     If brwWebBrowser.Busy = False Then
  217.         timTimer.Enabled = False
  218.         Me.Caption = brwWebBrowser.LocationName
  219.     Else
  220.         Me.Caption = "Working..."
  221.     End If
  222. End Sub
  223. Private Sub tbToolBar_ButtonClick(ByVal Button As Button)
  224.     On Error Resume Next
  225.      
  226.     timTimer.Enabled = True
  227.      
  228.     Select Case Button.Key
  229.         Case "Back"
  230.             brwWebBrowser.GoBack
  231.         Case "Forward"
  232.             brwWebBrowser.GoForward
  233.         Case "Refresh"
  234.             brwWebBrowser.Refresh
  235.         Case "Home"
  236.             brwWebBrowser.GoHome
  237.         Case "Search"
  238.             brwWebBrowser.GoSearch
  239.         Case "Stop"
  240.             timTimer.Enabled = False
  241.             brwWebBrowser.Stop
  242.             Me.Caption = brwWebBrowser.LocationName
  243.     End Select
  244. End Sub
  245.