[Knowledge needed]

Is there a way to make a object(text box;..) with a button (new object for the user on MY project)?

[B7vks]

from tool box

[Knowledge needed]

- Uhm I want to make a program that makes text boxes meaning when the click on a button in my created project that it creates a text box or ...(what ever in the toolbox) instead of creating allot of them and hiding them until needed.

For example : A program where you can create your own form - that's my objective of my program and this point.

Thanks

[andrewsw]

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim tb As TextBox

        tb = New TextBox
        tb.Text = "Hi new textbox"
        tb.Name = "txtNew1"

        tb.Location = New Point(10, 10)
        Me.Controls.Add(tb)
    End Sub

[Knowledge needed]

D.I.C Regular!!! Thanks allot

Is there anyway that you can save it to the project.. when it loads up again the text box still exist?

Please and thank you

Rudi

[lar3ry]

Quote

Is there anyway that you can save it to the project.. when it loads up again the text box still exist?

Yes. When you create the TextBox, save all the properties you care about in My.Settings, or in a file.

When you run the program, use that data to to configure a New TextBox.

[Knowledge needed]

 My.Settings.Save(tb) 

Error.. how sould i save it?

[Knowledge needed]

 My.Settings.TB.Contains(tb.Name) 

TB = string/user?

 Dim c As New TextBox 
c.Name = My.Settings.TB

-> load form

[lar3ry]

Adding on to what andrewsw said, here is a small program to generate a TextBox, save some properties in My.settings, and to recreate it when the form loads. It changes the Text, so you can see that it recreated it from My.Settings.

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim tb As TextBox
        tb = New TextBox
        tb.Text = "Hi new textbox"
        tb.Name = "txtNew1"
        tb.Location = New Point(10, 20)
        Me.Controls.Add(tb)
        My.Settings.tbName = tb.Name
        My.Settings.tbX = 10
        My.Settings.tbY = 20
        My.Settings.tbText = "This text was saved"
    End Sub

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If My.Settings.tbName <> "" Then
            Dim tb As TextBox
            tb = New TextBox
            tb.Name = My.Settings.tbName
            tb.Location = New Point(My.Settings.tbX, My.Settings.tbY)
            tb.Text = My.Settings.tbText
            Me.Controls.Add(tb)
        End If
    End Sub

All that being said, and depending on how many controls you want to add/reload, you might be better off with a file (XML is best).