List(Of String)例子

本文介绍了一个使用VB.NET实现的简单应用程序,该程序通过按键事件收集用户输入的文本到一个字符串列表,并在按下回车键时显示这些条目的连接结果。此应用展示了如何在Windows Forms中使用List(Of String)来存储数据以及如何处理KeyPress事件。

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

<think>我们正在回答用户关于VB.NET中创建和初始化字符串列表的问题。根据引用[2]和引用[3],我们有示例代码展示如何创建List(OfString)并初始化。用户问题:如何在VB.NET中初始化List(OfString)我们将提供两种常见方法:1.使用New关键字创建列表并同时初始化(使用集合初始化器)2.创建空列表然后逐个添加同时,引用[2]中给出了一个使用From关键字一次性添加多个元素的例子,引用[3]则展示了使用循环添加元素。另外,引用[2]还展示了如何将列表内容显示在文本框中(使用String.Join和换行符连接)。虽然用户没有要求显示,但我们可以简单提及。注意:用户要求使用中文回答,并且按照系统级指令,数学公式用$...$,但我们这里没有数学公式,所以不需要。结构:1.介绍List(OfString)2.初始化方法一:使用集合初始化器3.初始化方法二:创建空列表并添加4.简单示例如何访问或显示列表然后生成相关问题。</think>### 在 VB.NET 中创建和初始化字符串列表 在 VB.NET 中创建和初始化 `List(Of String)` 主要有以下两种方式: #### 方法 1:使用集合初始化器(推荐) 通过 `New List(Of String) From {...}` 语法直接初始化: ```vb.net ' 创建并初始化包含三个元素的字符串列表 Dim fruits As New List(Of String) From {"苹果", "香蕉", "橙子"} ' 创建空列表 Dim emptyList As New List(Of String)() ``` #### 方法 2:创建后逐个添加元素 使用 `Add()` 方法动态添加元素: ```vb.net Dim colors As New List(Of String)() colors.Add("红色") colors.Add("绿色") colors.Add("蓝色") ``` #### 列表操作示例 ```vb.net ' 访问元素 Dim firstFruit As String = fruits(0) ' "苹果" ' 修改元素 fruits(1) = "芒果" ' 将"香蕉"改为"芒果" ' 遍历列表 For Each fruit As String In fruits Console.WriteLine(fruit) Next ' 显示在文本框(引用[2]方法) TextBox1.Text = String.Join(Environment.NewLine, fruits) ``` #### 其他实用技巧 1. **从数组初始化**: ```vb.net Dim arr As String() = {"A", "B", "C"} Dim listFromArray As New List(Of String)(arr) ``` 2. **批量添加元素**: ```vb.net Dim numbers As New List(Of String)() numbers.AddRange({"一", "二", "三"}) ``` 3. **列表转字符串**: ```vb.net Dim combined As String = String.Join(", ", fruits) ' "苹果, 芒果, 橙子" ``` > 关键说明: > - `List(Of String)` 是动态数组,可自动扩容 > - 索引从 0 开始,可通过 `Count` 属性获取元素数量 > - 引用[3]展示了使用循环添加元素的典型模式[^3]
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值