Modificare il valore delle proprietà degli oggetti posti sulla linguetta in primo piano di una TabStrip

Una possibile soluzione, per modificare il valore di una o più proprietà degli oggetti posti sulla linguetta attualmente in primo piano di una TabStrip, è quella proposta nel codice dell'esempio che segue.

In tale esempio abbiamo una TabStrip formata da 6 linguette, ciascuna contenente una TextLabel ed una Label. Premendo un tasto, posto sul Form ed al di fuori della TabStrip, si intende cambiare il valore della proprietà .Foreground della TextLabel e della proprietà .Text della Label poste sulla linguetta in quel momento in primo piano.

Public Sub Form_Open()

 Dim j As Byte
 Dim tl As TextLabel
 Dim l As Label

' Inseriamo sei linguette:
 TabStrip1.Count = 6

 For j = 0 To 5

' Intestiamo ciascuna linguetta:
   TabStrip1[j].Text = CStr(j)
' Prendiamo in considerazione la linguetta n. j :
   TabStrip1.Index = j
' Inseriamo una "TextLabel" nella linguetta in considerazione:
   With tl = New TextLabel(TabStrip1)
     .X = 40
     .Y = 100
     .W = 100
     .H = 50
     .Text = "TextLabel " & CStr(j)
     .Border = Border.Plain
   End With
   
' Inseriamo una "Label" nella linguetta in considerazione:
   With l = New Label(TabStrip1)
     .X = 40
     .Y = 200
     .W = 100
     .H = 50
     .Text = "Label " & CStr(j)
     .Border = Border.Plain
   End With

 Next

' Infine, mostriamo in primo piano la prima linguetta:
 TabStrip1.Index = 0

End


Public Sub Button1_Click()

 Dim b As Object

' Prendiamo in considerazione gli oggetti posti sulla linguetta attualmente in primo piano:
 For Each b In TabStrip1[TabStrip1.Index].Children
   Select Case Object.Type(b)
     Case "TextLabel"
       b.Foreground = Color.Red
     Case "Label"
       b.Text = "Nuovo testo"
   End Select
 Next

End