投稿日	： 2004/10/05(Tue) 18:41
投稿者	： TM
Ｅメール	：
ＵＲＬ	：
タイトル	： 配列の値と個数を引数として

No.384ではお世話になりました。
解決したので、しばらくこなかったため
よねＫＥＮさんの追記を無視した形になってしまい申し訳ございません。
分かりやすい説明ありがとうございました。

標記の件ですが、たとえば
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 Variant)
  Dim i As Integer
  For i = 0 To b
    Call MsgBox(c(i))
  Next i
End Sub

実行結果：
1
2
3

のようなことをやりたいのです。
つまり、配列の個数と、配列の最初の値を引数で渡すと、
その個数分のデータを参照できる関数を作りたいのですが、
当然のことながらcに1が代入されるだけなので
上記ではエラーになってしまいます。

Call BBB(a)
Private Sub BBB(d() As Integer)
とすれば配列で渡せるのは知っているのですが、
既存の通信パッケージの関数が上記の形となっていて
そのボードがない時のシミュレーションを行いたいため、
引数の形を同じにしなければなりません。
パッケージがやっているので、できないことはないのでしょうが、
私には方法がわかりません。よろしくお願いします。

★ - 配列の値と個数を引数として - TM 10/05-18:41No.556
• Re: 配列の値と個数を引数として - kamurin 10/05-18:51 No.557
• Re: 配列の値と個数を引数として - YAS 10/05-23:29 No.560
  • Re^2: 配列の値と個数を引数として - TM 10/06-16:40 No.564