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.
Riga 7: | Riga 7: | ||
Dim ob As Object | Dim ob As Object | ||
− | For Each | + | For Each ob In Me'''.Controls''' |
If Object.Type(ob) = "TextBox" Then ob.Text = Null | If Object.Type(ob) = "TextBox" Then ob.Text = Null | ||
Next | Next | ||
End | 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