|
クラスモジュールで配列を引数とするプロパティを作り、標準モジュールから
そのプロパティに配列をセットしようとしたら、「配列には割り当てられません」
というコンパイルエラーが返ってきました。また、配列を引数とするメソッドを
作成し、標準モジュールからそのメソッドに配列をセットしようとしたら、
「型が一致しません:配列またはユーザ定義型を指定してください。」と、
配列を指定してるのにもかかわらず怒られました。
どなたか教えて下さい。クラスモジュールでは、配列を引数に出来ないのですか?
参考までにコードを載せます。よろしくお願い致します。
(クラスモジュールClass1 プロパティ版)
Private this_TestData() As String
'
' Let PTestData() 文字列の配列のSETTER
' 引数: 文字列の配列
' 処理概要: 文字列の配列をセットする。
'
Public Property Let PTestData(ByRef strTestData() As String)
this_TestData = strTestData
End Property
(標準モジュール プロパティ版)
Sub Test_Array()
Dim MyArray(3) As String
Dim objTest As Class1
objTest.PTestData = MyArray
End Sub
(クラスモジュールClass1 メソッド版)
Private this_TestData() As String
'
' ArrayTestData() 文字列の配列を設定
' 引数: 文字列の配列
' 処理概要: 文字列の配列をセットする。
'
Public Sub ArrayTestData(ByRef strTestData() As String)
this_TestData = strTestData
End Sub
(標準モジュール メソッド版)
Sub Test_Array()
Dim MyArray(3) As String
Dim objTest As Class1
objTest.ArrayTestData (MyArray)
End Sub
|
|