如何在数组中存储多个文本框值

Question

我有5个文本框，每个我必须写入值，以及我想要存储在数组中的所有值。 我做了什么

Dim arrayNames() As String = {CDec(txtName1.Text), CDec(txtName2.Text), CDec(txtName3.Text), CDec(txtName4.Text), CDec(txtName5.Text)}

Answer 1

将Array函数与已知的一组项目一起使用，如Victor在评论中所述：

Dim myArray() As String
myArray = Array(TextBox1.Value, TextBox2.Value, TextBox3.Value)

如果需要动态添加到数组，则可以使用ReDim Preserve语句，该语句调整数组的大小并保留现有值：

Dim myArray() As String
myArray = Array(TextBox1.Value, TextBox2.Value, TextBox3.Value)

'later, add another element to the array:
ReDim Preserve myArray(Ubound(myArray)+1)
myArray(UBound(myArray)) = TextBox4.Value