VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 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が取得できます。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -