| 投稿日 | ： 2004/10/05(Tue) 23:29 |
| 投稿者 | ： YAS |
| Ｅメール | ： yasunari@sakai.atnifty.com |
| ＵＲＬ | ： |
| タイトル | ： Re: 配列の値と個数を引数として |
TMさんこんにちは。
配列をポインタで渡しているようなので，以下のようになると思います。
BBBでは必要なメモリを配列で確保して，APIでコピーしています。
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub AAA()
Dim a(2) As Integer
a(0) = 1
a(1) = 2
a(2) = 3
Call BBB(2, a(0))
End Sub
Private Sub BBB(b As Integer, c As Integer)
Dim a() As Integer
ReDim a(b)
Call CopyMemory(a(0), c, LenB(c) * (b + 1))
Dim i As Integer
For i = 0 To b
Call MsgBox(a(i))
Next i
End Sub