CODEWITHSUNDEEP
vb.net
maxG795
maxG795

Reputation: 61

problems adding controls to a groupbox

I am creating a grid of textboxes inside a groupbox in vb.net. they are all of a uniform width,height, font etc.. the code I currently have is this:

 Dim new_cell As New TextBox
 With new_cell
        .Multiline = True
        .Width = cell_width
        .Height = cell_height
        .Font = ("arial", 12)
    End With

    For j = 0 To N
        For i = 0 To M
                new_cell.Left = (i * cell_width) + i
                new_cell.Top = (j * cell_width) + j
                space.Controls.Add(new_cell)
        Next
    Next

where M,N are the grid size and space is the groupbox. this was supposed to create the whole grid however it only creates one textbox at the bottom corner. This is because the changes to new_cell on the next iteration of the loop affect the previous control and so a new control is never added. I could replace the single textbox with an array and then loop through and add each element of the textbox array to the groupbox. this however creates ugly code and seems inefficient( what with the repeated properties for each cell) and so I was wondering whether there was a way to add a control to a groupbox and then disassociate (or something) the textbox variable and the textbox added to the groupbox.

Upvotes: 1

Views: 1226

Answers (1)

Bjørn-Roger Kringsjå
Bjørn-Roger Kringsjå

Reputation: 10001

You create only one TextBox. You need to move Dim new_cell As New TextBox inside the i loop.

For j = 0 To N
    For i = 0 To M

        Dim new_cell As New TextBox

        With new_cell
            .Multiline = True
            .Width = cell_width
            .Height = cell_height
            .Font = ("arial", 12)
        End With

        new_cell.Left = (i * cell_width) + i
        new_cell.Top = (j * cell_width) + j
        space.Controls.Add(new_cell)

    Next
Next

Or even better:

Dim cell_x As Integer = space.DisplayRectangle.Left
Dim cell_y As Integer = space.DisplayRectangle.Top
Dim cell_i As Integer = 0 ': Cell `i` spacing
Dim cell_j As Integer = 0 ': Cell `j` spacing

For j = 0 To N
    For i = 0 To M
        space.Controls.Add(New TextBox() With {
            .Name = String.Format("N{0}M{1}", j, i),
            .Multiline = True,
            .Width = cell_width,
            .Height = cell_height,
            .Font = New Font("arial", 12),
            .Left = (cell_x + (i * (cell_width + cell_i))),
            .Top = (cell_y + (j * (cell_height + cell_j)))
        })
    Next
Next

Upvotes: 2

Related Questions