[ツリー表示へ] [ワード検索] [Home]
タイトル ： 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子）：終了****************** 以上、よろしくお願いします。 |
をクリックするとツリー全体を一括表示します） - スプリッタとオートスクロールについて - 徳蔵丸 10/25-18:56No.2458