Office中国论坛/Access中国论坛

标题: 这段代码怎么修改？ [打印本页]

作者: goodidea 时间: 2002-10-23 19:46
标题: 这段代码怎么修改？
Option Compare Database

Type SYSTEM_INFO ' 36 Bytes
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
wProcessorLevel As Integer
wProcessorRevision As Integer
End Type

Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)

Public Sub ShowSystemInfo()
Dim myInfo As SYSTEM_INFO
GetSystemInfo (myInfo)
With myInfo
      MsgBox .dwOemID & vbNewLine & _
            .dwPageSize & vbNewLine & _
            .lpMaximumApplicationAddress & vbNewLine & _
            .lpMinimumApplicationAddress & vbNewLine & _
            .dwActiveProcessorMask & vbNewLine & _
            .dwNumberOrfProcessors & vbNewLine & _
            .dwProcessorType & vbNewLine & _
            .wProcessorLevel & vbNewLine & _
            .wProcessorRevision
End With
End Sub

作者: HG 时间: 2002-10-23 20:13
呆，自定義類型必須要自定義函數名一樣。

作者: goodidea 时间: 2002-10-24 00:59
怎样才一致？

作者: HG 时间: 2002-10-24 01:58
Declare Sub system_info Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
這個地方，我就覺得有問題，首先一點你這樣似乎不能把取得的信息賦給自定義類型的。

作者: goodidea 时间: 2002-10-24 02:13
非常遗憾的是我也没有关于system_info 的详细资料。根据一本来自网上的VB API的介绍就只有这么多了~~

作者: goodidea 时间: 2002-10-24 02:16
根据你的提示，自作聪明写成这样：
Declare Sub GetSystemInfo Lib "kernel32" (ByRef lpSystemInfo As SYSTEM_INFO)
同样的问题存在。

作者: HG 时间: 2002-10-24 03:01
我個人的判斷，您根本就沒有把取回的值傳給自定義類型，這是一種異常的用法，我也沒用過。

作者: goodidea 时间: 2002-10-24 03:37
可是这是一个过程，自定義類型传值是ByRef的。

作者: goodidea 时间: 2002-10-24 16:33
My GOD!

GetSystemInfo (myInfo)　＝＞　Ｃａｌｌ GetSystemInfo (myInfo)

ok! Thank u ,HG!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)