7,763
社区成员
发帖
与我相关
我的任务
分享
Dim Frm As Form
For Each Frm In Forms
Unload Frm
Next
End
Option Explicit
Private Sub Form_Load()
'对象实例化
Set a1 = New Cls1
Set b2 = New Cls2
Set c3 = New Cls3
Set d4 = New Cls4
Set e5 = New Cls5
Set f6 = New Cls6
Set g7 = New Cls7
Set h8 = New Cls8
Set i9 = New Cls9
Set j10 = New Cls10
'加入集合
ActiveXDll_Objs.Add a1
ActiveXDll_Objs.Add b2
ActiveXDll_Objs.Add c3
ActiveXDll_Objs.Add d4
ActiveXDll_Objs.Add e5
ActiveXDll_Objs.Add f6
ActiveXDll_Objs.Add g7
ActiveXDll_Objs.Add h8
ActiveXDll_Objs.Add i9
ActiveXDll_Objs.Add j10
End Sub
Option Explicit
'定义ActiveX Dll对象,都是来自不同的ActiveX Dll
Public a1 As Cls1
Public b2 As Cls2
Public c3 As Cls3
Public d4 As Cls4
Public e5 As Cls5
Public f6 As Cls6
Public g7 As Cls7
Public h8 As Cls8
Public i9 As Cls9
Public j10 As Cls10
'定义ActiveX Dll对象集合并实例化
Public ActiveXDll_Objs As New Collection
'卸载所有窗体,释放所有对象,然后退出
Public Sub Quit()
'释放所有对象
Dim Obj As Object
For Each Obj In ActiveXDll_Objs
Set Obj = Nothing
Next
Set ActiveXDll_Objs = Nothing
'卸载所有窗体
Dim Frm As Form
For Each Frm In Forms
Unload Frm
Next
'终止程序
End
End Sub
Dim col As New Collection
Public Function aa()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
col.Add fso
End Function
Public Function ab()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
col.Add fso
End Function
Public Function ac()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
col.Add fso
End Function
Public Function release()
Dim fso As Object
For Each fso In col
Set fso = Nothing
Next
End Function
Sub main()
aa
ab
ac
Debug.Print col.Count
release
End Sub