home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nhx / gototop.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  1.4 KB  |  55 lines
  1. VERSION 2.00
  2. Begin Form gototop 
  3.    Caption         =   "Go To Topic"
  4.    ClientHeight    =   2865
  5.    ClientLeft      =   1140
  6.    ClientTop       =   3360
  7.    ClientWidth     =   3060
  8.    Height          =   3270
  9.    Icon            =   GOTOTOP.FRX:0000
  10.    Left            =   1080
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   2865
  14.    ScaleWidth      =   3060
  15.    Top             =   3015
  16.    Width           =   3180
  17.    Begin CommandButton Command1 
  18.       Caption         =   "GoToIt!"
  19.       Default         =   -1  'True
  20.       Height          =   375
  21.       Left            =   120
  22.       TabIndex        =   1
  23.       Top             =   2400
  24.       Width           =   2775
  25.    End
  26.    Begin ListBox List1 
  27.       Height          =   2175
  28.       Left            =   120
  29.       TabIndex        =   0
  30.       Top             =   120
  31.       Width           =   2775
  32.    End
  33. Sub Command1_Click ()
  34.     DoGoToTopic
  35. End Sub
  36. Sub DoGoToTopic ()
  37.     a$ = list1.text
  38.     OldTopic% = CurrentTopic%
  39.     NewTopic% = FindTopic(a$)
  40.     If NewTopic% Then
  41.         HideTopic OldTopic%
  42.         Unload GoToTop
  43.         ShowTopic NewTopic%
  44.         End If
  45. End Sub
  46. Sub Form_Load ()
  47.     For i% = 0 To TopicCount%
  48.         a$ = MainForm.TextTopic(i%).tag
  49.         list1.AddItem a$
  50.         Next i%
  51. End Sub
  52. Sub List1_DblClick ()
  53. DoGoToTopic
  54. End Sub
  55.