投稿日 | : 2004/10/05(Tue) 23:29 |
投稿者 | : YAS |
Eメール | : yasunari@sakai.atnifty.com |
URL | : |
タイトル | : 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