DLLの利用について

質問

現在、ＶＣで作成したＤＬＬをＶＢ使うということを行っています。
概要は、ＶＢの方で定義した配列に1～９の数字を代入し、その和を求めるというものです。
ＤＬＬに値を渡す際は参照による引渡しをし、ＤＬＬで変数の変更を行いたいんです。
しかしその変数の変更がうまくいかないんです。
どこがまずいのでしょうか？
プログラム内容は以下に示します。
よろしくお願いします。

*****ＶＢのプログラム*****
Option Explicit
Private Declare Sub Sum Lib "test.dll" (aa, bb)

Private Sub Command1_Click()
Dim a(9) As Integer　　'1～9の値の代入先
Dim b As integer 　　'和
Dim I As Integer

For I = 0 To 9
a(I) = I + 1
Next I
b = 0

Sum a, b　　'DLLでの計算
MsgBox (b)　'結果表示

End Sub

*****DLLの中身*****
_declspec(dllexport) void _stdcall Sum(short *aa, short bb)
{
int i;

for ( i=0; i<=9; i++){
bb=bb+aa[i];
}
}

*****モジュール定義内容*****
EXPORTS
Sum

回答No.1

QSW73j2gda · ベストアンサー

配列丸ごとを渡す場合は、本来なら SAFEARRAY とかを使う必要があって、
かなり面倒なことになります（私も詳しくは知りません）。

数値配列なら、先頭の要素を参照渡しで渡すと、配列の先頭アドレスを渡すことになります。
http://web.archive.org/web/20050907133900/http://www.microsoft.com/japan/developer/library/VBCon98/vbconpassingarraystodllprocedure.htm
また、参照渡しの変数に結果を受け取るので、Declare は、

Private Declare Sub Sum Lib "test.dll" (ByRef aa As Integer, ByRef bb As Integer)

と、します。
Ｃ言語側は、値渡しの変数に結果を返すので、
short bb ではなく、short *bb として、以下のようにします。

_declspec(dllexport) void _stdcall Sum(short *aa, short *bb)
{
int i;

for ( i=0; i<=9; i++){
*bb=*bb+aa[i];
}
}

お礼

ご解答ありがとうございます。
何とか解決できました。
SAFEARRAYなどについては調べてみます。