|
|
Riga 1: |
Riga 1: |
− | 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.
| + | #REDIRECT [[Modificare il valore delle proprietà degli oggetti posti sulla linguetta in primo piano di una TabStrip]] |
− | | |
− | 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
| |
− |
| |
− | <FONT color=gray>' ''Inseriamo sei linguette:''</font>
| |
− | TabStrip1.Count = 6
| |
− |
| |
− | For j = 0 To 5
| |
− |
| |
− | <FONT color=gray>' ''Intestiamo ciascuna linguetta:''</font>
| |
− | TabStrip1[j].Text = CStr(j)
| |
− | <FONT color=gray>' ''Prendiamo in considerazione la linguetta n. j :''</font>
| |
− | TabStrip1.Index = j
| |
− | <FONT color=gray>' ''Inseriamo una "TextLabel" nella linguetta in considerazione:''</font>
| |
− | With tl = New TextLabel(TabStrip1)
| |
− | .X = 40
| |
− | .Y = 100
| |
− | .W = 100
| |
− | .H = 50
| |
− | .Text = "TextLabel " & CStr(j)
| |
− | .Border = Border.Plain
| |
− | End With
| |
− |
| |
− | <FONT color=gray>' ''Inseriamo una "Label" nella linguetta in considerazione:''</font>
| |
− | With l = New Label(TabStrip1)
| |
− | .X = 40
| |
− | .Y = 200
| |
− | .W = 100
| |
− | .H = 50
| |
− | .Text = "Label " & CStr(j)
| |
− | .Border = Border.Plain
| |
− | End With
| |
− |
| |
− | Next
| |
− |
| |
− | <FONT color=gray>' ''Infine, mostriamo in primo piano la prima linguetta:''</font>
| |
− | TabStrip1.Index = 0
| |
− |
| |
− | '''End'''
| |
− |
| |
− |
| |
− | '''Public''' Sub Button1_Click()
| |
− |
| |
− | Dim b As Object
| |
− |
| |
− | <FONT color=gray>' ''Prendiamo in considerazione gli oggetti posti sulla linguetta attualmente in primo piano:''</font>
| |
− | 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'''
| |