vb6的资源回收

定义大量变量时  ：

    Dim a() As ClassEChemData
    Dim i As Long
    Command1.Enabled = False
   
    ReDim a(100000)
   
    For i = 0 To UBound(a)
        Set a(i) = New ClassEChemData
    Next

1，如果（Dim a()） 在过程中，则当过程结束后会自动回收内存资源

2，如果在窗体主变量中，则需要手动回收，否则当窗体关闭后也不能及时回收内存。除非整个程序结束

    Dim i As Long
    For i = 0 To UBound(a)
        Set a(i) = Nothing
    Next

 

补充说明：

ClassEChemData（自定类） 中函数用public 或static 定义 时 占用内存大小无明显区别。