memory.vb

来自「Microsoft Mobile Development Handbook的代码」· VB 代码 · 共 41 行

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.Windows.Forms

Namespace CodeForChapter5cs
  Friend Class Memory
	Public Shared Sub ShowMemory()
	  Dim ms As MemoryStatus = New MemoryStatus()
	  GlobalMemoryStatus(ms)

	  Dim result As String = "Memory Load % = " & ms.MemoryLoad & Constants.vbCrLf & "Total Physical (KB) = " & ms.TotalPhysical / 1024 & Constants.vbCrLf & "Available Physical (KB) = " & ms.AvailPhysical / 1024 & Constants.vbCrLf & "Total Virtual = (KB) " & ms.TotalVirtual / 1024 & Constants.vbCrLf & "Availalbe Virtual = (KB) " & ms.AvailVirtual / 1024

	  MessageBox.Show(result, GC.GetTotalMemory(False).ToString())
	End Sub


	<DllImport("coredll.dll")> _
	Public Shared Sub GlobalMemoryStatus(ByVal lpBuffer As MemoryStatus)
	End Sub

	Public Class MemoryStatus
	  Public Length As Integer
	  Public MemoryLoad As Integer
	  Public TotalPhysical As Integer
	  Public AvailPhysical As Integer
	  Public TotalPageFile As Integer
	  Public AvailPageFile As Integer
	  Public TotalVirtual As Integer
	  Public AvailVirtual As Integer

	  Public Sub New()
		Length = Marshal.SizeOf(Me)
	  End Sub
	End Class

  End Class
End Namespace