Eliminare una scheda da una TabStrip
Da Gambas-it.org - Wikipedia.
Versione del 3 ago 2023 alle 05:25 di Vuott (Discussione | contributi)
Per eliminare una scheda (o linguetta) da una TabStrip, è sufficiente utilizzare il Metodo ".Delete" della scheda individuata, purché tale scheda sia priva di Oggetti grafici su di essa.
Bisogna tenere conto anche che non è possibile eliminare tutte le schede da una TabStrip, non essendo possibile l'esistenza di una TabStrip senza schede.
Esempio pratico
Supponiamo di avere una TabStrip con un certo numero di schede contenenti (tutte o alcune) anche eventualmente alcuni Oggetti grafici.
Si provvederà a ripulire ciascuna scheda attiva della TabStrip dagli eventuali Oggetti grafici, su di esse presenti, e successivamente la scheda medesima.
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 ' Se vi è più di una scheda attiva, la scheda corrente viene eliminata dalla "TabStrip": If TabStrip1.Count > 1 Then TabStrip1[TabStrip1.Index].Delete End
Se si vogliono eliminare con un ciclo le schede, lasciando - ad esempio - la sola prima scheda:
Public Sub Button1_Click() Dim ob As Object Do For Each ob In TabStrip1[TabStrip1.Index].Children ' Elimina gli eventuali oggetti grafici presenti sulla scheda corrente: ob.Delete Next ' Se si è giunti alla prima scheda (dunque all'unica ormai presente), si esce dal ciclo: If TabStrip1.Index == 0 Then Exit ' Elimina la scheda corrente: TabStrip1[TabStrip1.Index].Delete Loop End