home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / Simple_Hel218431772010.psc / frmHelp.frm < prev    next >
Text File  |  2004-01-01  |  7KB  |  201 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmHelp 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Help File"
  6.    ClientHeight    =   3645
  7.    ClientLeft      =   45
  8.    ClientTop       =   435
  9.    ClientWidth     =   7740
  10.    Icon            =   "frmHelp.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3645
  15.    ScaleWidth      =   7740
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.CommandButton OKbut 
  18.       Caption         =   "&Close"
  19.       BeginProperty Font 
  20.          Name            =   "Verdana"
  21.          Size            =   8.25
  22.          Charset         =   0
  23.          Weight          =   700
  24.          Underline       =   0   'False
  25.          Italic          =   0   'False
  26.          Strikethrough   =   0   'False
  27.       EndProperty
  28.       Height          =   435
  29.       Left            =   6120
  30.       TabIndex        =   4
  31.       Top             =   3120
  32.       Width           =   1440
  33.    End
  34.    Begin MSComctlLib.ImageList ImageList1 
  35.       Left            =   1470
  36.       Top             =   3150
  37.       _ExtentX        =   1005
  38.       _ExtentY        =   1005
  39.       BackColor       =   -2147483643
  40.       ImageWidth      =   24
  41.       ImageHeight     =   24
  42.       MaskColor       =   12632256
  43.       _Version        =   393216
  44.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  45.          NumListImages   =   2
  46.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  47.             Picture         =   "frmHelp.frx":076A
  48.             Key             =   ""
  49.          EndProperty
  50.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  51.             Picture         =   "frmHelp.frx":0EE4
  52.             Key             =   ""
  53.          EndProperty
  54.       EndProperty
  55.    End
  56.    Begin VB.Frame Frame2 
  57.       Caption         =   "Description"
  58.       BeginProperty Font 
  59.          Name            =   "Verdana"
  60.          Size            =   8.25
  61.          Charset         =   0
  62.          Weight          =   700
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       Height          =   2955
  68.       Left            =   3465
  69.       TabIndex        =   1
  70.       Top             =   105
  71.       Width           =   4215
  72.       Begin VB.TextBox Text1 
  73.          BeginProperty Font 
  74.             Name            =   "Verdana"
  75.             Size            =   9
  76.             Charset         =   0
  77.             Weight          =   400
  78.             Underline       =   0   'False
  79.             Italic          =   0   'False
  80.             Strikethrough   =   0   'False
  81.          EndProperty
  82.          Height          =   2640
  83.          Left            =   105
  84.          Locked          =   -1  'True
  85.          MultiLine       =   -1  'True
  86.          ScrollBars      =   2  'Vertical
  87.          TabIndex        =   2
  88.          TabStop         =   0   'False
  89.          Top             =   210
  90.          Width           =   4005
  91.       End
  92.    End
  93.    Begin VB.Frame Frame1 
  94.       Caption         =   "Contents"
  95.       BeginProperty Font 
  96.          Name            =   "Verdana"
  97.          Size            =   8.25
  98.          Charset         =   0
  99.          Weight          =   700
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       Height          =   2955
  105.       Left            =   105
  106.       TabIndex        =   0
  107.       Top             =   105
  108.       Width           =   3270
  109.       Begin MSComctlLib.TreeView TreeView1 
  110.          Height          =   2640
  111.          Left            =   105
  112.          TabIndex        =   3
  113.          Top             =   210
  114.          Width           =   3060
  115.          _ExtentX        =   5398
  116.          _ExtentY        =   4657
  117.          _Version        =   393217
  118.          Indentation     =   706
  119.          LabelEdit       =   1
  120.          Style           =   5
  121.          ImageList       =   "ImageList1"
  122.          Appearance      =   1
  123.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  124.             Name            =   "Arial"
  125.             Size            =   8.25
  126.             Charset         =   0
  127.             Weight          =   400
  128.             Underline       =   0   'False
  129.             Italic          =   0   'False
  130.             Strikethrough   =   0   'False
  131.          EndProperty
  132.       End
  133.    End
  134. End
  135. Attribute VB_Name = "frmHelp"
  136. Attribute VB_GlobalNameSpace = False
  137. Attribute VB_Creatable = False
  138. Attribute VB_PredeclaredId = True
  139. Attribute VB_Exposed = False
  140. Option Explicit
  141. Private HelpSpace() As Byte 'Open File Array
  142.  
  143. Private Sub Form_Load()
  144. Dim Node1 As Node, Node2 As Node
  145. Dim Fnum As Integer
  146. Dim HelpFileName As String
  147. Dim sText As String
  148. Dim FL As Long, I As Long, J As Long
  149. Dim SC As Byte, FC As Byte 'Content Beginning and End Identifier
  150. Dim SS As Byte, FS As Byte 'Subject Beginning and End Identifier
  151. Dim ST As Byte, FT As Byte 'Text Beginning and End Identifier
  152. Dim FZ As Byte
  153. Dim S1 As Long
  154. Fnum = FreeFile
  155. HelpFileName = App.Path & "\Help.hhf"
  156. Open HelpFileName For Binary Access Read As Fnum
  157. FL = FileLen(HelpFileName)
  158. ReDim HelpSpace(1 To FL)
  159. Get Fnum, , HelpSpace
  160. Close Fnum
  161. TreeView1.Nodes.Clear
  162. FZ = 241 'Start position of Identifiers
  163. SC = HelpSpace(FZ + 0): FC = HelpSpace(FZ + 1)
  164. SS = HelpSpace(FZ + 2): FS = HelpSpace(FZ + 3)
  165. ST = HelpSpace(FZ + 4): FT = HelpSpace(FZ + 5)
  166. For I = FZ + 48 To FL
  167.     Select Case HelpSpace(I)
  168.         Case SC: S1 = I + 1
  169.         Case FC
  170.             sText = ""
  171.             For J = S1 To I - 1: sText = sText & Chr(HelpSpace(J)): Next J
  172.             Set Node1 = TreeView1.Nodes.Add(, , , sText, 1, 1)
  173.         Case SS: S1 = I + 1
  174.         Case FS
  175.             sText = ""
  176.             For J = S1 To I - 1: sText = sText & Chr(HelpSpace(J)): Next J
  177.             Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, , sText, 2, 2)
  178.         Case ST: S1 = I + 1
  179.         Case FT: Node2.Tag = Str(S1) & "," & Str(I - 1)
  180.     End Select
  181. Next I
  182. End Sub
  183.  
  184. Private Sub OKbut_Click()
  185. Unload Me
  186. End Sub
  187.  
  188. Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  189. If Node.Tag <> "" Then
  190.     Dim I As Long
  191.     Dim mTag() As String
  192.     Text1.Text = ""
  193.     mTag = Split(Node.Tag, ",")
  194.     For I = Val(mTag(0)) To Val(mTag(1))
  195.         Text1.SelText = Chr(HelpSpace(I))
  196.     Next I
  197. Else
  198.     Text1.Text = ""
  199. End If
  200. End Sub
  201.