Una fra diverse soluzioni può essere la seguente:
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
Della Classe ''Object'' puoi anche utilizzare similmente il metodo ''.Class'':
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
Volendo, ci sarebbe anche questa piccola variante con il metodo .SetProperty() della Classe Object: :-X
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