用VB制作字符串数组

Question

我正在尝试创建一个字符串数组，但无法使其正确运行。这是我的东西。

Public Class Form1
Dim wordArray() As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    'increase the size of string array by one, by setting the new upperBound at the current Length
    'use Preserve so that string currently in the array are not overwritten with Nothing
    ReDim Preserve wordArray(wordArray.Length)
    'use an TextBox to get the name of the new string from the user
    'assign this name (which is a String) to the last element of the string array
    wordArray(wordArray.GetUpperBound(0)) = TextBox2.Text
End Sub
End Class

任何帮助都将不胜感激，谢谢。

Answer 1

List(Of String)怎么样？此处不需要ReDim。

Private wordList As New List(Of String)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  wordList.Add(textbox2.Text)
End Sub

Answer 2

对于固定大小的数组：

Dim strCDRack(0 to 2) As String 
strCDRack(0) = "Deftones"
strCDRack(1) = "Tool"
strCDRack(2) = "Disturbed"

对于动态阵列：

Dim strCDRack() As String 
ReDim strCDRack(0 to 2) As String 
strCDRack(0) = "Deftones"
strCDRack(1) = "Tool"
strCDRack(2) = "Disturbed"

用于扩展动态阵列：

Dim strCDRack() As String 
ReDim strCDRack(0 to 2) As String 
strCDRack(0) = "Deftones"
strCDRack(1) = "Tool"
strCDRack(2) = "Disturbed" 
ReDim Preserve strCDRack(0 to 3) As String 
strCDRack(3) = "Charlotte Church"

有关VB数组的更多信息，请查看此链接。。

Answer 3

使用列表！

Dim StringArray As New List(Of [String])()

在点击处理程序中：

StringArray.Add(TextBox1.Text)

Answer 4

这里应该像使用List(Of String)一样使用Collections，它会随着元素数量的增长而增长。不需要自己保持身材。另外，当ReDim试图增加数组大小时，您可能会遇到问题。

ReDim Preserve wordArray(wordArray.Length + 1)