Private Sub Form_Unload(Cancel As Integer) '卸载事件(这样在关闭程序时释放内存空间)
Dim n As IntegerFor n = 0 To Forms.conunt - 1 '通过循环找到所有的窗体。forms.count表示窗体的总数。
Unload Forms(n) '卸载找到的每个窗体
Next
End Sub
'(个人整理而得,如果发现有错漏请提出,谢谢。^_^)
Private Sub Form_Unload(Cancel As Integer) '卸载事件(这样在关闭程序时释放内存空间)
Dim n As IntegerFor n = 0 To Forms.conunt - 1 '通过循环找到所有的窗体。forms.count表示窗体的总数。
Unload Forms(n) '卸载找到的每个窗体
Next
End Sub
'(个人整理而得,如果发现有错漏请提出,谢谢。^_^)