Nota
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Indica que un procedimiento externo tiene otro nombre en su DLL.
Comentarios
La palabra clave Alias
se puede usar en este contexto:
En el ejemplo siguiente, la palabra clave Alias
se usa para proporcionar el nombre de la función en advapi32.dll, GetUserNameA
, que getUserName
utiliza alternativamente en este ejemplo. Se llama a la función getUserName
en Sub getUser
, que muestra el nombre del usuario actual.
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