文白对照全译史记mobi:请问vb怎样获得当前内存资源占用率

你的问题可以这样的解决：调试通过

首先你要明白vb的api函数，GlobalMemoryStatus函数。在公共模块中

Option Explicit

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

Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)

在frm模块之中有：

Private Sub Command1_Click()
Dim per As Long

Dim memsts As MEMORYSTATUS
Dim memory As Long

GlobalMemoryStatus memsts
Cls
Print

memory = memsts.dwTotalPhys
Print "??实际内存: ", Format(memory \ 1024, "###,###,###") & "KB"

memory = memsts.dwAvailPhys
Print "可用实际内存: ", Format(memory \ 1024, "###,###,###") & "KB"

Print "内存资源占用率：", (memsts.dwAvailPhys / memsts.dwTotalPhys) * 100 & "%",

memory = memsts.dwTotalVirtual
Print "??虚拟内存: ", Format(memory \ 1024, "###,###,###") & "KB"

memory = memsts.dwAvailVirtual
Print "可用虚拟内存: ", Format(memory \ 1024, "###,###,###") & "KB"
End Sub