VB6迁移VS2022：结构体转IntPtr及VarPtr替代方案咨询

问题1：Test结构体传入外部DLL函数A失败 #

VB6与.NET的内存布局、类型映射存在差异，这是导致传参失败的核心原因，按以下步骤修正：

1. 修正结构体定义
   VB6的Long对应.NET的Int32（.NET的Long是64位），且需显式指定结构体的内存布局，匹配原DLL的要求：

   Imports System.Runtime.InteropServices
   
   'Pack值根据原DLL的内存对齐规则调整，VB6默认是4字节对齐
   <StructLayout(LayoutKind.Sequential, Pack:=4)>
   Public Structure Test
       Public a As Int32 '替换原Long为Int32
       Public b As Int32
       '其他字段同步修正类型
   End Structure
   

2. 正确声明外部DLL函数
   确保调用约定与原DLL一致（VB6默认是StdCall）：

   <DllImport("目标DLL文件名.dll", CallingConvention:=CallingConvention.StdCall)>
   Public Shared Sub A(<[In]> ByVal Data As IntPtr)
   End Sub
   

3. 结构体转IntPtr传入
   用两种方式实现结构体到指针的转换：

   • 方式1：手动分配非托管内存

     Public Sub xyz()
         Dim testObj As Test
         '填充结构体字段
         testObj.a = 123
         testObj.b = 456
     
         Dim ptr As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(testObj))
         Try
             Marshal.StructureToPtr(testObj, ptr, False)
             A(ptr) '传入指针
         Finally
             Marshal.FreeHGlobal(ptr) '释放非托管内存
         End Try
     End Sub
     

   • 方式2：固定结构体内存（无需手动分配）

     Public Sub xyz()
         Dim testObj As Test
         testObj.a = 123
         testObj.b = 456
     
         Dim handle As GCHandle = GCHandle.Alloc(testObj, GCHandleType.Pinned)
         Try
             Dim ptr As IntPtr = handle.AddrOfPinnedObject()
             A(ptr)
         Finally
             handle.Free() '释放固定句柄
         End Try
     End Sub
     

问题2：VarPtr的替代方案 #

VarPtr用于获取变量内存地址，.NET中根据变量类型选择对应方案：

1. 值类型/结构体
   用GCHandle固定变量后获取地址：

   Dim testObj As Test
   Dim handle As GCHandle = GCHandle.Alloc(testObj, GCHandleType.Pinned)
   Dim ptr As IntPtr = handle.AddrOfPinnedObject()
   handle.Free()
   'ptr即为对应VarPtr(testObj)的内存地址
   

2. 简单值类型（如Int32）
   可启用不安全代码直接获取地址（需在项目属性→生成中勾选「允许不安全代码」）：

   Dim num As Int32 = 100
   unsafe
       Dim ptr As IntPtr = New IntPtr(&num)
   End unsafe
   

3. 引用类型（如字符串）
   同样可通过不安全代码获取：

   Dim str As String = "demo"
   unsafe
       Dim ptr As IntPtr = New IntPtr(&str)
   End unsafe
   

内容的提问来源于stack exchange，提问作者Daniela S