怎样用vb知道当前系统内存容量及其使用率？

Question

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Type MEMORYSTATUS
        dwLength As Long
        dwMemoryLoad As Long
        dwTotalPhys As Long
        dwAvailPhys As Long
        dwTotalPageFile As Long
        dwAvailPageFile As Long
        dwTotalVirtual As Long
        dwAvailVirtual As Long
End Type
Call GlobalMemoryStatus(memoryt)
Label5.Caption = "物理内存大小：" & CLng(memoryt.dwTotalPhys / 1024 / 1024)
Label6.Caption = "虚拟内存大小：" & CLng(memoryt.dwTotalVirtual / 1024 / 1024)
Label7.Caption = "交换区大小：" & CInt(memoryt.dwTotalPageFile / 1024 / 1024)

Answer 1

Public Sub memory()
  Dim mem As MEMORYSTATUS
  GlobalMemoryStatus mem
     Text3.Text = Trim$(CStr(mem.dwTotalPhys)) & "B"
     Text4.Text = Trim$(CStr(mem.dwAvailPhys)) & "B"
     Text5.Text = Trim$(CStr(mem.dwTotalVirtual)) & "B"
End Sub
Public Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Public Type MEMORYSTATUS
        dwLength As Long
        dwMemoryLoad As Long
        dwTotalPhys As Long
        dwAvailPhys As Long
        dwTotalPageFile As Long
        dwAvailPageFile As Long
        dwTotalVirtual As Long
        dwAvailVirtual As Long
End Type