Differenze tra le versioni di "Eliminare una scheda da una TabStrip"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per eliminare una scheda (o linguetta) da una ''TabStrip'', è sufficiente utilizzare il metodo ''.Delete'' della scheda individuata, purché tale scheda sia priva di oggetti ...') |
|||
| Riga 13: | Riga 13: | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
| − | <Font Color=gray>' ''Viene eliminata dalla "TabStrip" la scheda corrente attiva:''</font> | + | Dim ob As Object |
| − | + | ||
| + | <Font Color=gray>' ''Viene eliminato dalla scheda attiva corrente ogni eventuale oggetto ivi presente:''</font> | ||
| + | For Each ob In TabStrip1[TabStrip1.Index].Children | ||
| + | ob.Delete | ||
| + | Next | ||
| + | |||
| + | <Font Color=gray>' ''Viene dunque con sicurezza eliminata dalla "TabStrip" la scheda corrente attiva:''</font> | ||
| + | TabStrip1[TabStrip1.Index].Delete | ||
'''End''' | '''End''' | ||
Versione delle 09:45, 13 apr 2015
Per eliminare una scheda (o linguetta) da una TabStrip, è sufficiente utilizzare il metodo .Delete della scheda individuata, purché tale scheda sia priva di oggetti posti su di essa.
Esempio:
Public Sub Form_Open()
' Imposta una "TabStrip" con 5 schede:
TabStrip1.Count = 5
End
Public Sub Button1_Click()
Dim ob As Object
' Viene eliminato dalla scheda attiva corrente ogni eventuale oggetto ivi presente:
For Each ob In TabStrip1[TabStrip1.Index].Children
ob.Delete
Next
' Viene dunque con sicurezza eliminata dalla "TabStrip" la scheda corrente attiva:
TabStrip1[TabStrip1.Index].Delete
End
