掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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) とか。 # どちらも未確認。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.