如何将文本从一个文本框保存/追加到VB中同一表单上的另一个文本框

Question

Basically what I'm trying to figure out how to do is save text from one textbox to another textbox on the same form. I see a lot of post on how to save or store text from one textbox to another on a different form but not any with doing that on the same form.

I'm currently working on a feature in my program that allows me to with a click fn my "LogItLater" button save the fields from the First Name, Last Name, and Phone# textboxes on my form and place them on a different textbox on my form which allows the user to add more or edit that information at later time.

I'm doing this in VB so just a simple how to would be great, this is my first time asking a question so I hope I was as specific as possible.

---

So my new issue is this when I add more than one statement like this

txtScrapeBox.Text = txtFirstName.Text
txtScrapeBox.Text = txtLastName.Text
txtScrapeBox.Text = txtPhone.Text

The only text that is saved is the last statement and in this case it is the txtPhone.Text, will I need a condition statement to get the first two to save as well?

Answer 1

Only the last assignment is retained, because you are replacing the contents with each assignment. To append (I am assuming this is a multiline TB - if it isnt, the data will come out: ZiggyWagner(800)5550195 ):

txtScrapeBox.Text = txtFirstName.Text & Environment.NewLine & _
        txtLastName.Text & Environment.NewLine & txtPhone.Text

This presents a problem down the road - if they want to edit "LastName", how will you know which line they want to edit? You will have to save all three items to txtScrapeBox in the same order every time and fetch them back using the .Lines() property.

Another way might be to save them to a ListBox where item 0 is always first name, item 1 = LastName etc:

 lbData.Items.Clear          ' remove previous contents
 lbData.Items.Add(txtFirstName.Text)
 lbData.Items.Add(txtLastName.Text)
 lbData.Items.Add(txtPhone.Text)

Get one back to edit:

 txtFirstName.Text = lbData.Items(0).ToString
 ' or
 If lbData.SelectedItems.Count > 0 Then      ' check if they selected one
     txtFirstName.Text = lbData.SelectedItem.ToString
 End If