List(Of String)例子

Public Class Form1
    Dim strList As List(Of String) = New List(Of String)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String = ""
        For i As Integer = 0 To strList.Count - 1
            str = str & strList.Item(i).ToString & "_"
        Next
        MsgBox(str.Substring(0, str.Length - 1))
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            strList.Add(TextBox1.Text.ToString)
            TextBox2.Text = TextBox1.Text.ToString
            TextBox1.Text = ""
        End If
    End Sub
End Class