Marshal (ID:146095)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 最近ＶＢ２００８を始めました。 それまではＶＢ６を使用してきました。 ＶＢ６側で Type TThLog Qso(3927) As Byte End Type Declare Function Vdbf_rcount Lib "Thdll2Vb.dll" (d As TThLog) As Long これをＶＢ２００８側での一部のコードですが下記のようにしています。 Marshal 関係が分からずにエラーが出ていますが記述のアドバイスをいただけたらと思います。 Ｗｅｂ検索などもしていますが難解で苦労しています。 Structure TThLog <VBFixedArray(3927)> Dim Qso() As Byte Public Sub Initialize() ReDim Qso(3927) End Sub End Structure <DllImport("Thdll2Vb.dll")> _ Private Shared Function Vdbf_rcount(<MarshalAs(UnmanagedType.LPTStr)> ByRef d As TThLog) As Integer End Function recno = Vdbf_rcount(log)