Classe pública Form1
LastTextBox confidencial como o TextBox = nada
Punhos confidenciais MyBase.Load do submarino Form1_Load (remetente de ByVal como System.Object, ByVal e como System.EventArgs)
TB não ofuscante como o TextBox
Ctls não ofuscantes () como o controle
Para i como o inteiro = 0 a 71
ctls = Me.Controls.Find (“TextBox” & i, verdadeiro)
Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é TextBox então
TB = C (ctls (0), TextBox)
AddHandler tb.GotFocus, tb_GotFocus de AddressOf
Terminar se
Em seguida
Submarino da extremidade
tb_GotFocus secundário confidencial (remetente de ByVal como o objeto, ByVal e como System.EventArgs)
TB não ofuscante como o TextBox = o C (remetente, TextBox)
LastTextBox = TB
Submarino da extremidade
O btnRight_Click secundário confidencial (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura btnRight.Click
Se não IsNothing (LastTextBox) então
Escurecer i como o inteiro
Escurecer o strInt como a corda = o LastTextBox.Name.Remove (0, “TextBox”. Comprimento)
Se Integer.TryParse (strInt, i) então
Se ((i + 1) modificação 9) <> 0 então
i = i + 1
Ctls não ofuscantes () como o controle = o Me.Controls.Find (“TextBox” & o i, verdadeiro)
Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é TextBox então
TB não ofuscante como o TextBox = o C (ctls (0), TextBox)
TB. Foco ()
Terminar se
Mais
LastTextBox.Focus ()
Terminar se
Terminar se
Terminar se
Terminar o submarino
O btnLeft_Click secundário confidencial (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura btnLeft.Click
Se não IsNothing (LastTextBox) então
Escurecer i como o inteiro
Escurecer o strInt como a corda = o LastTextBox.Name.Remove (0, “TextBox”. Comprimento)
Se Integer.TryParse (strInt, i) então
Se (modificação 9 de i) <> 0 então
i = i - 1
Ctls não ofuscantes () como o controle = o Me.Controls.Find (“TextBox” & o i, verdadeiro)
Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é TextBox então
TB não ofuscante como o TextBox = o C (ctls (0), TextBox)
TB. Foco ()
Terminar se
Mais
LastTextBox.Focus ()
Terminar se
Terminar se
Terminar se
Terminar o submarino
O btnUp_Click secundário confidencial (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura btnUp.Click
Se não IsNothing (LastTextBox) então
Escurecer i como o inteiro
Escurecer o strInt como a corda = o LastTextBox.Name.Remove (0, “TextBox”. Comprimento)
Se Integer.TryParse (strInt, i) então
Se i > 8 então
i = i - 9
Ctls não ofuscantes () como o controle = o Me.Controls.Find (“TextBox” & o i, verdadeiro)
Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é TextBox então
TB não ofuscante como o TextBox = o C (ctls (0), TextBox)
TB. Foco ()
Terminar se
Mais
LastTextBox.Focus ()
Terminar se
Terminar se
Terminar se
Terminar o submarino
O btnDown_Click secundário confidencial (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura btnDown.Click
Se não IsNothing (LastTextBox) então
Escurecer i como o inteiro
Escurecer o strInt como a corda = o LastTextBox.Name.Remove (0, “TextBox”. Comprimento)
Se Integer.TryParse (strInt, i) então
Se os ctls < 63="" Then="" i="i"> de i 0 AndAlso TypeOf (0) são TextBox então
TB não ofuscante como o TextBox = o C (ctls (0), TextBox)
TB. Foco ()
Terminar se
Mais
LastTextBox.Focus ()
Terminar se
Terminar se
Terminar se
Terminar o submarino
Terminar a classe
|