Dynamically created textboxes underneath eachother after each button click

Question

3.00/5 (1 vote)

See more:

I'm trying to write a class at the moment that creates a brand new textbox on form1 after each click.

the newly created textbox needs to appear directly under the next textbox.

It's very simple at the moment as you can see.

VB

Public Class Textbox_Create

    Shared Property tb As Control

    Public Shared Sub addtextbox()
        Dim Counttotal As Integer = 1
        Dim count As Integer = 1
        Dim name As String
        Dim tb As New TextBox()
        name = ("TxtBox" & CStr(Counttotal))
        tb.Name = name
        tb.Height = 10
        tb.Width = 5
        Counttotal = count + Counttotal
        Form1.Controls.Add(tb)
    End Sub
End Class

The first button click works fine, it creates the first textbox. All good.

But on second button click (Obviously) It is being placed right over the top of the original textbox, not underneath.

It names the textbox as I want to be able to refer to the previous textbox's location (I'm guessing you would refer to the original textbox name and then point to it's x,y location)

Am I going about this the right way?

Posted 3-Feb-14 19:53pm

Mendaharin

Updated 3-Feb-14 20:12pm

Blutfaust

v2

Add a Solution

3 solutions

Solution 3

Just drag a FlowLayoutPanel where the text box to be displayed.

Try the following code.

VB

Private ClickCounter As Integer = 0
Private Overloads Sub CreateTextBox(ByVal container As Control)
    'Create new textbox instance
    Dim m_NewTextBox As New TextBox
    'Set Properties
    m_NewTextBox.Name = String.Format("TextBox{0}", ClickCounter)
    m_NewTextBox.Text = String.Format("TextBox{0}", ClickCounter)
    'Add to container(flowlayout pannel container)
    container.Controls.Add(m_NewTextBox)
    'Increment ClickCounter
    ClickCounter = ClickCounter + 1
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    FlowLayoutPanel1.AutoScroll = True
    CreateTextBox(Me.FlowLayoutPanel1)
End Sub

Posted 5-Feb-14 18:31pm

Winston Madiano

Updated 5-Feb-14 18:34pm

v3

Comments

Mendaharin 6-Feb-14 0:55am

Very interesting. Just wondering, as I'm trying to figure out the best way to do it. Eventually you will be able to delete these textboxes, which would leave an empty space. By using flowlayout, is it easier to fill those spaces when more information comes through?
I will have a look at the class information and see what's available.

Solution 1

if not at runtime, you can just right click on the textbox and click send to back.

but if at runtime, I believe there's this kind of code:

VB

textbox1.sendToBack()

I haven't tried that one, but I've seen it whenever I press '.' after the control's name. :D

maybe you can try. I won't hurt I think..

Posted 3-Feb-14 20:12pm

Karen Mitchelle

Comments

Mendaharin 5-Feb-14 18:45pm

Thanks it does do as you say, but I think I've confused. I don't need one textbox underneath another I need it below the first textbox. so textbox1 is at x,y and then textbox 2 is underneath textbox1's lowest point y.

Karen Mitchelle 5-Feb-14 20:27pm

I'm sorry I'm also confused. So you are saying that the next textbox must be UNDER the first textbox? The word UNDERNEATH is confusing, you know..
I'll try making a code for that. Wait.. :)

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Karen Mitchelle · Accepted Answer · 2014-02-05T15:09:00

you could try this one. Sorry, I misunderstood your question..

VB

Dim tb(100) As TextBox
Dim Counttotal As Integer
Dim txtname As String
Dim Xloc As Integer
Dim Yloc, ctr As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Counttotal += 1
        tb(Counttotal) = New TextBox
        txtname = ("TxtBox" & CStr(Counttotal))
        With tb(Counttotal)
            .Location = New Point(Xloc, Yloc + ctr)
            .Text = txtname
            .Height = 10
            .Width = 50
        End With
        Me.Controls.Add(tb(Counttotal))
        ctr += 20
End Sub