MDI Form In Tabcontrol Anzeigen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Manu67100.

    MDI Form In Tabcontrol Anzeigen

    Hallo,
    Ich habe ein Problem:
    In einem Tab control , erstelle ich einen pannel mit:

    VB.NET-Quellcode

    1. Dim i As Integer = 1
    2. Dim pan As New Panel
    3. TabControl1.TabPages.Add(i, "Page " & i)
    4. TabControl1.SelectTab(i - 1)
    5. pan.Dock = DockStyle.Fill
    6. pan.BackColor = Color.Azure
    7. TabControl1.SelectedTab.Controls.Add(pan)
    8. i = i + 1

    In diesem will ich eine MDI form oder formular anzeigen lassen.
    Ich habe es mit :

    VB.NET-Quellcode

    1. Dim ChildForm As New Form3
    2. With ChildForm
    3. .TopLevel = False
    4. .Visible = True
    5. End With
    6. 'Me.Panel_Form.Controls.Add(ChildForm)
    7. CType(TabControl1.SelectedTab.Controls.Item(0), Panel).Controls.Add(ChildForm)

    Versucht , doch es geht nicht ...
    Hat Jemand eine Idee?

    PS: Ich möchte wenn möglich kein MdiTabcontrol von codeproject & co (Wenn dann selber proggramiert... :D )

    Mfg Manu :)

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Manu67100“ ()

    Neues Problem

    Hallo,
    Ich habe es geschafft in ein Tab Control einen MDIclient ein zu bauen.
    Doch leider lässt sich keine form in dieser anzeigen...
    folgender Fehler tritt immer auf : " Das Objekt des Typs "System.Windows.Forms.MdiClient" kann nicht in Typ "System.Windows.Forms.Form" umgewandelt werden . "
    Hier der code:

    VB.NET-Quellcode

    1. Public Class frmMain
    2. Dim i As Integer = 1
    4. Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. addPage()
    6. End Sub
    8. Public Sub addPage()
    10. tabForms.TabPages.Add(i, "Page " & i)
    11. tabForms.SelectedIndex = (i - 1)
    12. tabForms.SelectedTab.Controls.Add(new MdiClient)
    13. i = i + 1
    15. End Sub
    17. Private Sub AddTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddTabToolStripMenuItem.Click
    18. addPage()
    19. End Sub
    21. Private Sub PortScannerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PortScannerToolStripMenuItem.Click
    22. Dim ChildForm As New frm3
    23. ChildForm.MdiParent = tabForms.SelectedTab.Controls.Item(0) 'Hier tritt der Fehler auf
    24. ChildForm.Show()
    25. End Sub
    26. End Class

    Gibt es eine möglichkeit diesen fehler zu beheben?

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Manu67100“ ()

Facebook
Telefonspende