| タイトル | ： Re^2: わいわいがやがや広場へ |
| 記事No | ： 2469 |
| 投稿日 | ： 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子）：終了******************
以上、よろしくお願いします。
|