home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nhx / linkedit.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.0 KB  |  110 lines
  1. VERSION 2.00
  2. Begin Form LinkEdit 
  3.    Caption         =   "Edit Hypertext Links"
  4.    ClientHeight    =   3945
  5.    ClientLeft      =   2895
  6.    ClientTop       =   2130
  7.    ClientWidth     =   2940
  8.    Height          =   4350
  9.    Icon            =   LINKEDIT.FRX:0000
  10.    Left            =   2835
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3945
  14.    ScaleWidth      =   2940
  15.    Top             =   1785
  16.    Width           =   3060
  17.    Begin CommandButton Command5 
  18.       Caption         =   "OK"
  19.       Height          =   375
  20.       Left            =   240
  21.       TabIndex        =   5
  22.       Top             =   3480
  23.       Width           =   2415
  24.    End
  25.    Begin CommandButton Command3 
  26.       Caption         =   "Cancel"
  27.       Default         =   -1  'True
  28.       Height          =   375
  29.       Left            =   240
  30.       TabIndex        =   2
  31.       Top             =   3000
  32.       Width           =   2415
  33.    End
  34.    Begin CommandButton Command4 
  35.       Caption         =   "HEEELLLPPP!!!"
  36.       Height          =   375
  37.       Left            =   240
  38.       TabIndex        =   3
  39.       Top             =   2520
  40.       Width           =   2415
  41.    End
  42.    Begin CommandButton Command7 
  43.       Caption         =   "GoTo an existing topic..."
  44.       Height          =   375
  45.       Left            =   240
  46.       TabIndex        =   7
  47.       Top             =   2040
  48.       Width           =   2415
  49.    End
  50.    Begin CommandButton Command6 
  51.       Caption         =   "Link to an external app..."
  52.       Height          =   375
  53.       Left            =   240
  54.       TabIndex        =   6
  55.       Top             =   1560
  56.       Width           =   2415
  57.    End
  58.    Begin CommandButton Command2 
  59.       Caption         =   "Link to new topic..."
  60.       Height          =   375
  61.       Left            =   240
  62.       TabIndex        =   1
  63.       Top             =   1080
  64.       Width           =   2415
  65.    End
  66.    Begin CommandButton Command1 
  67.       Caption         =   "Link to existing topic..."
  68.       Height          =   375
  69.       Left            =   240
  70.       TabIndex        =   0
  71.       Top             =   600
  72.       Width           =   2415
  73.    End
  74.    Begin TextBox Text1 
  75.       Height          =   375
  76.       Left            =   240
  77.       TabIndex        =   4
  78.       Text            =   "Text1"
  79.       Top             =   120
  80.       Width           =   2415
  81.    End
  82. Sub Command1_Click ()
  83.     SelTopic.Show 1
  84. End Sub
  85. Sub Command2_Click ()
  86.     text1.text = NewHyperText$()
  87. End Sub
  88. Sub Command3_Click ()
  89.     Unload linkedit
  90. End Sub
  91. Sub Command4_Click ()
  92.     MsgBox "so sorry, no help available", 1, APPNAME$
  93. End Sub
  94. Sub Command5_Click ()
  95.     MainForm.TextTopic(CurrentTopic%).seltext = text1.text
  96.     Unload linkedit
  97. End Sub
  98. Sub Command7_Click ()
  99.     SelTopic.Show 1
  100.     a$ = text1.text
  101.     NewTopic% = FindTopic(a$)
  102.     If NewTopic% Then
  103.         Unload linkedit
  104.         ShowTopic NewTopic%
  105.         End If
  106. End Sub
  107. Sub Form_Load ()
  108.     text1.text = MainForm.TextTopic(CurrentTopic%).seltext
  109. End Sub
  110.