Help with Creating Textboxes During Runtime.

[rseanbarnes]

Hello,

I am designing a program using Visual Basic 2005 Express Edition that will ask the user for a number between 1 and 50.

When the button on the form is clicked, another form (Form2) opens and the number is passed to Form2.

If the user inputs "20" in the first form, I need 20 textboxes to appear in a column in Form2.

If the user inputs 10, I need 10 textboxes and so on....

What I need help with is coding for the correct number of textboxes in Form2.

Any and all help will be appreciated.

Thanks.

[willakawill]

Hello,

I am designing a program using Visual Basic 2005 Express Edition that will ask the user for a number between 1 and 50.

When the button on the form is clicked, another form (Form2) opens and the number is passed to Form2.

If the user inputs "20" in the first form, I need 20 textboxes to appear in a column in Form2.

If the user inputs 10, I need 10 textboxes and so on....

What I need help with is coding for the correct number of textboxes in Form2.

Any and all help will be appreciated.

Thanks.

Hi. With the version of vb that you are using there is a problem with this approach. vb.NET does not support control arrays and a control array is exactly what you need for your project. Otherwise the coding will be cumbersome and bulky.

Do a google search for vb.NET control array

good luck

[Killer42]

...vb.NET does not support control arrays and a control array is exactly what you need ...

Damn! MS were really keen to get rid of control arrays, huh. I wonder why, when they are so amazingly useful.

[Ben3eeE]

I actually found some MS(i think) example code called "Controlarraysatruntime"
and since iam new to programming i dont really understand everything here.

    Dim MynewPos As New Point(50, 40)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pnt As New Point(CType(TextBox2.Text, Integer), CType(TextBox3.Text, Integer))
 
        CreateThem(CType(TextBox1.Text, Integer), pnt)
    End Sub
 
    Public Sub CreateThem(ByVal NumbOfPix As Integer, ByRef mypt As Point)
        MynewPos = mypt
 
        Dim i As Integer
        If NumbOfPix = 0 Then
            Exit Sub
        End If
 
        For i = 0 To NumbOfPix - 1
            Dim PIC As New System.Windows.Forms.PictureBox
            PIC.Size = New System.Drawing.Size(20, 20)
            PIC.Location = MynewPos
            PIC.Name = "PictureBox"
            PIC.BackColor = System.Drawing.Color.Black
            PIC.Text = i
            PIC.ForeColor = Color.Black
            MynewPos.Y += 30
            Me.Controls.Add(PIC)
        Next
    End Sub
End Class
 

[rseanbarnes]

Thanks everyone.

Sean