Android Question [SOLVED]Try to use TabStripViewPagerExtendet?

[nanjidusan]

When I use SetTabLeft(tabstrip As TabStrip,left As Int,Position As Int)

panel.Initialize("")
    Activity.AddView(panel,0,0,100%x,90%y)
    panel.LoadLayout("tabstrip")
    tabstrip1.LoadLayout("shengmu","page1")
    tabstrip1.LoadLayout("yunmu","page2")
    tabstrip1.LoadLayout("shengdiao","page3")
    panel.Visible=False
    tabstripview.SetTabLeft(tabstrip1,20dip,tabstrip1.CurrentPage)

throws this:

** Activity (main) Resume **
** Activity (main) Create, isFirst = true **
Panel size is unknown. Layout may not be loaded correctly.
Error occurred on line: 200 (tabstripview)
java.lang.ClassCastException: android.widget.LinearLayout$LayoutParams cannot be cast to anywheresoftware.b4a.BALayout$LayoutParams
    at anywheresoftware.b4a.objects.ViewWrapper.setLeft(ViewWrapper.java:182)
    at dh.apk.tabstripview._settableft(tabstripview.java:79)
    at java.lang.reflect.Method.invoke(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:372)
    at anywheresoftware.b4a.shell.Shell.runMethod(Shell.java:732)
    at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:348)
    at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:255)
    at java.lang.reflect.Method.invoke(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:372)
    at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:144)
    at dh.apk.main.afterFirstLayout(main.java:104)

How to solve this problem?

 

[nanjidusan]

Public Sub SetTabLeft(tabstrip As TabStrip,left As Int,Position As Int)
    
    Dim i As Int
    For Each lbl As Label In GetAllTabLabels(tabstrip)
        If i = Position Then
            
            lbl.Left = left

        End If
        i = i + 1
    Next
    
End Sub

 

[Erel]

You shouldn't see this warning: Panel size is unknown. Layout may not be loaded correctly.

It means that the layout will not work properly.

What is SetTabLeft supposed to do?

 

[nanjidusan]

You shouldn't see this warning: Panel size is unknown. Layout may not be loaded correctly.

It means that the layout will not work properly.

What is SetTabLeft supposed to do?

Thanks.

panel.Initialize("panel")
Activity.AddView(panel,0,0,100%x,90%y)
panel.LoadLayout("tabstrip")
tabstrip1.LoadLayout("shengmu","page1")
tabstrip1.LoadLayout("yunmu","page2")
tabstrip1.LoadLayout("shengdiao","page3")
tabstripview.SetTabLeft(tabstrip1,20dip,tabstrip1.CurrentPage)

It hasn't a warning about panel size

** Activity (main) Create, isFirst = true **
Error occurred on line: 200 (tabstripview)
java.lang.ClassCastException: android.widget.LinearLayout$LayoutParams cannot be cast to anywheresoftware.b4a.BALayout$LayoutParams
    at anywheresoftware.b4a.objects.ViewWrapper.setLeft(ViewWrapper.java:182)
    at dh.apk.tabstripview._settableft(tabstripview.java:79)
    at java.lang.reflect.Method.invoke(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:372)
    at anywheresoftware.b4a.shell.Shell.runMethod(Shell.java:732)
    at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:348)

I guess that's not the problem. when use SetTabHeight(tabstrip As TabStrip,height As Int,Position As Int),it works well.

 

[nanjidusan]

I don't think the lbl.Left = left in tabstrip will work.

 

[Erel]

What are you trying to do?

 

[nanjidusan]

I can't adjust their positions,and the Sub CenterAllTabs can't give me what I need.

 

[nanjidusan]

I want to center the label like this

 

[Erel]

Try this:

Dim jo As JavaObject = TabStrip1
Dim hsv As HorizontalScrollView = jo.GetFieldJO("tabStrip")
hsv.Left = 20%x
hsv.Width = 60%x

 

[Alexander Stolte]

or this:

Public Sub GetAllTabLabels (tabstrip As TabStrip) As List
    Dim jo As JavaObject = tabstrip
    Dim r As Reflector
    r.Target = jo.GetField("tabStrip")
    Dim tc As Panel = r.GetField("tabsContainer")
    Dim res As List
    res.Initialize
    For Each v As View In tc
        If v Is Label Then res.Add(v)
    Next
    Return res
 
End Sub

For Each lbl As Label In Main.fun.GetAllTabLabels(ts_main)
        lbl.Width = Round(Activity.Width/3)
    Next

 

[nanjidusan]

Try this:

Dim jo As JavaObject = TabStrip1
Dim hsv As HorizontalScrollView = jo.GetFieldJO("tabStrip")
hsv.Left = 20%x
hsv.Width = 60%x

It works well! Thank you very much, It's very kind of you! Thanks a lot!

 

[nanjidusan]

or this:

Public Sub GetAllTabLabels (tabstrip As TabStrip) As List
    Dim jo As JavaObject = tabstrip
    Dim r As Reflector
    r.Target = jo.GetField("tabStrip")
    Dim tc As Panel = r.GetField("tabsContainer")
    Dim res As List
    res.Initialize
    For Each v As View In tc
        If v Is Label Then res.Add(v)
    Next
    Return res
 
End Sub

For Each lbl As Label In Main.fun.GetAllTabLabels(ts_main)
        lbl.Width = Round(Activity.Width/3)
    Next

Thanks a lot! But it's full, not in the center as I thought.