投稿日 | : 2003/03/17(Mon) 15:30 |
投稿者 | : ひろぽん |
Eメール | : |
URL | : |
タイトル | : Re^2: MDIにおける変数の定義方法について |
> こんにちは。
> 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が取得できます。
ご回答ありがとうございます。
子フォームにもクラスを用いてプロパティを追加できるのですね。→知らなかったです。
てことは、Property Letを使うと設定も可能になるという事でよろしいでしょうか。
それと、もうひとつ質問があります。
作成中のプログラムは、計算結果ファイル1つにつき子フォームをひとつ使用します。
計算結果ファイルを読み込むと、子フォームが開き、計算結果で得られた変形図(PictureBox利用)が
表示され(初期はStep0)、MDIフォームに配置した再生ボタンを押すと、解析Step分の変形の様子が
アニメーションみたいに見れるといった感じのプログラムです。
最初に見たい数だけファイルを開いて(子フォームを生成して)おいて、続いて任意の子フォームを
アクティブにして、MDIフォームにある再生ボタンを押すと、アクティブな子フォームの変形の様子が
表示されるようにしたいのですが、上記の方法でも可能でしょうか?
つまり、Set wkChild = Nothingとすると、変数が初期化?されてしまい、情報がなくなるため、
アクティブな子フォームが変わる毎にもう一度計算結果ファイルを読み直さないといけないのではないかと
思ったからです。
すいませんが、よろしくご教示下さい。