てんくうのかなた

No.2517

・ 親フォームから、子フォームのコントロールなどの操作について
    現在のアクティブなフォームのTagでコレクションを呼び出し、操作を行う。
        WinCol(Me.ActiveMdiChild.Tag).コントロール名.メソッド

    *コントロール名やメソッドを打ち込む時に入力支援が出ないので、ミスに注意。

・Mdi
    親FormプロパティのIsMdiContainerをTrueにする。
        親Formクラスの先頭に
            Dim ChildNo as Long'正整数
            Public WinCol As new Collection' コレクション


     子フォームの作成を行うボタンの部分に
        Dim Child As New System.Windows.Forms.Form’新フォーム生成
        Child.MdiParent = Me '親を指定
        ChildNo = ChildNo + 1’生成数
        Child.Text = "新規" & ChildNo '名前付け（タイトルバー)
        Child.Tag = "Tab:" & ChildNo '関連付け用のKey
        Child.Show() '表示
        WinCol.add(Child,ChildTag)'コレクションに追加