タイトル : Re^2: わいわいがやがや広場へ 投稿日 : 2005/10/26(Wed) 18:14 投稿者 : 徳蔵丸
[OSのVer]:Windows [VBのVer]:VB.NET > ※はなちゃんさん、掲示板利用させていただきまして、ありがとうございました。 ※「わいわいがやがや広場」も花ちゃんさんのサイトだそうで 、重ね重ねお世話になっております。 ルシェさん、以下「わいわいがやがや広場」で ご依頼のあったサンプルロジックです。 下記のようにすごいシンプルなロジックです。 並べ替えは、LayoutMdiメソッドによる並べ替えを行っています。 下記を実行して頂いて、徐々にForm1(MDI親)画面を小さくしつつ 並べ替えメニューを行うと、あるときFrexGrid部分が表示されなくなります。 ☆FrexGridのあるForm2にはコンストラクタ以外 ☆何も記述していない状態です。 ******************Form1(MDI親):開始****************** Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '集計結果選択画面をモードレスで表示 Dim newForm2 As New Form2(Me) ''MDI親フォームの宣言 newForm2.MdiParent = Me newForm2.Show() Dim newForm22 As New Form2(Me) ''MDI親フォームの宣言 newForm22.MdiParent = Me newForm22.Show() End Sub '並べて表示メニュークリック Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub ******************Form1(MDI親):終了****************** ******************Form1(MDI子):開始****************** Private ctrForm1 As New Form1 'frmClMain のコンストラクタ Public Sub New(ByVal MdiParent As Form1) InitializeComponent() ctrForm1 = MdiParent End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub ******************Form1(MDI子):終了****************** 以上、よろしくお願いします。 |