Поделиться через

Предложение 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

См. также