通过

Alias 子句 (Visual Basic)

  • 项目

指示外部过程在其 DLL 中还有其他名称。

注解

Alias 关键字可用于以下上下文：

Declare Statement

在以下示例中，Alias 关键字用于在 advapi32.dll 中提供函数名称 GetUserNameA，在此示例中使用 getUserName 代替。 函数 getUserName 在子 getUser 中调用，显示当前用户的姓名。

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (
    ByVal lpBuffer As String, ByRef nSize As Integer) As Integer
Sub GetUser()
    Dim buffer As String = New String(CChar(" "), 25)
    Dim retVal As Integer = GetUserName(buffer, 25)
    Dim userName As String = Strings.Left(buffer, InStr(buffer, Chr(0)) - 1)
    MsgBox(userName)
End Sub

另请参阅