大家一定对Mdi中多个子窗体之间的跳转头疼过(高手例外),我反正就是被难到过,废话就不说了。请看如果有2个窗体。 1.MainForm(Mdi主窗体) 2.ChildFrom1(子窗体),那么很简单的就是直接
dim f as new Childform1
f.MdiParent=me
f.show
这样就可以了,但如果有3个窗体。 1.MainForm(Mdi主窗体) 2.ChildForm1(子窗体) 3.ChildForm2(子窗体), ChildForm1 上有个button可以跳转到childform2.
这时对于mainform得代码和上面的一样,不再啰嗦。
对于childform1,就变成
dim f as new Childform2
f.Midparent=me.MdiParent(或改成 f.Midparent=MainForm.activeForm)
f.show
呵呵很简单吧。
好,我们在变一下。Childform1如果不是子窗体的话,而是个dialog怎么办,那我们只有将主窗体即mainform的reference给传递过来。请看
对于主窗体mainform
Dim f As New Childform1
f.MdiContainer = Me
f.ShowDialog()
对于对话框childform1来说就必须
Public Class ChildForm1
Inherits...
Private m_MdiContainer As MainForm
Public Property MdiContainer() As MainForm
Get
Return m_MdiContainer
End Get
Set(ByVal Value As MainForm)
m_MdiContainer = Value
End Set
End Property
.
.
.
Dim f As New ChildForm2
f.MdiParent = Me.MdiContainer
f.Show
End Class
OK,这就可以了,呵呵,也很简单吧,由于是第一篇,错误在所难免,请大家指正
dim f as new Childform1
f.MdiParent=me
f.show
这样就可以了,但如果有3个窗体。 1.MainForm(Mdi主窗体) 2.ChildForm1(子窗体) 3.ChildForm2(子窗体), ChildForm1 上有个button可以跳转到childform2.
这时对于mainform得代码和上面的一样,不再啰嗦。
对于childform1,就变成
dim f as new Childform2
f.Midparent=me.MdiParent(或改成 f.Midparent=MainForm.activeForm)
f.show
呵呵很简单吧。
好,我们在变一下。Childform1如果不是子窗体的话,而是个dialog怎么办,那我们只有将主窗体即mainform的reference给传递过来。请看
对于主窗体mainform
Dim f As New Childform1
f.MdiContainer = Me
f.ShowDialog()
对于对话框childform1来说就必须
Public Class ChildForm1
Inherits...
Private m_MdiContainer As MainForm
Public Property MdiContainer() As MainForm
Get
Return m_MdiContainer
End Get
Set(ByVal Value As MainForm)
m_MdiContainer = Value
End Set
End Property
.
.
.
Dim f As New ChildForm2
f.MdiParent = Me.MdiContainer
f.Show
End Class
OK,这就可以了,呵呵,也很简单吧,由于是第一篇,错误在所难免,请大家指正