通过

Alias 子句 （Visual Basic）

指示外部过程在其 DLL 中具有另一个名称。

注解

此 Alias 上下文中可以使用关键字：

Declare 语句

在以下示例中，关键字Alias用于在 advapi32.dll中提供函数的名称，GetUserNameAgetUserName该名称用于代替此示例。 函数 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

另请参阅