Meervoudige formulieren

• Een MDI (multiple document form) is een formulier waarin andere formulieren vervat zitten.
• Je kan dit effect bereiken door
• We bouwen een programma dat er zo uit ziet:
• We gebruiken daarvoor een twee formulieren, één waarvan IsMdiContainer op True staat (dit wordt de container) en één waarop we een RichtextBox plaatsen die volledig gedocked is.
  We "plakken" dat bevatte formulier in de MDI container bij het aanmaken van elk van de kinderen:
  Dim f As New frmChild
  f.MdiParent = Me
  f.Show()
  Die code roepen we op bij het opstarten van het programma, maar omdat ze ook via een menu moet kunnen opgeroepen worden, steken we ze in een aparte procedure.
• Een MDI container heeft een methode LayoutMdi waarmee je de ondergeschikte formulieren kan schikken. Even de help raadplegen help bij het
• We maken een menu en we schrijven de volgende code.
  Private Sub maakchild()
  Dim f As New frmChild
  f.MdiParent = Me
  f.Show()
  End Sub
  
  Private Sub mnuFileQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileQuit.Click
  Me.Close()
  End Sub
  
  Private Sub mnuFileNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileNew.Click
  maakchild()
  End Sub
  
  Private Sub mnuTile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuTile.Click
  Me.LayoutMdi(System.Windows.Forms.MdiLayout.TileHorizontal)
  End Sub
  
  Private Sub mnuFileCloseActivewindow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileCloseActivewindow.Click
  Try ' misschien is er helemaal geen Child
  Dim activeChild As Form = Me.ActiveMdiChild
  activeChild.Dispose()
  Catch ex As Exception
  End Try
  End Sub
   
• Je kan het programma downloaden.
• Je kan het project downloaden.

[VB Web] - [hlrnet] - [copyright]