home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form Form2
- Caption = "Rockford! Professional: Help"
- ClientHeight = 5670
- ClientLeft = 240
- ClientTop = 1365
- ClientWidth = 9045
- Height = 6600
- Left = 180
- LinkMode = 1 'Source
- LinkTopic = "Form2"
- ScaleHeight = 5670
- ScaleWidth = 9045
- Top = 495
- Width = 9165
- Begin ListBox List1
- Height = 5100
- Left = 120
- TabIndex = 0
- Top = 480
- Width = 3135
- End
- Begin TextBox Text1
- Height = 5415
- Left = 3360
- MultiLine = -1 'True
- ScrollBars = 2 'Vertical
- TabIndex = 1
- Text = "Text1"
- Top = 120
- Width = 5655
- End
- Begin CommandButton Command1
- Cancel = -1 'True
- Caption = "Return"
- Height = 255
- Left = 2640
- TabIndex = 3
- Top = 120
- Width = 735
- End
- Begin Label Label1
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00C0C0C0&
- BorderStyle = 1 'Fixed Single
- Caption = "Topic Index -- Click to View "
- Height = 225
- Left = 120
- TabIndex = 2
- Top = 120
- Width = 2460
- End
- Begin Menu endhelpcom
- Caption = "&Return To Calling Program"
- End
- Sub Command1_Click ()
- form2.Hide
- form1.Refresh
- SendKeys "%A"
- End Sub
- Sub endhelpcom_click ()
- form2.Hide
- form1.Refresh
- SendKeys "%A"
- End Sub
- Sub Form_GotFocus ()
- screen.MousePointer = 1
- End Sub
- Sub Form_Load ()
- On Error GoTo nohelp
- nl$ = Chr$(13) + Chr$(10)
- helpindex$ = "EZHELP.IDX"
- Open helpindex$ For Input As #2
- Do While Not EOF(2)
- Line Input #2, item$
- list1.AddItem (item$)
- Close #2
- helpfile$ = "EZHELP.HLP"
- Open helpfile$ For Input As #2
- Do While Not EOF(2)
- Line Input #2, helpline$
- helptext$ = helptext$ + helpline$ + nl$
- text1.Text = helptext$
- Close #2
- screen.MousePointer = 1
- GoTo endhelp
- nohelp:
- nohelpflag = 1
- msg$ = "Can't find help files. Must be in VBASIC Directory!"
- MsgBox msg$, 0, "EZHELP File Error!"
- Resume endhelp
- endhelp:
- If nohelpflag = 1 Then endhelpcom_click
- End Sub
- Sub List1_Click ()
- text1.SelStart = Len(text1.Text)
- text1.SetFocus
- If InStr(text1.Text, list1.Text) > 1 Then
- text1.SelStart = InStr(text1.Text, list1.Text) - 1
- text1.SelLength = CSng(Len(list1.Text))
- End If
- End Sub
- Sub List1_GotFocus ()
- screen.MousePointer = 1
- End Sub
- Sub Text1_GotFocus ()
- screen.MousePointer = 1
- End Sub
- Sub Text1_KeyPress (keyascii As Integer)
- keyascii = 0
- text1.Text = helptext$
- list1.SetFocus
- End Sub
- Sub Text1_KeyUp (KeyCode As Integer, Shift As Integer)
- text1.Text = helptext$
- list1.SetFocus
- End Sub
-