Sub InsertPage (ts As TabStrip, Index As Int, Page As Panel, Title As String)
Dim jo As JavaObject = ts
jo.GetFieldJO("pages").RunMethod("add", Array(Index, Page))
jo.GetFieldJO("titles").RunMethod("add", Array(Index, Title))
RefreshTabStrip(ts)
End Sub
'Return the removed page
Sub RemovePage (ts As TabStrip, Index As Int) As Panel
If ts.CurrentPage >= Index Then ts.ScrollTo(0, False)
Dim jo As JavaObject = ts
Dim p As Panel = jo.GetFieldJO("pages").RunMethod("remove", Array(Index))
jo.GetFieldJO("titles").RunMethod("remove", Array(Index))
RefreshTabStrip (ts)
Return p
End Sub
Sub RefreshTabStrip(ts As TabStrip)
Dim jo As JavaObject = ts
jo.RunMethod("resetAdapter", Null)
jo.GetFieldJO("vp").RunMethodJO("getAdapter", Null).RunMethod("notifyDataSetChanged", Null)
jo.GetFieldJO("tabStrip").RunMethod("notifyDataSetChanged", Null)
End Sub