Differenze tra le versioni di "Eliminare una scheda da una TabStrip"

Da Gambas-it.org - Wikipedia.
 
(8 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Per eliminare una scheda (o linguetta) da una ''TabStrip'', è sufficiente utilizzare il metodo ".Delete" della scheda individuata, purché tale scheda <SPAN Style="text-decoration:underline">sia priva di oggetti su di essa</span>.
+
Per eliminare una scheda (o linguetta) da una ''TabStrip'', è sufficiente utilizzare il Metodo ".Delete" della scheda individuata, purché tale scheda <SPAN Style="text-decoration:underline">sia priva di Oggetti grafici su di essa</span>.
 +
<BR>Bisogna tenere conto anche che <SPAN Style="text-decoration:underline">non</span> è possibile eliminare tutte le schede da una ''TabStrip'', non essendo possibile l'esistenza di una ''TabStrip'' senza schede.
  
−
 
+
====Esempio pratico====
−
In questo esempio supponiamo di avere una "TabStrip" con un certo numero di schede contenenti (tutte o alcune) anche eventualmente alcuni oggetti grafici.  
+
Supponiamo di avere una ''TabStrip'' con un certo numero di schede contenenti (tutte o alcune) anche eventualmente alcuni Oggetti grafici.  
−
<BR>Si provvederà a ripulire ciascuna scheda attiva della "TabStrip" dagli eventuali oggetti grafici, su di esse  presenti, e successivamente la scheda medesima.
+
<BR>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()
+
  Public Sub Button1_Click()
 
   
 
   
 
   Dim ob As Object
 
   Dim ob As Object
Riga 13: Riga 14:
 
   Next
 
   Next
 
   
 
   
−
  <Font Color=gray>' ''Viene dunque con sicurezza eliminata dalla "TabStrip" la scheda corrente attiva.''
+
  <Font Color=gray>' ''Se vi è più di una scheda attiva, la scheda corrente viene eliminata dalla "TabStrip":''</font>
−
' ''Resterà soltanto l'ultima scheda, non essendo possibile l'esistenza di una "TabStrip" senza schede.''</font>
+
   If TabStrip1.Count > 1 Then TabStrip1[TabStrip1.Index].Delete
−
   If TabStrip1[TabStrip1.Index] > 0 Then TabStrip1[TabStrip1.Index].Delete
+
<Font Color=gray>' ''oppure anche: '''''If TabStrip1.Count > 1 Then TabStrip1.Current.Delete'''</font>
 
   
 
   
−
  '''End'''
+
  End
−
 
+
Se si vogliono eliminare con un ciclo le schede, lasciando - ad esempio - la sola prima scheda conservandone anche gli eventuali Controlli su di essa presenti:
−
Se si vogliono eliminare con un ciclo le schede (tenendo comunque conto che si dovrà lasciare attiva una scheda, non essendo possibile l'esistenza di una "TabStrip" senza schede):
+
  Public Sub Button1_Click()
−
  '''Public''' Sub Button1_Click()
 
 
    
 
    
 
   Dim ob As Object
 
   Dim ob As Object
 
    
 
    
−
   Do
+
   TabStrip1.Index = TabStrip1.Count - 1
−
     For Each child In TabStrip1[TabStrip1.Index].Children
+
 +
  While TabStrip1.Index > 0  <Font Color=gray>' ''Se c'è un'altra scheda oltre la prima, si accede al ciclo per eliminarla''</font>
 +
     For Each ob In TabStrip1[TabStrip1.Index].Children
 
  <Font Color=gray>' ''Elimina gli eventuali oggetti grafici presenti sulla scheda corrente:''</font>
 
  <Font Color=gray>' ''Elimina gli eventuali oggetti grafici presenti sulla scheda corrente:''</font>
 
       ob.Delete
 
       ob.Delete
 
     Next
 
     Next
−
<Font Color=gray>' ''Se si è giunti alla prima scheda (dunque all'unica ormai presente), si esce dal ciclo:''</font>
+
  <Font Color=gray>' ''Elimina quindi la scheda corrente:''</font>
−
    If TabStrip1.Index == 0 Then Exit
 
−
  <Font Color=gray>' ''Elimina la scheda corrente:''</font>
 
 
     TabStrip1[TabStrip1.Index].Delete
 
     TabStrip1[TabStrip1.Index].Delete
−
   Loop
+
<Font Color=gray>' ''oppure anche: '''''TabStrip1.Current.Delete'''</font>
 +
   Wend
 
    
 
    
−
  '''End'''
+
  End

Versione attuale delle 05:40, 3 ago 2023

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
' oppure anche: If TabStrip1.Count > 1 Then TabStrip1.Current.Delete

End

Se si vogliono eliminare con un ciclo le schede, lasciando - ad esempio - la sola prima scheda conservandone anche gli eventuali Controlli su di essa presenti: 

Public Sub Button1_Click()
 
 Dim ob As Object
 
 TabStrip1.Index = TabStrip1.Count - 1

 While TabStrip1.Index > 0  ' Se c'è un'altra scheda oltre la prima, si accede al ciclo per eliminarla
   For Each ob In TabStrip1[TabStrip1.Index].Children
' Elimina gli eventuali oggetti grafici presenti sulla scheda corrente:
     ob.Delete
   Next
' Elimina quindi la scheda corrente:
   TabStrip1[TabStrip1.Index].Delete
' oppure anche: TabStrip1.Current.Delete
 Wend
 
End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Eliminare_una_scheda_da_una_TabStrip&oldid=34652"