tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル VC++のDLLからVBへ値受け渡し
投稿日: 2008/06/19(Thu) 15:21
投稿者VB
○VC++のDLLの内容
typedef struct inf{
int    test1;
int    test2;
}  __inf;

_declspec(dllexport) int WINAPI test(struct inf* INFO)
{
int rtn = 0;
PINFO->test1 = 2;
PINFO->test2 = 3;
return (rtn);
}

○VBでの呼び出し
標準モジュール
Public Type inf
    test1 As Integer
    test2 As Integer
End Type
Public Declare Function clhsmain Lib "clhoshu.dll" (PINFO As pinf) As Integer

フォーム
Private Sub Button1_Click()
Dim INFO(0) As pinf
Dim rtn As Integer
Dim X As Integer
Dim Y As Integer
    rtn = test(INFO(0))
    X = INFO(0).test1
    Y = INFO(0).test2
End Sub

上記のような感じのプログラムを書いたのですが
INFO(0).test2の値には、ちゃんと3が入ってきているのですが、
INFO(0).test1の方には何も代入されずに返ってきてしまいます。
何か考えられる要因はありますでしょうか?
よろしくお願い致します。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。