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 :
Alvast bedankt.
Sherin Bloemendaal
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: