投稿日	： 2003/03/31(Mon) 09:11
投稿者	： ひろぽん
Ｅメール	：
ＵＲＬ	：
タイトル	： ありがとうございます。

> #配列ですから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属性のプロパティで渡します


ありがとうございます。
おかげさまで、多次元配列の定義のやり方を、コレクションから完全なクラスに変更する事が
可能となり、また子フォーム毎にファイルからの読み取り変数を持たせる事ができるようになりました。
"Friend"は初めて見るものだったので、ちょっととまどいましたが、なんとなく分かりました。
要は、クラス間での受け渡しを可能とするスコープみたいなものですね。勉強になりました。

★ - クラスは遅い？ - ひろぽん 03/28-11:42No.3287
• Re: クラスは遅い？ - Lantern 03/28-12:45 No.3288
  • Re^4: クラスは遅い？ - ひろぽん 03/29-14:59 No.3306
    • Re^5: クラスは遅い？ - Lantern 03/30-12:49 No.3315
      • ありがとうございます。 - ひろぽん 03/31-09:11 No.3328
• Re: クラスは遅い？ - Say 03/28-12:55 No.3289
  • Re^2: クラスは遅い？ - ひろぽん 03/28-14:33 No.3292
• Re: クラスは遅い？ - よねＫＥＮ 03/28-13:09 No.3290
  • Re^2: クラスは遅い？ - ひろぽん 03/28-14:28 No.3291
    • Re^3: クラスは遅い？ - Lantern 03/28-16:51 No.3293
      • Re^4: クラスは遅い？ - ひろぽん 03/29-08:35 No.3295