home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / SourceCode558122182002.psc / SCO / Browser.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-02-18  |  6.2 KB  |  181 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 Browser 
  5.    Caption         =   "Oragnizer - HTML Preview "
  6.    ClientHeight    =   7845
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   7095
  10.    HelpContextID   =   400
  11.    Icon            =   "Browser.frx":0000
  12.    LinkTopic       =   "Form7"
  13.    ScaleHeight     =   7845
  14.    ScaleWidth      =   7095
  15.    StartUpPosition =   3  'Windows Default
  16.    WindowState     =   2  'Maximized
  17.    Begin VB.TextBox Text1 
  18.       Height          =   285
  19.       Left            =   6600
  20.       TabIndex        =   3
  21.       Text            =   "URL Address"
  22.       Top             =   5400
  23.       Visible         =   0   'False
  24.       Width           =   150
  25.    End
  26.    Begin MSComctlLib.ImageList ImageList2 
  27.       Left            =   6000
  28.       Top             =   960
  29.       _ExtentX        =   1005
  30.       _ExtentY        =   1005
  31.       BackColor       =   -2147483643
  32.       ImageWidth      =   16
  33.       ImageHeight     =   16
  34.       MaskColor       =   12632256
  35.       _Version        =   393216
  36.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  37.          NumListImages   =   6
  38.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  39.             Picture         =   "Browser.frx":030A
  40.             Key             =   ""
  41.          EndProperty
  42.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  43.             Picture         =   "Browser.frx":06B2
  44.             Key             =   ""
  45.          EndProperty
  46.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  47.             Picture         =   "Browser.frx":0A5A
  48.             Key             =   ""
  49.          EndProperty
  50.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  51.             Picture         =   "Browser.frx":0E02
  52.             Key             =   ""
  53.          EndProperty
  54.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  55.             Picture         =   "Browser.frx":11AA
  56.             Key             =   ""
  57.          EndProperty
  58.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  59.             Picture         =   "Browser.frx":1552
  60.             Key             =   ""
  61.          EndProperty
  62.       EndProperty
  63.    End
  64.    Begin MSComctlLib.ImageList ImageList1 
  65.       Left            =   6000
  66.       Top             =   1560
  67.       _ExtentX        =   1005
  68.       _ExtentY        =   1005
  69.       BackColor       =   -2147483643
  70.       ImageWidth      =   16
  71.       ImageHeight     =   16
  72.       MaskColor       =   12632256
  73.       _Version        =   393216
  74.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  75.          NumListImages   =   1
  76.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  77.             Picture         =   "Browser.frx":18FA
  78.             Key             =   ""
  79.          EndProperty
  80.       EndProperty
  81.    End
  82.    Begin MSComctlLib.StatusBar StatusBar1 
  83.       Align           =   2  'Align Bottom
  84.       Height          =   375
  85.       Left            =   0
  86.       TabIndex        =   1
  87.       Top             =   7470
  88.       Width           =   7095
  89.       _ExtentX        =   12515
  90.       _ExtentY        =   661
  91.       _Version        =   393216
  92.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  93.          NumPanels       =   2
  94.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  95.             Object.Width           =   17641
  96.             MinWidth        =   17641
  97.          EndProperty
  98.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  99.             Enabled         =   0   'False
  100.             Object.Width           =   3421
  101.             MinWidth        =   3421
  102.          EndProperty
  103.       EndProperty
  104.    End
  105.    Begin SHDocVwCtl.WebBrowser Web 
  106.       Height          =   4080
  107.       Left            =   0
  108.       TabIndex        =   0
  109.       Top             =   105
  110.       Width           =   5895
  111.       ExtentX         =   10398
  112.       ExtentY         =   7197
  113.       ViewMode        =   0
  114.       Offline         =   0
  115.       Silent          =   0
  116.       RegisterAsBrowser=   0
  117.       RegisterAsDropTarget=   1
  118.       AutoArrange     =   0   'False
  119.       NoClientEdge    =   0   'False
  120.       AlignLeft       =   0   'False
  121.       NoWebView       =   0   'False
  122.       HideFileNames   =   0   'False
  123.       SingleClick     =   0   'False
  124.       SingleSelection =   0   'False
  125.       NoFolders       =   0   'False
  126.       Transparent     =   0   'False
  127.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  128.       Location        =   "http:///"
  129.    End
  130.    Begin MSComctlLib.ProgressBar PBar 
  131.       Align           =   2  'Align Bottom
  132.       Height          =   135
  133.       Left            =   0
  134.       TabIndex        =   2
  135.       Top             =   7335
  136.       Width           =   7095
  137.       _ExtentX        =   12515
  138.       _ExtentY        =   238
  139.       _Version        =   393216
  140.       Appearance      =   0
  141.       Scrolling       =   1
  142.    End
  143. Attribute VB_Name = "Browser"
  144. Attribute VB_GlobalNameSpace = False
  145. Attribute VB_Creatable = False
  146. Attribute VB_PredeclaredId = True
  147. Attribute VB_Exposed = False
  148. Private Sub Form_Load()
  149. If Text1.Text <> "URL Address" Then Web.Navigate (Text1.Text)
  150. End Sub
  151. Private Sub Form_Resize()
  152. Web.Height = Browser.Height - 1000
  153. Web.Width = Browser.Width - 100
  154. End Sub
  155. Private Sub Text1_GotFocus()
  156.     Text1.SelStart = 0
  157.     Text1.SelLength = Len(Text1)
  158. End Sub
  159. Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  160.     If KeyCode = 13 Then
  161.         Web.Navigate Me.Text1.Text
  162.     End If
  163. End Sub
  164. Private Sub Web_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
  165.     Text1.Text = URL
  166. End Sub
  167. Private Sub Web_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
  168.     On Error GoTo progressERR
  169.     If Progress = -1 Then PBar.Value = 100
  170.     If Progress > 0 And ProgressMax > 0 Then
  171.         PBar.Value = Progress * 100 / ProgressMax
  172.        
  173.     End If
  174.     PBar.Visible = False
  175.     Exit Sub
  176. progressERR:
  177. End Sub
  178. Private Sub Web_TitleChange(ByVal Text As String)
  179.     Me.Caption = "Browsing :" & Text
  180. End Sub
  181.