home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Disable_un1796179212004.psc / Form1.frm < prev    next >
Text File  |  2004-09-21  |  2KB  |  53 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   8235
  6.    ClientLeft      =   2160
  7.    ClientTop       =   1545
  8.    ClientWidth     =   6585
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   8235
  11.    ScaleWidth      =   6585
  12.    WindowState     =   2  'Maximized
  13.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  14.       Height          =   7845
  15.       Left            =   0
  16.       TabIndex        =   0
  17.       Top             =   0
  18.       Width           =   6345
  19.       ExtentX         =   11192
  20.       ExtentY         =   13838
  21.       ViewMode        =   0
  22.       Offline         =   0
  23.       Silent          =   0
  24.       RegisterAsBrowser=   0
  25.       RegisterAsDropTarget=   1
  26.       AutoArrange     =   0   'False
  27.       NoClientEdge    =   0   'False
  28.       AlignLeft       =   0   'False
  29.       NoWebView       =   0   'False
  30.       HideFileNames   =   0   'False
  31.       SingleClick     =   0   'False
  32.       SingleSelection =   0   'False
  33.       NoFolders       =   0   'False
  34.       Transparent     =   0   'False
  35.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  36.       Location        =   ""
  37.    End
  38. End
  39. Attribute VB_Name = "Form1"
  40. Attribute VB_GlobalNameSpace = False
  41. Attribute VB_Creatable = False
  42. Attribute VB_PredeclaredId = True
  43. Attribute VB_Exposed = False
  44. Private Sub Form_Load()
  45. WebBrowser1.Navigate App.Path & "\test.htm"
  46. End Sub
  47.  
  48. Private Sub Form_Resize()
  49. WebBrowser1.Width = ScaleWidth
  50. WebBrowser1.Height = ScaleHeight
  51.  
  52. End Sub
  53.