坚持不懈,努力不断

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
        大家一定对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,这就可以了,呵呵,也很简单吧,由于是第一篇,错误在所难免,请大家指正
posted on 2005-08-05 02:54  大傻  阅读(1202)  评论(0编辑  收藏  举报