web-dev-qa-db-ja.com

VB.NETで<DllImport>を使用するには？

VB.NET でDLLImportを実行するにはどうすればよいですか？例は次のとおりです。

<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

クラス内または他の場所に配置すると、「DLLimportが定義されていません」と表示されます Visual Studio 2008 Professional

vb.netdllimport
25
MilMike

ソースファイルの先頭にImports System.Runtime.InteropServicesを追加する必要があります。

または、属性名を完全に修飾できます。

<System.Runtime.InteropService.DllImport("user32.dll", _
    SetLastError:=True, CharSet:=CharSet.Auto)> _
36
Anton Gogolev
Imports System.Runtime.InteropServices
7
Luhmann

Pinvoke.netでgetwindowtext（user32）でMarshalAsステートメントを配置できることを確認しましたStringBufferは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
5
Nap

これは既に回答されていますが、vbプロジェクトでSQL Serverタイプを使用しようとしている人々の例を次に示します。

            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
2
Todd Harvey

これを試すこともできます

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

私はいつもDllImportの代わりにDeclare Functionを使用します...より簡単で、短く、同じことをします

2
Christopher Aicher