Classe publique Form1
LastTextBox privé comme boîte à textes = rien
Poignées privées MyBase.Load du sous-marin Form1_Load (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs)
Faible TB comme boîte à textes
Faibles ctls () comme commande
Pour I comme nombre entier = 0 à 71
ctls = Me.Controls.Find (« boîte à textes » et I, vrai)
Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est boîte à textes alors
TB = C (ctls (0), boîte à textes)
AddHandler tb.GotFocus, tb_GotFocus d'AddressOf
Finir si
Après
Sous-marin d'extrémité
tb_GotFocus secondaire privé (expéditeur de ByVal comme objet, ByVal e comme System.EventArgs)
Faible TB comme boîte à textes = C (expéditeur, boîte à textes)
LastTextBox = TB
Sous-marin d'extrémité
Le btnRight_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnRight.Click
Sinon IsNothing (LastTextBox) puis
Obscurcir I comme nombre entier
Obscurcir le strInt comme corde = LastTextBox.Name.Remove (0, « boîte à textes ». Longueur)
S'Integer.TryParse (strInt, i) alors
Si ((I + 1) mod 9) <> 0 puis
i = I + 1
Faibles ctls () comme commande = Me.Controls.Find (« boîte à textes » et I, vrai)
Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est boîte à textes alors
Faible TB comme boîte à textes = C (ctls (0), boîte à textes)
TB. Foyer ()
Finir si
Autrement
LastTextBox.Focus ()
Finir si
Finir si
Finir si
Finir le sous-marin
Le btnLeft_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnLeft.Click
Sinon IsNothing (LastTextBox) puis
Obscurcir I comme nombre entier
Obscurcir le strInt comme corde = LastTextBox.Name.Remove (0, « boîte à textes ». Longueur)
S'Integer.TryParse (strInt, i) alors
Si (mod d'I 9) <> 0 puis
i = I - 1
Faibles ctls () comme commande = Me.Controls.Find (« boîte à textes » et I, vrai)
Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est boîte à textes alors
Faible TB comme boîte à textes = C (ctls (0), boîte à textes)
TB. Foyer ()
Finir si
Autrement
LastTextBox.Focus ()
Finir si
Finir si
Finir si
Finir le sous-marin
Le btnUp_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnUp.Click
Sinon IsNothing (LastTextBox) puis
Obscurcir I comme nombre entier
Obscurcir le strInt comme corde = LastTextBox.Name.Remove (0, « boîte à textes ». Longueur)
S'Integer.TryParse (strInt, i) alors
Si I > 8 puis
i = I - 9
Faibles ctls () comme commande = Me.Controls.Find (« boîte à textes » et I, vrai)
Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est boîte à textes alors
Faible TB comme boîte à textes = C (ctls (0), boîte à textes)
TB. Foyer ()
Finir si
Autrement
LastTextBox.Focus ()
Finir si
Finir si
Finir si
Finir le sous-marin
Le btnDown_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnDown.Click
Sinon IsNothing (LastTextBox) puis
Obscurcir I comme nombre entier
Obscurcir le strInt comme corde = LastTextBox.Name.Remove (0, « boîte à textes ». Longueur)
S'Integer.TryParse (strInt, i) alors
Si les ctls < 63="" Then="" i="i"> d'I 0 AndAlso TypeOf (0) est boîte à textes alors
Faible TB comme boîte à textes = C (ctls (0), boîte à textes)
TB. Foyer ()
Finir si
Autrement
LastTextBox.Focus ()
Finir si
Finir si
Finir si
Finir le sous-marin
Finir la classe
|