Sudoku array-problem

1 Jul 2006 1:13 PM

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()

1 Jul 2006 1:23 PM

Joe

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

1 Jul 2006 8:12 PM

tlkerns

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.Substring(0,1)
            Case "A","B","C","D","E","F"
                CType(ctl,TextBox).ReadOnly=False
                CType(ctl,TextBox).Clear()
        End Select
    EndIf
Next

Tony

Show quoteHide quote

"Joe" wrote:

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

1 Jul 2006 8:12 PM

Göran_Andersson

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

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

Joe wrote:
Show quoteHide quote

> 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()