mover - ¿Cómo usar<DllImport> en VB.NET?

dllimport user32 dll entrypoint releasecapture)] vb

Question

¿Cómo debo DLLImportar cosas en VB.NET ? Un ejemplo sería:

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function GetWindowText(ByVal hwnd As IntPtr, ByVal lpString As StringBuilder, ByVal cch As Integer) As Integer

End Function

Si lo pongo dentro de una clase o en otro lugar, obtengo "DLLimport no está definido" Estoy usando Visual Studio 2008 Professional

Answer 1

Sé que esto ya se ha respondido, pero aquí hay un ejemplo para las personas que intentan usar los tipos de SQL Server en un proyecto vb:

            Imports System
            Imports System.IO
            Imports System.Runtime.InteropServices

            Namespace SqlServerTypes
                Public Class Utilities



                    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
                    Public Shared Function LoadLibrary(ByVal libname As String) As IntPtr

                    End Function

                    Public Shared Sub LoadNativeAssemblies(ByVal rootApplicationPath As String)
                        Dim nativeBinaryPath = If(IntPtr.Size > 4, Path.Combine(rootApplicationPath, "SqlServerTypes/x64/"), Path.Combine(rootApplicationPath, "SqlServerTypes/x86/"))
                        LoadNativeAssembly(nativeBinaryPath, "msvcr120.dll")
                        LoadNativeAssembly(nativeBinaryPath, "SqlServerSpatial140.dll")
                    End Sub

                    Private Shared Sub LoadNativeAssembly(ByVal nativeBinaryPath As String, ByVal assemblyName As String)
                        Dim path = System.IO.Path.Combine(nativeBinaryPath, assemblyName)
                        Dim ptr = LoadLibrary(path)

                        If ptr = IntPtr.Zero Then
                            Throw New Exception(String.Format("Error loading {0} (ErrorCode: {1})", assemblyName, Marshal.GetLastWin32Error()))
                        End If
                    End Sub
                End Class
            End Namespace

Answer 2

Vi en getwindowtext (user32) en pinvoke.net que puede colocar una instrucción MarshalAs para indicar que StringBuffer es equivalente a LPSTR.

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Ansi)> _
Public Function GetWindowText(hwnd As IntPtr, <MarshalAs(UnManagedType.LPStr)>lpString As System.Text.StringBuilder, cch As Integer) As Integer
End Function

Answer 3

también puedes probar esto

Private Declare Function GetWindowText Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal lpString As StringBuilder, ByVal cch As Integer) As Integer

Siempre uso Declare Function en lugar de DllImport ... Es más simple, es más corto y hace lo mismo

Answer 4

Imports System.Runtime.InteropServices agregar Imports System.Runtime.InteropServices a la parte superior de su archivo fuente.

Alternativamente, puede calificar completamente el nombre del atributo:

<System.Runtime.InteropService.DllImport("user32.dll", _
    SetLastError:=True, CharSet:=CharSet.Auto)> _

Answer 5

Imports System.Runtime.InteropServices