Codice categoria pubblico Form1
LastTextBox riservato come casella di testo = niente
Maniglie riservate MyBase.Load del sommergibile Form1_Load (mittente di ByVal come System.Object, ByVal e come System.EventArgs)
TB fioca come casella di testo
Ctls fiochi () come controllo
Per la i come numero intero = 0 - 71
ctls = Me.Controls.Find (“casella di testo„ & i, allineare)
Se ctls. La lunghezza > 0 ctls di AndAlso TypeOf (0) allora è casella di testo
TB = l$tipo C (ctls (0), casella di testo)
AddHandler tb.GotFocus, tb_GotFocus di AddressOf
Concluder se
Dopo
Sommergibile dell'estremità
tb_GotFocus secondario riservato (mittente di ByVal come oggetto, ByVal e come System.EventArgs)
TB fioca come la casella di testo = l$tipo C (mittente, casella di testo)
LastTextBox = TB
Sommergibile dell'estremità
Il btnRight_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnRight.Click
Se non IsNothing (LastTextBox) allora
Oscurare la i come numero intero
Oscurare lo strInt come stringa = LastTextBox.Name.Remove (0, “casella di testo„. Lunghezza)
Se Integer.TryParse (strInt, i) allora
Se ((i + 1) MOD 9) <> 0 allora
i = i + 1
Ctls fiochi () come controllo = Me.Controls.Find (“casella di testo„ & i, allineare)
Se ctls. La lunghezza > 0 ctls di AndAlso TypeOf (0) allora è casella di testo
TB fioca come la casella di testo = l$tipo C (ctls (0), casella di testo)
TB. Fuoco ()
Concluder se
Altrimenti
LastTextBox.Focus ()
Concluder se
Concluder se
Concluder se
Concludere il sommergibile
Il btnLeft_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnLeft.Click
Se non IsNothing (LastTextBox) allora
Oscurare la i come numero intero
Oscurare lo strInt come stringa = LastTextBox.Name.Remove (0, “casella di testo„. Lunghezza)
Se Integer.TryParse (strInt, i) allora
Se (MOD di i 9) <> 0 allora
i = i - 1
Ctls fiochi () come controllo = Me.Controls.Find (“casella di testo„ & i, allineare)
Se ctls. La lunghezza > 0 ctls di AndAlso TypeOf (0) allora è casella di testo
TB fioca come la casella di testo = l$tipo C (ctls (0), casella di testo)
TB. Fuoco ()
Concluder se
Altrimenti
LastTextBox.Focus ()
Concluder se
Concluder se
Concluder se
Concludere il sommergibile
Il btnUp_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnUp.Click
Se non IsNothing (LastTextBox) allora
Oscurare la i come numero intero
Oscurare lo strInt come stringa = LastTextBox.Name.Remove (0, “casella di testo„. Lunghezza)
Se Integer.TryParse (strInt, i) allora
Se i > 8 allora
i = i - 9
Ctls fiochi () come controllo = Me.Controls.Find (“casella di testo„ & i, allineare)
Se ctls. La lunghezza > 0 ctls di AndAlso TypeOf (0) allora è casella di testo
TB fioca come la casella di testo = l$tipo C (ctls (0), casella di testo)
TB. Fuoco ()
Concluder se
Altrimenti
LastTextBox.Focus ()
Concluder se
Concluder se
Concluder se
Concludere il sommergibile
Il btnDown_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnDown.Click
Se non IsNothing (LastTextBox) allora
Oscurare la i come numero intero
Oscurare lo strInt come stringa = LastTextBox.Name.Remove (0, “casella di testo„. Lunghezza)
Se Integer.TryParse (strInt, i) allora
Se i ctls < 63="" Then="" i="i"> di i 0 AndAlso TypeOf (0) allora è casella di testo
TB fioca come la casella di testo = l$tipo C (ctls (0), casella di testo)
TB. Fuoco ()
Concluder se
Altrimenti
LastTextBox.Focus ()
Concluder se
Concluder se
Concluder se
Concludere il sommergibile
Concludere il codice categoria
|