关于调用 GlobalMemoryStatus API函数的问题

policy2008 2003-01-12 10:41:02
我在一个标准模块中申明了:
Public Declare Sub GlobalMemoryStatus Lib "kernel32" (ByRef 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

在窗体模块中有一个按钮,按钮的事件如下:
Private Sub Command1_Click()
GlobalMemoryStatus MEMORYSTATUS
End Sub

当单击按钮时,会出现: ByRef argument mismatch 的错误,不知道怎么解决???
...全文
89 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
programart_life 2003-01-12
  • 打赏
  • 举报
回复
有结构体,但是没有定义变量

如下

Dim a as MEMORYSTATUS

然后
GlobalMemoryStatus a

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧