投稿日 | : 2003/03/30(Sun) 12:49 |
投稿者 | : Lantern |
Eメール | : |
URL | : |
タイトル | : Re^5: クラスは遅い? |
#配列ですからReDimしないとエラーになります
'MDIフォーム
> Private Sub LongTask(ByRef cChild As Class1)
>
> Dim udtChild As typChild
>
> 'udtChildにファイル読み込み
>
> cChild.uChild = udtChild
>
> End Sub
Private Sub LongTask(ByRef cChild As Class1)
Dim udtChild As typChild
Dim d() As Double
With udtChild
ReDim .uCHildC(10, 10) As Double
.uChildA = 5
.uChildB = 10&
.uChildC#(0, 0) = 15#
End With
cChild.uChild = udtChild
DeBug.Print cChild.ChildA
DeBug.Print cChild.ChildB
d#() = cChild.ChildC
DeBug.Print d#(0, 0)
End Sub
#子フォームに入れたい変数を親フォームでファイルから読み込み
#プロパティを使用して子フォームに格納するという作り方
#
#子フォームに入れる変数をユーザー定義型にまとめて
#Friend属性のプロパティで渡します