VB.NET降低内存的方法

  物理内存转虚拟内存的方法

Private   Declare   Auto   Function   SetProcessWorkingSetSize   Lib   "kernel32.dll"   (ByVal   procHandle   As   IntPtr,   ByVal   min   As   Int32,   ByVal   max   As   Int32)   As   Boolean  

Public   Sub   SetProcessWorkingSetSize()  

       Try  

                 Dim   Mem   As   Process  

                 Mem   =   Process.GetCurrentProcess()  

                 SetProcessWorkingSetSize(Mem.Handle,   -1,   -1)  

         Catch   ex   As   Exception  

                 MsgBox(ex.ToString)  

         End   Try  

End   Sub