VB 程序内存释放的代码

Ineverleft

释放内存，常用于第一次启动完窗体后，效果显著

1. Private Declare Function SetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Long
   
2. Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
   
3. Private Sub releasemem()
   
4. 
   
5. SetProcessWorkingSetSize GetCurrentProcess, -1, -1
   
6. End Sub
   
7. Private Sub Form_Load()
   
8. releasemem
   
9. End Sub
   

复制代码