Bagikan melalui

Klausul Alias (Visual Basic)

Menunjukkan bahwa prosedur eksternal memiliki nama lain di DLL-nya.

Keterangan

Kata kunci Alias dapat digunakan dalam konteks ini:

Deklarasikan Pernyataan

Dalam contoh berikut, kata kunci Alias digunakan untuk memberikan nama fungsi di advapi32.dll, GetUserNameA, sehingga getUserName digunakan sebagai pengganti dalam contoh ini. Fungsi getUserName dipanggil di sub getUser, yang menampilkan nama pengguna saat ini.

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

Lihat juga