home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / ahtmlle2.exe / MAINDIR / Browser.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-08-09  |  2.3 KB  |  74 lines
  1. VERSION 5.00
  2. Object = "{E4D5D928-FD35-4D0A-92CD-F3CE02D68455}#1.1#0"; "ahtmlle2.ocx"
  3. Begin VB.Form frmSimpleBrowser 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Simple Browser Example"
  6.    ClientHeight    =   6405
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   8565
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "Browser.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   427
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   571
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin HTMLCtlsLE.HTMLView Browser 
  28.       Height          =   5505
  29.       Left            =   180
  30.       TabIndex        =   1
  31.       Top             =   180
  32.       Width           =   8250
  33.       _ExtentX        =   14552
  34.       _ExtentY        =   9710
  35.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.          Name            =   "Tahoma"
  37.          Size            =   8.25
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Text            =   ""
  45.    End
  46.    Begin VB.CommandButton cmdClose 
  47.       Cancel          =   -1  'True
  48.       Caption         =   "Close"
  49.       Default         =   -1  'True
  50.       Height          =   330
  51.       Left            =   7290
  52.       TabIndex        =   0
  53.       Top             =   5850
  54.       Width           =   1140
  55.    End
  56. Attribute VB_Name = "frmSimpleBrowser"
  57. Attribute VB_GlobalNameSpace = False
  58. Attribute VB_Creatable = False
  59. Attribute VB_PredeclaredId = True
  60. Attribute VB_Exposed = False
  61. Option Explicit
  62. '##AUTHOR Richard James Moss
  63. '##CREATION_DATE 08/08/2001 11:40
  64. '##BLOCK_DESCRIPTION Loads a document
  65. '##UPDATE_NOTE
  66. Public Sub Load(ByVal Filename As String)
  67. Attribute Load.VB_Description = "Loads a document"
  68.     Browser.Load Filename
  69.     Show 1
  70. End Sub '(Public) Sub Load ()
  71. Private Sub cmdClose_Click()
  72.     Unload Me
  73. End Sub
  74.