用VB了解内存状态

IT商界

空乐

　　在操作系统中，有许多程序的“关于”对话框中都能显示出当前内存的状态，其实在VB中可以很容易实现。具体的方法是：先新建一工程，在窗体上添加4个Label，加入如下代码就可以了解物理内存和虚拟内存的情况。

　　Option Explicit

　　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' 以上代码可在API浏览器中找到

　　Dim minfo As MEMORYSTATUS

　　Private Sub Form_Load()

　　Call GlobalMemoryStatus(minfo)

　　 Label1.Caption = "物理内存总容量" + Str$(minfo.dwTotalPhys) + "字节"

　　 Label2.Caption = "可用物理内存" + Str$(minfo.dwAvailPhys) + "字节"

　　 Label3.Caption = "虚拟内存总容量" + Str$(minfo.dwTotalVirtual)+"字节"

　　 Label4.Caption = "可用虚拟内存" + Str$(minfo.dwAvailVirtual) + "字节"

　　End Sub

　　现在只要在“关于”模块中加入这些代码，就可以实现对系统的了解。本文在Win98和VB6下调试通过。