Option Explicit
Public iWhatToDo As Long
Private Sub cmdCancel_Click()
iWhatToDo = 0
Me.Hide
End Sub
Private Sub cmdGo_Click()
iWhatToDo = 1
Me.Hide
End Sub
Private Sub Form_Load()
Me.Left = GetSetting("ScintillaClass", "Settings", "GotoLeft", (Screen.Width - Me.Width) \ 2)
Me.Top = GetSetting("ScintillaClass", "Settings", "GotoTop", (Screen.Height - Me.Height) \ 2)
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "ScintillaClass", "Settings", "GotoLeft", Me.Left
SaveSetting "ScintillaClass", "Settings", "GotoTop", Me.Top
End Sub
Private Sub txtColumn_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And (KeyAscii <> 8) Then KeyAscii = 0
End Sub
Private Sub txtLine_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub