Alias 子句 (Visual Basic)
表示外部程序在 DLL 中的其他名稱。
備註
Alias 關鍵字可用於以下內容中:
下列範例中的 Alias 關鍵字是用於提供 advapi32.dll 中函式的名稱 GetUserNameA,而 getUserName 是用於取代這個範例中的名稱。 函式 getUserName 是在 Sub 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