DP Tool Club 13/CD_ASCQ_13_0494.iso/maj/1697/samples/gotoline.frm

Text File | 1993-09-29 | 2KB | 66 lines

VERSION 2.00
Begin Form frmGotoLine
   Caption         =   "Goto Line"
   Height          =   1800
   Left            =   1185
   LinkTopic       =   "Form2"
   ScaleHeight     =   1395
   ScaleWidth      =   4020
   Top             =   2340
   Width           =   4140
   Begin TextBox Text1
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   540
      Width           =   1665
   End
   Begin CommandButton cmdcancel
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   375
      Left            =   2685
      TabIndex        =   3
      Top             =   645
      Width           =   1095
   End
   Begin CommandButton cmdOK
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   2685
      TabIndex        =   2
      Top             =   120
      Width           =   1095
   End
   Begin Label Label1
      Caption         =   "&Line Number:"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   1455
   End
End
Option Explicit

Sub cmdcancel_Click ()
    Unload Me
End Sub

Sub cmdOK_Click ()
    DoIt
End Sub

Sub DoIt ()
    On Error GoTo SearchError
    Dim GoLine As Long
    GoLine = CLng(Text1.Text)
    Resume Next
    frmMDI.ActiveForm.ActiveControl.CaretY = CLng(Text1.Text)
SearchError:
    Resume Next
    Unload Me
End Sub