frmGoto Source Code

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