Differenze tra le versioni di "Estrarre i dati dagli oggetti presenti sulle linguette di una TabStrip"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per estrarre i dati contenuti dagli oggetti presenti sulle linguette di una ''TabStrip'', si potrà seguire in grandi linee il codice esemplificativo che segue. Poniamo come...') |
|||
(2 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 1: | Riga 1: | ||
Per estrarre i dati contenuti dagli oggetti presenti sulle linguette di una ''TabStrip'', si potrà seguire in grandi linee il codice esemplificativo che segue. | Per estrarre i dati contenuti dagli oggetti presenti sulle linguette di una ''TabStrip'', si potrà seguire in grandi linee il codice esemplificativo che segue. | ||
− | |||
Poniamo come esempio un ''Form'' sul quale inseriamo un ''Button'' ed una ''TabStrip'' formato da 3 schede (o linguette). Ciascuna scheda conterrà una ''TextLabel'' ed una ''TextArea''. Alla proprietà ''.Text'' di tali ''TextLabel'' e ''TextArea'' sarà assegnato un valore stringa. | Poniamo come esempio un ''Form'' sul quale inseriamo un ''Button'' ed una ''TabStrip'' formato da 3 schede (o linguette). Ciascuna scheda conterrà una ''TextLabel'' ed una ''TextArea''. Alla proprietà ''.Text'' di tali ''TextLabel'' e ''TextArea'' sarà assegnato un valore stringa. | ||
− | Lo scopo dell'intero codice è di leggere i dati stringa presenti nella proprietà ''.Text'' delle''TextLabel'' e ''TextArea'' presente in ciascuna linguetta. | + | Lo scopo dell'intero codice è di leggere i dati stringa presenti nella proprietà ''.Text'' delle ''TextLabel'' e ''TextArea'' presente in ciascuna linguetta. |
− | + | Public Sub Form_Open() | |
Dim b As Byte | Dim b As Byte | ||
Riga 13: | Riga 12: | ||
<FONT Color=gray>' ''Attribuiamo 3 schede all'oggetto "TabStrip":''</font> | <FONT Color=gray>' ''Attribuiamo 3 schede all'oggetto "TabStrip":''</font> | ||
− | + | TabStrip1.Count = 3 | |
− | |||
− | |||
+ | For b = 0 To TabStrip1.Count - 1 | ||
<FONT Color=gray>' ''Individua la scheda sulla quale si va ad operare:''</font> | <FONT Color=gray>' ''Individua la scheda sulla quale si va ad operare:''</font> | ||
− | + | TabStrip1.Index = b | |
<FONT Color=gray>' ''Crea una "TextLabel" nella scheda attualmente considerata:''</font> | <FONT Color=gray>' ''Crea una "TextLabel" nella scheda attualmente considerata:''</font> | ||
− | + | With tl = New TextLabel(TabStrip1) | |
− | + | .X = 10 | |
− | + | .Y = 10 | |
− | + | .W = 100 | |
− | + | .H = 50 | |
− | + | .Text = "tl_" & CStr(b) | |
− | + | End With | |
<FONT Color=gray>' ''Crea una "TextArea" nella scheda attualmente considerata:''</font> | <FONT Color=gray>' ''Crea una "TextArea" nella scheda attualmente considerata:''</font> | ||
− | + | With ta = New TextArea(TabStrip1) | |
− | + | .X = 10 | |
− | + | .Y = 60 | |
− | + | .W = 100 | |
− | + | .H = 50 | |
− | + | .Text = "ta_" & CStr(b) | |
− | + | End With | |
− | + | Next | |
− | + | ||
− | |||
<FONT Color=gray>' ''Impostiamo la scheda di indice 0 (ossia la prima) come attiva:''</font> | <FONT Color=gray>' ''Impostiamo la scheda di indice 0 (ossia la prima) come attiva:''</font> | ||
− | + | TabStrip1.Index = 0 | |
− | + | ||
− | + | End | |
− | |||
− | + | ||
+ | Public Sub Button1_Click() | ||
Dim ob As Object | Dim ob As Object | ||
Dim b As Byte | Dim b As Byte | ||
− | + | ||
<FONT Color=gray>' ''Prendiamo in considerazione il numero totale delle schede presenti nella "TabStrip":''</font> | <FONT Color=gray>' ''Prendiamo in considerazione il numero totale delle schede presenti nella "TabStrip":''</font> | ||
− | + | For b = 0 To TabStrip1.Count - 1 | |
<FONT Color=gray>' ''Per "ogni" oggetto in qualità di "figlio" presente nella corrente scheda....''</font> | <FONT Color=gray>' ''Per "ogni" oggetto in qualità di "figlio" presente nella corrente scheda....''</font> | ||
− | + | For Each ob In TabStrip1[b].Children | |
<FONT Color=gray>' ''...andiamo a leggere il contenuto della proprietà ".Text" (...che abbiamo precedentemente assegnato come esempio):''</font> | <FONT Color=gray>' ''...andiamo a leggere il contenuto della proprietà ".Text" (...che abbiamo precedentemente assegnato come esempio):''</font> | ||
− | + | Print ob.Text | |
− | + | Next | |
− | + | Print | |
− | + | Next | |
− | + | ||
− | + | End |
Versione attuale delle 17:47, 5 nov 2023
Per estrarre i dati contenuti dagli oggetti presenti sulle linguette di una TabStrip, si potrà seguire in grandi linee il codice esemplificativo che segue.
Poniamo come esempio un Form sul quale inseriamo un Button ed una TabStrip formato da 3 schede (o linguette). Ciascuna scheda conterrà una TextLabel ed una TextArea. Alla proprietà .Text di tali TextLabel e TextArea sarà assegnato un valore stringa.
Lo scopo dell'intero codice è di leggere i dati stringa presenti nella proprietà .Text delle TextLabel e TextArea presente in ciascuna linguetta.
Public Sub Form_Open() Dim b As Byte Dim tl As TextLabel Dim ta As TextArea ' Attribuiamo 3 schede all'oggetto "TabStrip": TabStrip1.Count = 3 For b = 0 To TabStrip1.Count - 1 ' Individua la scheda sulla quale si va ad operare: TabStrip1.Index = b ' Crea una "TextLabel" nella scheda attualmente considerata: With tl = New TextLabel(TabStrip1) .X = 10 .Y = 10 .W = 100 .H = 50 .Text = "tl_" & CStr(b) End With ' Crea una "TextArea" nella scheda attualmente considerata: With ta = New TextArea(TabStrip1) .X = 10 .Y = 60 .W = 100 .H = 50 .Text = "ta_" & CStr(b) End With Next ' Impostiamo la scheda di indice 0 (ossia la prima) come attiva: TabStrip1.Index = 0 End Public Sub Button1_Click() Dim ob As Object Dim b As Byte ' Prendiamo in considerazione il numero totale delle schede presenti nella "TabStrip": For b = 0 To TabStrip1.Count - 1 ' Per "ogni" oggetto in qualità di "figlio" presente nella corrente scheda.... For Each ob In TabStrip1[b].Children ' ...andiamo a leggere il contenuto della proprietà ".Text" (...che abbiamo precedentemente assegnato come esempio): Print ob.Text Next Print Next End