Private Sub Application_Start (Nav As NavigationController)
'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
NavControl = Nav
MainPage.Initialize("MainPage")
MainPage.RootPanel.LoadLayout("Main")
NavControl.ShowPage(MainPage)
TabPages.Initialize
Dim cs As CSBuilder
Dim page1, page2, page3 As Page
page1.Initialize("page1")
page1.RootPanel.LoadLayout("Tab1")
SetAttributedTitle(page1, cs.Initialize.Append("Bing"))
WebView1.LoadUrl("https://www.bing.com")
TabPages.Add(page1)
page2.Initialize("page2")
page2.RootPanel.LoadLayout("Tab1")
WebView1.LoadUrl("https://www.google.com")
SetAttributedTitle(page2, cs.Initialize.Append("Google"))
TabPages.Add(page2)
page3.Initialize("page3")
page3.RootPanel.LoadLayout("Tab1")
WebView1.LoadUrl("https://www.duckduckgo.com")
SetAttributedTitle(page3, cs.Initialize.Append("DuckDuckGo"))
TabPages.Add(page3)
TabStrip1.SetPages(TabPages)
End Sub
Sub TabStrip1_PageSelected (Position As Int)
For i = 0 To TabPages.Size - 1
Dim p As Page = TabPages.Get(i)
Dim lbl As Label = p.TitleView
Dim clr As Int
If i = Position Then clr = Colors.Red Else clr = Colors.Black
Dim cs As CSBuilder
SetAttributedTitle(p, cs.Initialize.Color(clr).Append(lbl.AttributedText.ToString).PopAll)
Next
Dim no As NativeObject = TabStrip1
Sleep(50)
no.RunMethod("reloadPagerTabStripView", Null)
End Sub