Post by knowledge on Nov 16, 2016 4:06:40 GMT 10
Hey guys, looks like im the only one who posts here . Anyways, as i said in the another thread, i will use TWBP tabs which is provided by zealot, so i need help with this code: Form1: Public Sub AddTab() Dim tab As New TabPage Dim tabcntrl As New BrowserTab(Me, TabControl1, tab) tabcntrl.Dock = DockStyle.Fill tab.Controls.Add(tabcntrl) TabControl1.TabPages.Add(tab) TabControl1.SelectedTab = tab End Sub
Public Sub AddTab(url As String) Dim tab As New TabPage Dim tabcntrl As New BrowserTab(Me, TabControl1, tab, url) tabcntrl.Dock = DockStyle.Fill tab.Controls.Add(tabcntrl) TabControl1.TabPages.Add(tab) TabControl1.SelectedTab = tab End Sub ----------------------------- This when i was using basic tab controls, now i swiitched to TWBP tabs, so can anyone fix it? Second thing, is can anyone explain to me what is TWBP tabs? i meant its controls etc.. Sorry guys for wasting your time. Have a n1 day! Cheers, knowledge
|
|
Post by bobowk on Nov 16, 2016 18:39:14 GMT 10
Oh yes, some controls are different, but better in a way. The download gave you a demo, which contained this: Form_Load event:
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.MaximumSize = Screen.PrimaryScreen.WorkingArea.Size TwbpTabs1.TabCloseButtonImage = My.Resources.close_Tab_0 TwbpTabs1.TabCloseButtonImage_Over = My.Resources.close_Tab_1 TwbpTabs1.TabCloseButtonImage_Pressed = My.Resources.close_Tab_2 TwbpTabs1.TabBarBorderColour = New ColinVerhey.TWBP.TWBPColour("#000000") TwbpTabs1.TabBarTopColour = New ColinVerhey.TWBP.TWBPColour("#f5f5f5") TwbpTabs1.TabBarBottomColour = New ColinVerhey.TWBP.TWBPColour("#f5f5f5") TwbpTabs1.TabTopColour = New ColinVerhey.TWBP.TWBPColour(My.Settings.tabtop) TwbpTabs1.TabBottomColour = New ColinVerhey.TWBP.TWBPColour(My.Settings.tabbottom) TwbpTabs1.bgTabTopColour = New ColinVerhey.TWBP.TWBPColour("#d3d3d3") TwbpTabs1.bgTabBottomColour = New ColinVerhey.TWBP.TWBPColour("#d3d3d3") TwbpTabs1.TabContainer.AddTab(New webbrowserform, True, TwbpTabs1.TabContainer.TabCount) End Sub Add Tab:
TwbpTabs1.TabContainer.AddTab(New webbrowserform, True, TwbpTabs1.TabContainer.TabCount)
|
|
Post by knowledge on Nov 17, 2016 0:03:44 GMT 10
Aokay thanks i will try it when im home
|
|
Post by knowledge on Nov 17, 2016 3:47:12 GMT 10
what about this : For Each item As TabPage In myfrm.TabControl1.TabPages CType(item.Controls(0), webbrowserform).RefreshFavorites() 'Update favorites bar again Next ------------ this: Dim f As New Favorite(My.Settings.Favorites(i), myfrm, Me) favbar.Items.Add(f) Next sorry for bothering ya btw.. thanks in advance.
|
|
Post by bobowk on Nov 17, 2016 12:05:11 GMT 10
knowledge What are these two codes for? Can you please put it in tags
|
|
Post by knowledge on Nov 17, 2016 15:35:12 GMT 10
This is for favorites
|
|
Post by knowledge on Nov 18, 2016 6:38:07 GMT 10
So guys?
|
|
Post by bobowk on Nov 18, 2016 10:08:05 GMT 10
Just do
For Each item As TabPage In myfrm.TabControl1.TabPages (item.Controls(0), webbrowserform).RefreshFavorites() 'Update favorites bar again Next
|
|
Post by bobowk on Nov 18, 2016 10:14:18 GMT 10
You don't need any Ctype for any of these codes. If you need anymore information, just check the pre-release source of my browser which I'll give to you. Please credit me if you use my code. Also, please don't use my source as if it is your own, only use the code which you need help with. Download: Source Code (MediaFire link)
|
|
Post by knowledge on Nov 18, 2016 19:41:44 GMT 10
Thanks bro that helped me alot and that made me know twbp controls. Thanks!
|
|