Como chamar APIs do Windows (Visual Basic)

Este exemplo define e chama a MessageBox função em user32.dll e, em seguida, passa uma cadeia de caracteres para ela.

Exemplo

' Defines the MessageBox function.
Public Class Win32
    Declare Auto Function MessageBox Lib "user32.dll" (
        ByVal hWnd As Integer, ByVal txt As String,
        ByVal caption As String, ByVal Type As Integer
        ) As Integer
End Class

' Calls the MessageBox function.
Public Class DemoMessageBox
    Public Shared Sub Main()
        Win32.MessageBox(0, "Here's a MessageBox", "Platform Invoke Sample", 0)
    End Sub
End Class

Compilar o código

Este exemplo requer:

• Uma referência ao namespace System.

Programação robusta

As seguintes condições podem causar uma exceção:

• O método não é estático, é abstrato ou foi previamente definido. O tipo pai é uma interface ou o comprimento de name ou dllName é zero. (ArgumentException)

• O nome ou dllName é Nothing. (ArgumentNullException)

• O tipo contido foi previamente criado usando CreateType. (InvalidOperationException)

Ver também

• Um olhar mais atento sobre a plataforma Invoke
• Exemplos de invocação de plataforma
• Consumindo funções DLL não gerenciadas
• Definindo um método com emissão de reflexão
• Passo a passo: Chamando APIs do Windows
• Interoperabilidade COM