|
今晩は。
>どなたか教えて下さい。クラスモジュールでは、配列を引数に出来ないのですか?
>参考までにコードを載せます。よろしくお願い致します。
これで一応、配列を渡しています。参考にしてください。
'[クラスモジュール Class1]
Public Result As Variant '計算結果を格納するプロパティ
Private u As Variant
'dataAを設定するプロパティ
Public Property Let dataA(ByVal p As Variant)
'計算.dataA =MyArray のとき、 P=MyArray の動作をする
u = p
End Property
'計算処理するメソッド作成
Public Sub Calc()
ReDim Result(1 To 2)
Result(1) = u(0) + "+" + u(1) '和
Result(2) = u(0) + "*" + u(1) '積
End Sub
'標準モジュール
Sub test()
Dim 計算 As New Class1 'インスタンスの生成
Dim MyArray As Variant
MyArray = Array("a", "b")
計算.dataA = MyArray
計算.Calc '計算を実行
'
'結果を表示
MsgBox "和= " & 計算.Result(1) & vbCrLf & _
"積= " & 計算.Result(2), , "aとbの計算結果"
End Sub
|
|