如何在VB.NET中使用<DllImport>？
如何在VB.NET中使用<DllImport>？
提问于 2010-02-09 22:34:41
我应该如何在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 is not defined“，我正在使用Visual Studio 2008专业版
回答 3
Stack Overflow用户
回答已采纳
发布于 2010-02-09 22:36:20
您必须将Imports System.Runtime.InteropServices添加到源文件的顶部。
或者，您可以完全限定属性名称：
<System.Runtime.InteropService.DllImport("user32.dll", _
SetLastError:=True, CharSet:=CharSet.Auto)> _Stack Overflow用户
发布于 2010-02-09 22:37:35
Imports System.Runtime.InteropServicesStack Overflow用户
发布于 2018-06-01 04:14:34
我知道这个问题已经回答过了，但这里有一个例子，给那些试图在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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/2229793
复制相关文章
相似问题
腾讯云开发者
