Differenze tra le versioni di "Modificare il valore delle proprietà degli oggetti posti sulla linguetta in primo piano"
Da Gambas-it.org - Wikipedia.
(Creata pagina con '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 propos...') |
|||
Riga 9: | Riga 9: | ||
Dim l As Label | Dim l As Label | ||
− | <FONT color=gray>' ''Inseriamo | + | <FONT color=gray>' ''Inseriamo sei linguette:''</font> |
TabStrip1.Count = 6 | TabStrip1.Count = 6 | ||
Riga 50: | Riga 50: | ||
Dim b As Object | Dim b As Object | ||
− | <FONT color=gray>' ''Prendiamo in considerazione gli oggetti posti sulla linguetta | + | <FONT color=gray>' ''Prendiamo in considerazione gli oggetti posti sulla linguetta attualmente in primo piano:''</font> |
For Each b In TabStrip1[TabStrip1.Index].Children | For Each b In TabStrip1[TabStrip1.Index].Children | ||
Select Case Object.Type(b) | Select Case Object.Type(b) |
Versione delle 11:04, 10 lug 2014
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