home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / checkt1a / frmtest.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-05  |  4.0 KB  |  133 lines
  1. VERSION 5.00
  2. Object = "{48A63D17-6321-11D3-9D68-B4C643584542}#10.0#0"; "TMaxHtml.ocx"
  3. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  4. Begin VB.Form FrmTest 
  5.    BorderStyle     =   4  'Fixed ToolWindow
  6.    Caption         =   "THtml Demo"
  7.    ClientHeight    =   3435
  8.    ClientLeft      =   45
  9.    ClientTop       =   285
  10.    ClientWidth     =   6795
  11.    Icon            =   "FrmTest.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3435
  16.    ScaleWidth      =   6795
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin HtmlWiz.TMaxHtml TMaxHtml1 
  20.       Left            =   3360
  21.       Top             =   480
  22.       _ExtentX        =   450
  23.       _ExtentY        =   450
  24.    End
  25.    Begin VB.CommandButton CmdView 
  26.       Caption         =   "&View File"
  27.       Height          =   255
  28.       Left            =   1680
  29.       TabIndex        =   6
  30.       Top             =   120
  31.       Width           =   1095
  32.    End
  33.    Begin RichTextLib.RichTextBox rt1 
  34.       Height          =   2535
  35.       Left            =   1680
  36.       TabIndex        =   5
  37.       Top             =   720
  38.       Width           =   5055
  39.       _ExtentX        =   8916
  40.       _ExtentY        =   4471
  41.       _Version        =   393217
  42.       ScrollBars      =   3
  43.       RightMargin     =   10000
  44.       TextRTF         =   $"FrmTest.frx":0442
  45.    End
  46.    Begin VB.ComboBox ComPattern 
  47.       Height          =   315
  48.       Left            =   120
  49.       TabIndex        =   4
  50.       Top             =   3000
  51.       Width           =   1455
  52.    End
  53.    Begin VB.DriveListBox Drive1 
  54.       Height          =   315
  55.       Left            =   120
  56.       TabIndex        =   2
  57.       Top             =   120
  58.       Width           =   1455
  59.    End
  60.    Begin VB.DirListBox Dir1 
  61.       Height          =   765
  62.       Left            =   120
  63.       TabIndex        =   1
  64.       Top             =   480
  65.       Width           =   1455
  66.    End
  67.    Begin VB.FileListBox File1 
  68.       Height          =   1650
  69.       Left            =   120
  70.       OLEDragMode     =   1  'Automatic
  71.       TabIndex        =   0
  72.       Top             =   1320
  73.       Width           =   1455
  74.    End
  75.    Begin VB.Label Lbl1 
  76.       AutoSize        =   -1  'True
  77.       Height          =   195
  78.       Left            =   1680
  79.       TabIndex        =   3
  80.       Top             =   480
  81.       Width           =   45
  82.    End
  83. Attribute VB_Name = "FrmTest"
  84. Attribute VB_GlobalNameSpace = False
  85. Attribute VB_Creatable = False
  86. Attribute VB_PredeclaredId = True
  87. Attribute VB_Exposed = False
  88. 'Author : TEH
  89. 'Mailto : tehmax@cyberdude.com
  90. 'FrmTest.frm
  91. 'THtml.ocx demostration form.
  92. 'File1_Click - trigger THtml.CheckTitle for HTM(L) or ASP file ONLY.
  93. 'CmdView_Click - convert HTML File to Text File.
  94. Public FileSelect$
  95. Private Sub CmdView_Click()
  96. If InStr(1, UCase$(FileSelect$), ".ASP") Or InStr(1, UCase$(FileSelect$), ".HTM") Then
  97.     TMaxHtml1.ConvH2T (FileSelect$)
  98.     rt1.LoadFile TMaxHtml1.H2tFile, rtfText
  99.     rt1.LoadFile FileSelect$, rtfText
  100. End If
  101. End Sub
  102. Private Sub ComPattern_Click()
  103. File1.Pattern = ComPattern.List(ComPattern.ListIndex)
  104. End Sub
  105. Private Sub Dir1_Change()
  106. File1.Path = Dir1.Path
  107. End Sub
  108. Private Sub Drive1_Change()
  109. On Error GoTo DriveError
  110. Dir1.Path = Drive1.Drive
  111. Exit Sub
  112. DriveError:
  113. Drive1.Drive = Dir1.Path
  114. Resume Next
  115. End Sub
  116. Private Sub File1_Click()
  117. Lbl1.Caption = ""
  118. If Len(File1.Path) > 3 Then
  119.     FileSelect$ = File1.Path & "\" & File1.List(File1.ListIndex)
  120.     FileSelect$ = File1.Path & File1.List(File1.ListIndex)
  121. End If
  122. Me.Caption = FileSelect$
  123. If InStr(1, UCase$(FileSelect$), ".ASP") Or InStr(1, UCase$(FileSelect$), ".HTM") Then
  124.     Lbl1.Caption = "Title : " & TMaxHtml1.CheckTitle(FileSelect$)
  125. End If
  126. End Sub
  127. Private Sub Form_Load()
  128. ComPattern.AddItem "*.*"
  129. ComPattern.AddItem "*.HTM"
  130. ComPattern.AddItem "*.ASP"
  131. ComPattern.ListIndex = 0
  132. End Sub
  133.