ms-access - 在 VBA 中使用 Alias 关键字声明函数

Question

我有 VBA MS Access 表单代码，我在其中键入以下函数声明:

Public Declare Function GetUserName Lib "advapi32.dll" () Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

但是我在 Alias 上遇到错误。我是否必须添加一些引用文献才能使用它？

Answer 1

不，使用Alias不需要特殊的库；这一切都内置于语言中。

但是你的声明是错误的。在 Alias 之前放置了一组额外的括号，这会让编译器感到困惑。

除了纯语法之外，第二个参数 (nSize) 实际上是一个指向 Long 的指针，这意味着您需要传递它VBA 中的ByRef。

因此修改后的声明将如下所示:

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
        (ByVal lpBuffer As String, ByRef nSize As Long) As Long

如果函数成功，返回值为 1；如果失败，返回值为 0。