Differenze tra le versioni di "Cancellare il testo presente in uno o più Controlli di testo posti su una TabPanel"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Poniamo il caso in cui una ''TabPanel'' è costituita da quattro tabelle, ciascuna delle quali contiene un ''TextBox'' con un testo al suo interno. <BR>Si intende cancellare -...") |
|||
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| Riga 2: | Riga 2: | ||
<BR>Si intende cancellare - ad esempio cliccando un ''Button'' - il testo di ciascun ''TextBox'' presente nelle quattro tabelle della ''TabPanel''. | <BR>Si intende cancellare - ad esempio cliccando un ''Button'' - il testo di ciascun ''TextBox'' presente nelle quattro tabelle della ''TabPanel''. | ||
| − | + | Gli Oggetti ''TextBox'' potranno essere individuati mediante la Proprietà ".Controls" di ''Me''. | |
| + | Public Sub Button1_Click() | ||
| + | |||
| + | Dim ob As Object | ||
| + | |||
| + | For Each ob In Me'''.Controls''' | ||
| + | If Object.Type(ob) = "TextBox" Then ob.Text = Null | ||
| + | Next | ||
| + | |||
| + | End | ||
Versione attuale delle 13:01, 19 mag 2024
Poniamo il caso in cui una TabPanel è costituita da quattro tabelle, ciascuna delle quali contiene un TextBox con un testo al suo interno.
Si intende cancellare - ad esempio cliccando un Button - il testo di ciascun TextBox presente nelle quattro tabelle della TabPanel.
Gli Oggetti TextBox potranno essere individuati mediante la Proprietà ".Controls" di Me.
Public Sub Button1_Click() Dim ob As Object For Each ob In Me.Controls If Object.Type(ob) = "TextBox" Then ob.Text = Null Next End
