For i = 0 To Activity.NumberOfViews - 1
If Activity.GetView(i) Is Button OR _
Activity.GetView(i) Is EditText OR _
Activity.GetView(i) Is CheckBox OR _
Activity.GetView(i) Is RadioButton Then
Else If Activity.GetView(i) Is Label Then
Dim lbl As Label
lbl = Activity.GetView(i)
End If
Next
You can use the Tag property for each label and set it by the designer to "lbl"
Now use the Tag property to identify the label:
B4X:
Dim vi As View
Dim lb As Label
For i=0 To activity.NumberOfViews-1
vi=Activity.GetView(i)
If vi.Tag="lbl" Then
lb=activity.GetView(i)
'lb.Color=Colors.Transparent
'lb.TextColor=Colors.RGB(0,0,139)
end if
Next
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.