iterate views of panel

[jake]

For a panel containing different types of child views, I know I can conditionally select just the label views. Is there a way to change the text color of these labels? What I have below doesn't get the job done.

For i=0 To pnlStats.NumberOfViews-1
               If pnlStats.GetView(i) Is Label Then
                  If intMainColor>300 Then
                     pnlStats.GetView(i).TextColor=Colors.black
                  Else
                     pnlStats.GetView(i).TextColor=Colors.white
                  End If 
               End If
            Next

 

[Informatix]

For a panel containing different types of child views, I know I can conditionally select just the label views. Is there a way to change the text color of these labels? What I have below doesn't get the job done.

Dim v As View
           For i=0 To pnlStats.NumberOfViews-1
                  If pnlStats.GetView(i) Is Label Then
                  If intMainColor>300 Then
                     Activity.GetView(i).TextColor=Colors.black
                  Else
                     Activity.GetView(i).TextColor=Colors.white
                  End If 
               End If
             Next

GetView returns a View and thus does not have a TextColor property. You have to cast this view to the label type.

Dim lbl as Label
lbl = GetView(i)
lbl.TextColor = ...

 

[jake]

Okay thank you for the tip. I think I will need to cast to a label, change its text color, then put it back into pnlStats.getview(i). Will give this a try!

 

[Informatix]

Okay thank you for the tip. I think I will need to cast to a label, change its text color, then put it back into pnlStats.getview(i). Will give this a try!

Why "put it back" ? When you do label = view, it's just a type casting. There's no transfer of value. The label and the view points to the same object in memory.

 

[jake]

You are correct and I appreciate the tip and education.