- 333 名前：デフォルトの名無しさん mailto:sage [2007/02/20(火) 12:16:50 ]
- >>332
===== MyTestClass As クラスモジュール =====
Public ID As Integer
Public Name As String
===== EOM =====
===== Module1 As 標準モジュール =====
Sub test()
Dim a(3) As New MyTestClass
a(0).Name = "hoge"
a(0).ID = 10
i = TypeTest(a)
End Sub
Function TypeTest(a() As MyTestClass) As Integer
Debug.Print a(0).Name
Debug.Print a(0).ID
End Function
===== EOM =====
こんな感じで。
クラスモジュールの名前がAs 〜で使う宣言型になる点に注意。
> それと、ここはsage推奨ですか？
別に。回答者はageる必要が無いから慣例的にsageてるだけ。
