shahrdar
پنج شنبه 12 شهریور 1388, 17:13 عصر
با اين کلاس ميتونين کنترل ها و يا فرم يا ... که در رم موندن رو از حافظه خالی کنين
Public Class Mem
' Methods
Public Shared Sub FlushMemory()
GC.Collect()
GC.WaitForPendingFinalizers()
If (Environment.OSVersion.Platform = PlatformID.Win32NT) Then
Mem.SetProcessWorkingSetSize(Process.GetCurrentPro cess.Handle, &H1E8480, &H1E8480)
End If
End Sub
<DllImport("kernel32.dll")> _
Private Shared Function SetProcessWorkingSetSize(ByVal process As IntPtr, ByVal minimumWorkingSetSize As Integer, ByVal maximumWorkingSetSize As Integer) As Integer
End Function
End Class
Public Class Mem
' Methods
Public Shared Sub FlushMemory()
GC.Collect()
GC.WaitForPendingFinalizers()
If (Environment.OSVersion.Platform = PlatformID.Win32NT) Then
Mem.SetProcessWorkingSetSize(Process.GetCurrentPro cess.Handle, &H1E8480, &H1E8480)
End If
End Sub
<DllImport("kernel32.dll")> _
Private Shared Function SetProcessWorkingSetSize(ByVal process As IntPtr, ByVal minimumWorkingSetSize As Integer, ByVal maximumWorkingSetSize As Integer) As Integer
End Function
End Class