Marshal (ID:146096)

名前

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

本文 > ＶＢ６側で > Type TThLog > Declare Function Vdbf_rcount Lib "Thdll2Vb.dll" (d As TThLog) As Long 引数は構造体の参照渡し、戻り値は 32bit 整数型、ですね。 > これをＶＢ２００８側での一部のコードですが下記のようにしています。 構造体に拘らないのであれば、 Private Declare Function Vdbf_rcount Lib "Thdll2Vb" (ByRef qso As Byte) As Integer にして、 Dim log(3927) As Byte recno = Vdbf_rcount(log(0)) でいけるかも。 構造体で実装するなら、 <StructLayout(LayoutKind.Seqential, Pack:=1)> Structure TThLog <MarshalAs(UnmanagedType.ByValArray, SizeConst:=3928)>Public QSo() As Byte End Sub Private Declare Function Vdbf_rcount Lib "Thdll2Vb" (ByRef qso As TThLog) As Integer にして、 Dim d As TThLog ReDim d.Qso(3927) recno = Vdbf_rcount(d) とか。 # どちらも未確認。