VB.net qios tabcontrol add tab button?

Status
Niet open voor verdere reacties.

SherinBloemendaal

Gebruiker
Lid geworden
5 jan 2013
Berichten
259
Hallo,

Wat de titel zegt.
ik probeer een add tab button te maken bij mijn tabcontrol, net zoiets als google chrome.
Nu heb al een aantal dingen geprobeerd. maar kom er steeds niet uit:(

Ik heb geprobeerd om een Tab te gebruiken. dat lukte niet.
Ik heb een button gemaakt en als je er op klikte verplaatste hij en voegde een nieuw tab toe.

Tot nu toe werkt optie 2 het best.

alleen is het probleem :
zodra ik een tab afsluit gaat hij niet terug.
het probleem is dat dit nogal erg buggy kan worden al doe ik bij het ControlRemoved event qbutton1.left = qbutton1.location.X - 125
Maar aangezien als ik meer dan 10 tabs heb bijv moet ik op die pijltjes klikken(een terug een een verder.)
dus dan gaat de button terug maar de tabs blijven op zelfde locatie.



als het schuin gedrukte te onduidelijk is maak ik ff gouw een voorbeeld.

Dit is de code van de 2e optie :

Code:
  Private Sub QButton1_Click(sender As Object, e As EventArgs) Handles QButton1.Click
        NewTabButtonVerplaatsen()
        addTab()
    End Sub
    Private Sub NewTabButtonVerplaatsen()
        If QButton1.Left = "886" Then
            QButton1.Left = "886"
        Else
            QButton1.Left = QButton1.Location.X + 125
        End If

    End Sub
    Private Sub addTab()
        Dim Tab As New QTabPage
        Tab.Text = "New Tab"
        QTabControlEx1.Controls.Add(TAB)
    End Sub

    Private Sub QTabControlEx1_ControlRemoved(sender As Object, e As ControlEventArgs) Handles QTabControlEx1.ControlRemoved

    End Sub


Alvast bedankt.
Sherin Bloemendaal
 
Laatst bewerkt door een moderator:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan