home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4609 / tx4vb / goto.fr_ / goto.fr
Text File  |  1994-03-09  |  2KB  |  60 lines
  1. VERSION 2.00
  2. Begin Form frmGotoDlg 
  3.    Caption         =   "Goto Bookmark"
  4.    ClientHeight    =   1350
  5.    ClientLeft      =   1965
  6.    ClientTop       =   2175
  7.    ClientWidth     =   2730
  8.    Height          =   1755
  9.    Left            =   1905
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   1350
  12.    ScaleWidth      =   2730
  13.    Top             =   1830
  14.    Width           =   2850
  15.    Begin TextBox Text1 
  16.       Height          =   285
  17.       Left            =   2040
  18.       TabIndex        =   2
  19.       Text            =   "1"
  20.       Top             =   240
  21.       Width           =   495
  22.    End
  23.    Begin CommandButton CmdCancel 
  24.       Caption         =   "Cancel"
  25.       Height          =   375
  26.       Left            =   1440
  27.       TabIndex        =   1
  28.       Top             =   840
  29.       Width           =   1095
  30.    End
  31.    Begin CommandButton cmdOk 
  32.       Caption         =   "OK"
  33.       Height          =   375
  34.       Left            =   120
  35.       TabIndex        =   0
  36.       Top             =   840
  37.       Width           =   1215
  38.    End
  39.    Begin Label Label1 
  40.       Caption         =   "Go to bookmark no."
  41.       Height          =   255
  42.       Left            =   120
  43.       TabIndex        =   3
  44.       Top             =   240
  45.       Width           =   1815
  46.    End
  47. End
  48.  
  49. Sub CmdCancel_Click ()
  50.     Unload Me
  51. End Sub
  52.  
  53. Sub cmdOk_Click ()
  54.     Form1!TextControl1.FieldCurrent = Text1.Text
  55.     Form1!TextControl1.SelStart = Form1!TextControl1.FieldStart - 1
  56.     Form1!TextControl1.SelLength = Form1!TextControl1.FieldEnd - Form1!TextControl1.FieldStart + 1
  57.     Unload Me
  58. End Sub
  59.  
  60.