タイトル : 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の方には何も代入されずに返ってきてしまいます。 何か考えられる要因はありますでしょうか? よろしくお願い致します。 |