Yeaahh, I know this method.
But I want to give users the option to change the whole app design, also the border colors. And for that I use the following loop:
B4X:
For Each v As View In Page_Main.RootPanel.GetAllViewsRecursive
.
.
.
If v Is Panel Then
Dim pn As Panel = v
'Now I only want to change the color, and because I don't know the color witdh and the corner radius, I can't use SetBorder
End If
Next
Private Sub Page1_Resize(Width As Int, Height As Int)
Dim no As NativeObject = SegmentedControl1
no = no.GetField("layer")
SegmentedControl1.SetBorder(no.GetField("borderWidth").AsNumber, Colors.Red, _
no.GetField("cornerRadius").AsNumber)
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.