Sudoku array-problem

[Joe]

Hi, I am creating a sudoku on VB Dot Net but to set all textboxes to its
standard I have this code below.
I want to set this in an array but I don't know how to work with arrays.
Could someone help me?
Sincerely Thanks

A1.ReadOnly = False
A2.ReadOnly = False
A3.ReadOnly = False
A4.ReadOnly = False
A5.ReadOnly = False
A6.ReadOnly = False
A7.ReadOnly = False
A8.ReadOnly = False
A9.ReadOnly = False

B1.ReadOnly = False
B2.ReadOnly = False
B3.ReadOnly = False
B4.ReadOnly = False
B5.ReadOnly = False
B6.ReadOnly = False
B7.ReadOnly = False
B8.ReadOnly = False
B9.ReadOnly = False

C1.ReadOnly = False
C2.ReadOnly = False
C3.ReadOnly = False
C4.ReadOnly = False
C5.ReadOnly = False
C6.ReadOnly = False
C7.ReadOnly = False
C8.ReadOnly = False
C9.ReadOnly = False

D1.ReadOnly = False
D2.ReadOnly = False
D3.ReadOnly = False
D4.ReadOnly = False
D5.ReadOnly = False
D6.ReadOnly = False
D7.ReadOnly = False
D8.ReadOnly = False
D9.ReadOnly = False

E1.ReadOnly = False
E2.ReadOnly = False
E3.ReadOnly = False
E4.ReadOnly = False
E5.ReadOnly = False
E6.ReadOnly = False
E7.ReadOnly = False
E8.ReadOnly = False
E9.ReadOnly = False

F1.ReadOnly = False
F2.ReadOnly = False
F3.ReadOnly = False
F4.ReadOnly = False
F5.ReadOnly = False
F6.ReadOnly = False
F7.ReadOnly = False
F8.ReadOnly = False
F9.ReadOnly = False

G1.ReadOnly = False
G2.ReadOnly = False
G3.ReadOnly = False
G4.ReadOnly = False
G5.ReadOnly = False
G6.ReadOnly = False
G7.ReadOnly = False
G8.ReadOnly = False
G9.ReadOnly = False

H1.ReadOnly = False
H2.ReadOnly = False
H3.ReadOnly = False
H4.ReadOnly = False
H5.ReadOnly = False
H6.ReadOnly = False
H7.ReadOnly = False
H8.ReadOnly = False
H9.ReadOnly = False

I1.ReadOnly = False
I2.ReadOnly = False
I3.ReadOnly = False
I4.ReadOnly = False
I5.ReadOnly = False
I6.ReadOnly = False
I7.ReadOnly = False
I8.ReadOnly = False
I9.ReadOnly = False

A1.Clear()
A2.Clear()
A3.Clear()
A4.Clear()
A5.Clear()
A6.Clear()
A7.Clear()
A8.Clear()
A9.Clear()

B1.Clear()
B2.Clear()
B3.Clear()
B4.Clear()
B5.Clear()
B6.Clear()
B7.Clear()
B8.Clear()
B9.Clear()

C1.Clear()
C2.Clear()
C3.Clear()
C4.Clear()
C5.Clear()
C6.Clear()
C7.Clear()
C8.Clear()
C9.Clear()

D1.Clear()
D2.Clear()
D3.Clear()
D4.Clear()
D5.Clear()
D6.Clear()
D7.Clear()
D8.Clear()
D9.Clear()

E1.Clear()
E2.Clear()
E3.Clear()
E4.Clear()
E5.Clear()
E6.Clear()
E7.Clear()
E8.Clear()
E9.Clear()

F1.Clear()
F2.Clear()
F3.Clear()
F4.Clear()
F5.Clear()
F6.Clear()
F7.Clear()
F8.Clear()
F9.Clear()

G1.Clear()
G2.Clear()
G3.Clear()
G4.Clear()
G5.Clear()
G6.Clear()
G7.Clear()
G8.Clear()
G9.Clear()

H1.Clear()
H2.Clear()
H3.Clear()
H4.Clear()
H5.Clear()
H6.Clear()
H7.Clear()
H8.Clear()
H9.Clear()

I1.Clear()
I2.Clear()
I3.Clear()
I4.Clear()
I5.Clear()
I6.Clear()
I7.Clear()
I8.Clear()
I9.Clear()

[Joe]

Re: Sudoku array-problem

What I really search is an easy way to make this code shorter?

[Göran Andersson]

Re: Sudoku array-problem

The syntax is probably not correct, but I'm sure you get the idea:

Dim boxes() as new TextBox() = {A1,A2,...,I8,I 9}
ForEach box As TextBox in boxes
box.ReadOnly = False
box.Clear()
Next

Joe wrote:[color=blue]
> Hi, I am creating a sudoku on VB Dot Net but to set all textboxes to its
> standard I have this code below.
> I want to set this in an array but I don't know how to work with arrays.
> Could someone help me?
> Sincerely Thanks
>
> A1.ReadOnly = False
> A2.ReadOnly = False
> A3.ReadOnly = False
> A4.ReadOnly = False
> A5.ReadOnly = False
> A6.ReadOnly = False
> A7.ReadOnly = False
> A8.ReadOnly = False
> A9.ReadOnly = False
>
> B1.ReadOnly = False
> B2.ReadOnly = False
> B3.ReadOnly = False
> B4.ReadOnly = False
> B5.ReadOnly = False
> B6.ReadOnly = False
> B7.ReadOnly = False
> B8.ReadOnly = False
> B9.ReadOnly = False
>
> C1.ReadOnly = False
> C2.ReadOnly = False
> C3.ReadOnly = False
> C4.ReadOnly = False
> C5.ReadOnly = False
> C6.ReadOnly = False
> C7.ReadOnly = False
> C8.ReadOnly = False
> C9.ReadOnly = False
>
> D1.ReadOnly = False
> D2.ReadOnly = False
> D3.ReadOnly = False
> D4.ReadOnly = False
> D5.ReadOnly = False
> D6.ReadOnly = False
> D7.ReadOnly = False
> D8.ReadOnly = False
> D9.ReadOnly = False
>
> E1.ReadOnly = False
> E2.ReadOnly = False
> E3.ReadOnly = False
> E4.ReadOnly = False
> E5.ReadOnly = False
> E6.ReadOnly = False
> E7.ReadOnly = False
> E8.ReadOnly = False
> E9.ReadOnly = False
>
> F1.ReadOnly = False
> F2.ReadOnly = False
> F3.ReadOnly = False
> F4.ReadOnly = False
> F5.ReadOnly = False
> F6.ReadOnly = False
> F7.ReadOnly = False
> F8.ReadOnly = False
> F9.ReadOnly = False
>
> G1.ReadOnly = False
> G2.ReadOnly = False
> G3.ReadOnly = False
> G4.ReadOnly = False
> G5.ReadOnly = False
> G6.ReadOnly = False
> G7.ReadOnly = False
> G8.ReadOnly = False
> G9.ReadOnly = False
>
> H1.ReadOnly = False
> H2.ReadOnly = False
> H3.ReadOnly = False
> H4.ReadOnly = False
> H5.ReadOnly = False
> H6.ReadOnly = False
> H7.ReadOnly = False
> H8.ReadOnly = False
> H9.ReadOnly = False
>
> I1.ReadOnly = False
> I2.ReadOnly = False
> I3.ReadOnly = False
> I4.ReadOnly = False
> I5.ReadOnly = False
> I6.ReadOnly = False
> I7.ReadOnly = False
> I8.ReadOnly = False
> I9.ReadOnly = False
>
> A1.Clear()
> A2.Clear()
> A3.Clear()
> A4.Clear()
> A5.Clear()
> A6.Clear()
> A7.Clear()
> A8.Clear()
> A9.Clear()
>
> B1.Clear()
> B2.Clear()
> B3.Clear()
> B4.Clear()
> B5.Clear()
> B6.Clear()
> B7.Clear()
> B8.Clear()
> B9.Clear()
>
> C1.Clear()
> C2.Clear()
> C3.Clear()
> C4.Clear()
> C5.Clear()
> C6.Clear()
> C7.Clear()
> C8.Clear()
> C9.Clear()
>
> D1.Clear()
> D2.Clear()
> D3.Clear()
> D4.Clear()
> D5.Clear()
> D6.Clear()
> D7.Clear()
> D8.Clear()
> D9.Clear()
>
> E1.Clear()
> E2.Clear()
> E3.Clear()
> E4.Clear()
> E5.Clear()
> E6.Clear()
> E7.Clear()
> E8.Clear()
> E9.Clear()
>
> F1.Clear()
> F2.Clear()
> F3.Clear()
> F4.Clear()
> F5.Clear()
> F6.Clear()
> F7.Clear()
> F8.Clear()
> F9.Clear()
>
> G1.Clear()
> G2.Clear()
> G3.Clear()
> G4.Clear()
> G5.Clear()
> G6.Clear()
> G7.Clear()
> G8.Clear()
> G9.Clear()
>
> H1.Clear()
> H2.Clear()
> H3.Clear()
> H4.Clear()
> H5.Clear()
> H6.Clear()
> H7.Clear()
> H8.Clear()
> H9.Clear()
>
> I1.Clear()
> I2.Clear()
> I3.Clear()
> I4.Clear()
> I5.Clear()
> I6.Clear()
> I7.Clear()
> I8.Clear()
> I9.Clear()[/color]

[tlkerns]

Re: Sudoku array-problem

If these controls are on a Windows Form, you can just iterate throught the
Controls collection:

For Each ctl as Control in Me.Controls
If TypeOf ctl is TextBox Then
'The Select Case is here in case there are other TextBoxes on the
Form.
Select Case ctl.Name.Substr ing(0,1)
Case "A","B","C","D" ,"E","F"
CType(ctl,TextB ox).ReadOnly=Fa lse
CType(ctl,TextB ox).Clear()
End Select
EndIf
Next

Tony

"Joe" wrote:
[color=blue]
> What I really search is an easy way to make this code shorter?
>[/color]