[vb6] pulire i campi text

[xegallo]

Originariamente inviato da Giulio C.

Public Sub CancellaCampi()     ' Cancellazione del contenuto dei campi
   Dim Campo As Control  
   On Error Resume Next
   For Each Campo In Controls
      Campo.Text = Space(0)         ' Proprietà Text
   Next
End Sub

E' importante la riga "On error..." perché intercetta e salta eventuali errori generati da controlli che non

è meglio usare typeof che il resume next perchè in quel modo ti perdi gli errori e rischi di cancellare anche controlli che non centrano

Public Sub CancellaCampi()     ' Cancellazione del contenuto dei campi
   Dim Campo As Control  
   
   For Each Campo In Controls
      If TypeOf Campo Is TextBox
         Campo.Text = Space(0)         ' Proprietà Text
      end if
   Next
End Sub