VB.Net ArrayList技术疑问：全局化、跨控件操作与持久化实现

嘿，我来帮你搞定这几个ArrayList的问题，都是日常开发里常用的操作，咱们一个个说：

1. 把ArrayList设为全局变量（窗体/项目级） #

要让所有子程序都能访问，你得把它声明在窗体类的顶部（不是某个子程序内部），这样它的作用域覆盖整个窗体，所有事件处理程序、自定义方法都能调用它。

举个窗体级全局的例子：

Public Class Form1
    ' 声明为窗体级全局ArrayList，用New直接初始化
    Private myGlobalArrayList As New ArrayList()

    ' 下面是你的各种子程序（比如按钮点击、窗体加载事件）
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 这里就能直接操作myGlobalArrayList了
    End Sub
End Class

如果要让整个项目的多个窗体都能访问，推荐用模块存全局变量：

Module GlobalVariables
    Public Shared appWideArrayList As New ArrayList()
End Module

这样项目里任何地方都能直接用appWideArrayList。

2. 用窗体控件操作ArrayList（添加/移除） #

假设你有输入框TextBox1、添加按钮btnAdd、移除按钮btnRemove和列表框ListBox1，可以这么写：

添加操作（按钮点击事件） #

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
    ' 先判断输入框是否为空
    If Not String.IsNullOrWhiteSpace(TextBox1.Text) Then
        ' 把输入内容加到全局ArrayList
        myGlobalArrayList.Add(TextBox1.Text)
        ' 更新列表框显示
        RefreshListBox()
        ' 清空输入框
        TextBox1.Clear()
    End If
End Sub

移除操作（按钮点击事件） #

Private Sub btnRemove_Click(sender As Object, e As EventArgs) Handles btnRemove.Click
    ' 先判断列表框有没有选中项
    If ListBox1.SelectedIndex <> -1 Then
        ' 根据选中索引移除ArrayList里的元素
        myGlobalArrayList.RemoveAt(ListBox1.SelectedIndex)
        ' 更新列表框显示
        RefreshListBox()
    End If
End Sub

通用的列表框刷新方法 #

避免重复代码，写个小方法统一更新列表框：

Private Sub RefreshListBox()
    ListBox1.Items.Clear()
    ' 遍历ArrayList，把元素逐个加到列表框
    For Each item In myGlobalArrayList
        ListBox1.Items.Add(item)
    Next
End Sub

3. 保存ArrayList并在程序启动时加载 #

要持久化数据，咱们用二进制序列化（ArrayList原生支持序列化），步骤如下：

先导入必要的命名空间 #

在代码文件最顶部加上：

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

保存ArrayList的方法 #

Private Sub SaveArrayListData()
    ' 定义保存路径，比如程序目录下的data.dat
    Dim filePath As String = Path.Combine(Application.StartupPath, "data.dat")
    
    ' 用Using自动释放资源
    Using fs As New FileStream(filePath, FileMode.Create)
        Dim formatter As New BinaryFormatter()
        ' 把ArrayList序列化到文件
        formatter.Serialize(fs, myGlobalArrayList)
    End Using
End Sub

你可以把这个方法绑定到“保存”按钮，或者窗体关闭事件（Form1_FormClosing），确保退出时自动保存。

程序启动时加载ArrayList #

在窗体Load事件里写加载逻辑：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim filePath As String = Path.Combine(Application.StartupPath, "data.dat")
    
    ' 检查保存文件是否存在
    If File.Exists(filePath) Then
        Using fs As New FileStream(filePath, FileMode.Open)
            Dim formatter As New BinaryFormatter()
            ' 反序列化文件到ArrayList
            myGlobalArrayList = DirectCast(formatter.Deserialize(fs), ArrayList)
        End Using
        ' 加载后更新列表框
        RefreshListBox()
    Else
        ' 文件不存在就初始化空的ArrayList
        myGlobalArrayList = New ArrayList()
    End If
End Sub

这样每次启动程序，之前保存的ArrayList数据就会自动加载到列表框里啦！

内容的提问来源于stack exchange，提问作者Nathan