VB6购物车窗体关闭重开后数据丢失问题求助

方法一：标准模块全局集合（推荐） #

VB6中标准模块的全局变量不会随窗体销毁而释放，用Collection存储购物车数据比数组灵活，适合新手快速实现。

步骤：

1. 新建标准模块：右键工程→添加→添加模块，命名为modGlobal。
2. 在模块内声明全局集合：

Public g_colCart As New Collection

3. 添加工具时同步存入集合：

Private Sub cmdAdd_Click()
    ' 假设从工具窗体ListBox获取选中项文本
    Dim strTool As String
    strTool = frmTools.lstTools.Text
    
    lstCart.AddItem strTool
    g_colCart.Add strTool
End Sub

4. 移除工具时同步删除集合项：

Private Sub cmdRemove_Click()
    If lstCart.ListIndex <> -1 Then
        ' Collection索引从1开始，ListBox从0开始，所以加1
        g_colCart.Remove lstCart.ListIndex + 1
        lstCart.RemoveItem lstCart.ListIndex
    End If
End Sub

5. 窗体加载时从集合恢复数据：

Private Sub Form_Load()
    lstCart.Clear
    Dim i As Integer
    For i = 1 To g_colCart.Count
        lstCart.AddItem g_colCart(i)
    Next i
End Sub

注：如果有重复工具，建议添加时指定唯一Key（如g_colCart.Add strTool, "Tool" & i），避免删除时出错。

方法二：临时文本文件存储 #

不想用全局变量的话，可将数据写入本地临时文件，窗体关闭时保存，打开时读取。

步骤：

1. 窗体关闭时写入文件：

Private Sub Form_Unload(Cancel As Integer)
    Dim intFileNum As Integer
    intFileNum = FreeFile()
    ' 用程序目录下的cart.txt存储，也可改用系统临时目录：Environ("TEMP") & "\cart.txt"
    Open App.Path & "\cart.txt" For Output As #intFileNum
    
    Dim i As Integer
    For i = 0 To lstCart.ListCount - 1
        Print #intFileNum, lstCart.List(i)
    Next i
    
    Close #intFileNum
End Sub

2. 窗体加载时读取文件恢复：

Private Sub Form_Load()
    lstCart.Clear
    Dim intFileNum As Integer
    Dim strLine As String
    
    If Dir(App.Path & "\cart.txt") <> "" Then
        intFileNum = FreeFile()
        Open App.Path & "\cart.txt" For Input As #intFileNum
        
        Do Until EOF(intFileNum)
            Line Input #intFileNum, strLine
            lstCart.AddItem strLine
        Loop
        
        Close #intFileNum
    End If
End Sub

你之前方法失效的原因 #

• 窗体内部Dim声明的是局部变量，窗体关闭后实例销毁，变量直接释放。
• 窗体里的Public变量属于窗体实例，窗体关闭后实例销毁，变量也会被回收，必须把全局变量放在标准模块中才能持续存在。
• VB6确实不支持直接声明公共动态数组，但用Collection或在标准模块中动态重定义数组（如Public arrCart() As String配合ReDim）都能替代，其中Collection操作更简便。

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