VBで構造体の配列を関数に渡す方法？

構造体の配列のアドレスを関数に渡して使用したいのですが、どのようにしたら良いでしょうか？教えて下さい。

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/02/28 01:08

例えば、こんな感じ

Type POINT
x As Integer
y As Integer
End Type

Sub testMain()
Dim a(3) As POINT
Dim i

a(0).x = 1: a(0).y = 10
a(1).x = 2: a(1).y = 20
a(2).x = 3: a(2).y = 30
a(3).x = 4: a(3).y = 40
Call times2(a) '２倍する
For i = 0 To UBound(a)
Debug.Print a(i).x; ","; a(i).y
Next

End Sub
Sub times2(ByRef a() As POINT)
Dim i
For i = 0 To UBound(a)
a(i).x = a(i).x * 2: a(i).y = a(i).y * 2
Next
End Sub

この回答へのお礼

res有難う御座います。具体的な説明で良く分かりました。
早速テストしてみます。

お礼日時：2005/02/28 19:32

No.2 回答者： 1050YEN 回答日時： 2005/02/28 14:34

>配列のアドレスを関数に

関数は内部？、それともActiveX以外のDLLみたいな外部？

単なる内部の関数であれば、＃1さんが書かれた方法で十分で、ポインタを考慮しないでいけると思います。


外部であれば参考URLを参考にどうぞ。
http://okweb.jp/kotaeru.php3?q=817941

この回答へのお礼

RES有難う御座います。　関数は内部です。URLチェックしてみます。

お礼日時：2005/02/28 19:34