如何将文本框输入存储到二维数组中？

Question

okay so i have two textboxes for user input, and i need help storing these into a single two dimensional array. for 49 columns and two rows (states, capitals) i already declared the array to:

Dim states(49,1) as string 
states(0,0)= textbox1.text
states(0,1) = textbox2.text

im not sure what else to do because i have am i storing this right? im not sure what more to do to store the rest of input into the array.

any help would be appreciated. thank you!

Answer 1

Declare module/class scope variables:

Dim states(49,1) as string
Dim nextInd as Integer = 0

Then in your button click handler:

If nextInd <= 49 Then   ' Make sure you are not trying to fill values past the dimensions of the array

     states(nextInd, 0) = textbox1.text
     states(nextInd, 1) = textbox2.text

     nextInd += 1  ' To increment the next index to use by 1

     textbox1.text = ""
     textbox2.text = ""

End If

---

And then to display the contents of the array, you need a loop:

    ' Use a string builder so you can modify the same string object to show it all together in the message box

    Dim contents As New StringBuilder("")

    For st = 0 To 49
        contents.Append(states(st, 0) & ": " & states(st, 1) & Environment.NewLine)
        ' Or however you want To format it
    Next

    MessageBox.Show(Me, contents)  ' MsgBox is old - use MessageBox instead