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 -...") |
|||
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 bt In Me'''.Controls''' | ||
+ | If Object.Type(ob) = "TextBox" Then ob.Text = Null | ||
+ | Next | ||
+ | |||
+ | End |
Versione delle 13:00, 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 bt In Me.Controls If Object.Type(ob) = "TextBox" Then ob.Text = Null Next End