[Risolto] Pulizia ValueBox

[Steeler]

Ciao, c'è modo di pulire più ValueBox insieme? Quindi ottenere 0 su tutte quelle presenti nel form ?  

grazie

[vuott]

Una fra diverse soluzioni può essere la seguente:

Codice: gambas [Seleziona]

Public Sub Form_Open()

  ValueBox1.Value = 99
  ValueBox2.Value = 999
  ValueBox3.Value = 9999

End


Public Sub Button1_Click()

  Dim ob As Object

 ' Per ogni oggetto "figlio" del Form principale...
  For Each ob In FMain.Children
 '...se esso è di tipo "ValueBox", allora imposta la sua proprietà ".Value" a zero:
    If Object.Type(ob) = "ValueBox" Then ob.Value = 0
  Next

End

[Steeler]

Perfect 

[vuott]

Della Classe ''Object'' puoi anche utilizzare similmente il metodo ''.Class'':

Codice: gambas [Seleziona]

    Public Sub Form_Open()  
      
     ValueBox1.Value = 99  
     ValueBox2.Value = 999  
     ValueBox3.Value = 9999  
      
    End  
      
      
    Public Sub Button1_Click()  
      
     Dim ob As Object  
      
    ' Per ogni oggetto "figlio" del Form principale...  
     For Each ob In FMain.Children  
    '...se il nome della sua Classe è "ValueBox", allora imposta la sua proprietà ".Value" a zero:  
       If Object.Class(ob).Name = "ValueBox" Then ob.Value = 0  
     Next  
      
    End  

[Top Fuel]

Ciò forse potrebbe risolvermi un piccolo problema che ho in un progetto. Vedremo.

[Steeler]

vuott è vuott  

[Top Fuel]

Infatti ha funzionato.
Vuott è Vuott.

[Steeler]

+1 

[vuott]

Vuott è un asino !

[vuott]

Volendo, ci sarebbe anche questa piccola variante con il metodo .SetProperty() della Classe Object:   

Codice: gambas [Seleziona]

    Public Sub Form_Open()  
      
     ValueBox1.Value = 99  
     ValueBox2.Value = 999  
     ValueBox3.Value = 9999  
      
    End  
      
      
    Public Sub Button1_Click()  
      
     Dim ob As Object  
      
    ' Per ogni oggetto "figlio" del Form principale...  
     For Each ob In FMain.Children  
    '...se il nome della sua Classe è "ValueBox", allora imposta la sua proprietà "Value" a zero:  
       If Object.Class(ob).Name = "ValueBox" Then Object.SetProperty(ob, "Value", 0)
     Next  
      
    End