Comment : appeler des API Windows (Visual Basic)

Cet exemple définit et appelle la MessageBox fonction dans user32.dll, puis lui transmet une chaîne.

Exemple

' 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

Compiler le code

Cet exemple nécessite :

  • une référence à l'espace de noms System.

Programmation fiable

Les conditions ci-dessous peuvent générer une exception.

  • La méthode n’est pas statique, est abstraite ou a été précédemment définie. Le type parent est une interface, ou la longueur de name ou dllName est égale à zéro. (ArgumentException)

  • Le nom ou dllName est Nothing. (ArgumentNullException)

  • Le type conteneur a déjà été créé à l’aide de CreateType. (InvalidOperationException)

Voir aussi