Clase pública Form1
LastTextBox privado como TextBox = nada
Manijas privadas MyBase.Load del submarino Form1_Load (remitente de ByVal como System.Object, ByVal e como System.EventArgs)
TB dévil como TextBox
Ctls déviles () como control
Para i como número entero = 0 a 71
ctls = Me.Controls.Find (“TextBox” y i, verdad)
Si ctls. La longitud > 0 los ctls de AndAlso TypeOf (0) entonces es TextBox
TB = C (ctls (0), TextBox)
AddHandler tb.GotFocus, tb_GotFocus de AddressOf
Terminar si
Después
Submarino del extremo
tb_GotFocus secundario privado (remitente de ByVal como objeto, ByVal e como System.EventArgs)
TB dévil como el TextBox = C (remitente, TextBox)
LastTextBox = TB
Submarino del extremo
El btnRight_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnRight.Click
Si no IsNothing (LastTextBox) entonces
Amortiguar i como número entero
Amortiguar el strInt como la secuencia = LastTextBox.Name.Remove (0, “TextBox”. Longitud)
Si Integer.TryParse (strInt, i) entonces
Si ((i + 1) MOD 9) <> 0 entonces
i = i + 1
Ctls déviles () como control = Me.Controls.Find (“TextBox” y i, verdad)
Si ctls. La longitud > 0 los ctls de AndAlso TypeOf (0) entonces es TextBox
TB dévil como el TextBox = C (ctls (0), TextBox)
TB. Foco ()
Terminar si
LastTextBox.Focus ()
Terminar si
Terminar si
Terminar si
Terminar el submarino
El btnLeft_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnLeft.Click
Si no IsNothing (LastTextBox) entonces
Amortiguar i como número entero
Amortiguar el strInt como la secuencia = LastTextBox.Name.Remove (0, “TextBox”. Longitud)
Si Integer.TryParse (strInt, i) entonces
Si (MOD de i 9) <> 0 entonces
i = i - 1
Ctls déviles () como control = Me.Controls.Find (“TextBox” y i, verdad)
Si ctls. La longitud > 0 los ctls de AndAlso TypeOf (0) entonces es TextBox
TB dévil como el TextBox = C (ctls (0), TextBox)
TB. Foco ()
Terminar si
LastTextBox.Focus ()
Terminar si
Terminar si
Terminar si
Terminar el submarino
El btnUp_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnUp.Click
Si no IsNothing (LastTextBox) entonces
Amortiguar i como número entero
Amortiguar el strInt como la secuencia = LastTextBox.Name.Remove (0, “TextBox”. Longitud)
Si Integer.TryParse (strInt, i) entonces
Si i > 8 entonces
i = i - 9
Ctls déviles () como control = Me.Controls.Find (“TextBox” y i, verdad)
Si ctls. La longitud > 0 los ctls de AndAlso TypeOf (0) entonces es TextBox
TB dévil como el TextBox = C (ctls (0), TextBox)
TB. Foco ()
Terminar si
LastTextBox.Focus ()
Terminar si
Terminar si
Terminar si
Terminar el submarino
El btnDown_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnDown.Click
Si no IsNothing (LastTextBox) entonces
Amortiguar i como número entero
Amortiguar el strInt como la secuencia = LastTextBox.Name.Remove (0, “TextBox”. Longitud)
Si Integer.TryParse (strInt, i) entonces
Si los ctls < 63="" Then="" i="i"> de i 0 AndAlso TypeOf (0) entonces son TextBox
TB dévil como el TextBox = C (ctls (0), TextBox)
TB. Foco ()
Terminar si
LastTextBox.Focus ()
Terminar si
Terminar si
Terminar si
Terminar el submarino
Terminar la clase
|