投稿日 | : 2003/03/17(Mon) 13:01 |
投稿者 | : これ |
URL | : |
タイトル | : Re: MDIにおける変数の定義方法について |
> こんにちは。
>
> 今、MDIでアプリを作成してます。
> それでSDIで作成していた変数をどうやってMDIに拡張したらいいか分からず悩んでます。
> 具体的には、節点数を格納する変数があります。SDIでは単純に次のように定義してます。
> Dim Node_Num As Integer
> これでは、Node_Numを参照したいときに、どうにかしてアクティブな子フォームからWindow_Noを
> 取得しなければなりません。
>
> 私が理想とするのは、
> Me.Node_No
> みたいにできるだけ単純にNode_Noを参照できればと考えてますが、何かいい方法はないでしょうか。
> (上の参照方法は、子フォームに対するプロパティみたいな形になっているので、これは厳しいかと思いますが・・・)
>
> 以上の件、よろしくご教授下さい。お願い致します。
こんにちは。
MDIフォーム内でのアクティブな子フォームは
ActiveFormプロパティで取得できますので
子フォームにPublicなプロパティを追加すれば
可能では無いでしょうか?
具体的には
子フォームは
Dim Node_Num As Integer
として、さらに
Public Property Get pNodeNum() AS Integer
pNodeNum = Node_Num
End Property
でプロパティを追加します。
MDIフォーム側で必要な時に
Dim wkChild as Form
Set wkChild = Me.ActiveForm
ChildNode_Num = wkForm.pNodeNum
Set wkChild = Nothing
とすれば
アクティブな子フォームのNode_Numが取得できます。