似是而非

导航

Menu菜单

1)  打开新窗体:

Dim frm As 新窗体名

frm = New 新窗体名

frm.Show()

2)  父窗体设置法:

在form的IsMdiContainer属性里更改,true为父窗体,false为子窗体。

3)  Me.LayoutMdi(MdiLayout.Cascade)

同时打开三个窗体时,显示三个窗体罗列

 Me.LayoutMdi(MdiLayout.TileHorizontal)

同时打开三个窗体时,显示三个窗体横排并列

 Me.LayoutMdi(MdiLayout.TileVertical)

同时打开三个窗体时,显示三个窗体竖排并列

4)  综合:

For Each frm As Form In Me.MdiChildren

  If frm.Name = "新窗体名A" Then

        If frm.WindowState = FormWindowState.Minimized Then

           frm.WindowState = FormWindowState.Normal

        End If

  frm.Show()

  frm.BringToFront()

  Return

End If

Next

Dim UM_Form As 新窗体名A = New 新窗体名A

UM_Form.MdiParent = Me

UM_Form.Show()

posted on 2009-11-25 13:56  似是而非  阅读(197)  评论(0编辑  收藏  举报