如何在數組中存儲多個文本框的值

Question

我有5個文本框，並且在每個文本框中都必須寫入值以及所有要存儲到數組中的值。 這是我做

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

Answer 1

使用Array功能與一組已知的項目，如維克多注意到點評：

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