в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:44:41Z

1 версия

Новая страница

==Get total memory==

<source lang="vbnet">
Imports System.IO
Module Module1
Sub Main()
Console.WriteLine("Allocated memory " & GC.GetTotalMemory(True))
Dim c1 As New Contact("Name 1", "111-555-1111", "1@1.ru")
Dim c2 As New Contact("Name 2", "222-555-1212", "2@2.ru")
Dim c3 As New Contact("Name 3", "333-555-1212", "3@3.ru")

c1 = Nothing " Discard the object
GC.Collect()
Console.WriteLine("Back from first collection")
c3 = Nothing " Discard the object
GC.Collect()
Console.WriteLine("Back from second collection -- Press Enter")

Console.WriteLine("Allocated memory " & GC.GetTotalMemory(True))
GC.SuppressFinalize(c2)

End Sub
End Module
Class Contact
Public Name As String
Public Phone As String
Public EMail As String
Sub New(ByVal ContactName As String, ByVal ContactPhone As String, ByVal ContactEmail As String)
Console.WriteLine("Name: " & ContactName & " Phone " & ContactPhone & " Email " & ContactEmail)
Name = ContactName
Phone = ContactPhone
EMail = ContactEmail
End Sub
Protected Overrides Sub Finalize()
Console.WriteLine("In Finalize for " & Name)
End Sub
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/Windows System/Memory - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия