Modificare il valore delle proprietà degli oggetti posti sulla linguetta in primo piano
Da Gambas-it.org - Wikipedia.
Versione del 10 lug 2014 alle 11:04 di Vuott (Discussione | contributi)
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