DotNetBar Supertabcontrol.create

[SherinBloemendaal]

Hallo,

Ik heb een probleem.
ik maak een soort internet browser, en heb laast de TabControl van DotNetBar vervangen door een SuperTabControl van DotNetBar.
een probleem, nu werkt mijn code niet meer om een nieuw tabblad te maken
dit is de code :

Dim addTab As TabItem = TabControl1.CreateTab("Nieuw tabblad")
Dim panel As TabControlPanel = DirectCast(addTab.AttachedControl, TabControlPanel)
Dim newtab As New Tab
newtab.Show()
newtab.TopLevel = False
newtab.Dock = DockStyle.Fill
panel.Controls.Add(newtab)

ik heb al geprobeerd om Dim addTab as TabItem weg te halen maar dan kom ik in de problemen met de 2e zin : Dim panel As TabControlPanel = DirectCast(addTab.AttachedControl, TabControlPanel)


Ik hoop dat iemand mij kan helpen,
alvast bedankt.
Sherin Bloemendaal

 

[SherinBloemendaal]

Oja de error er bij doen is ook handig:
"Value of type 'DevComponents.DotNetBar.SuperTabItem' cannot be converted to 'DevComponents.DotNetBar.TabItem"
ik heb zo'n idee dat het probleem bij Dim addTab as TabItem ligt.
een TabItem blijkt iets te zijn van de gewoone TabControl van DotNetBar.
maar wat moet de andere code zijn?
op devcomponents staat niks, alleen over de gewoone TabControl.

Alvast Bedankt
Sherin Bloemendaal

 

[SherinBloemendaal]

IK HEB DE OPLOSSING!!!!!!!!!!!!!!!!!
zo simpel
gewoon TabItem veranderen naar SuperTabItem!

De code!

Dim addTab As SuperTabItem
Dim panel As SuperTabControlPanel
Dim newtab As New Tab

addTab = TabControl1.CreateTab("Nieuw tabblad")
panel = DirectCast(addTab.AttachedControl, SuperTabControlPanel)
newtab.Show()
newtab.TopLevel = False
newtab.Dock = DockStyle.Fill
panel.Controls.Add(newtab)
TabControl1.SelectedTabIndex = 1