Cancellare il contenuto di tutti i text box automaticamente

• Howto

Questa subroutine consente di cancellare il contenuto di tutti i text box presenti nella finestra specificata.
La subroutine ClearAllTextboxes può essere richiamata, ad esempio, dall’evento Click di un pulsante (command button).
Alla proprietà Caption di tale pulsante si potrebbe assegnare, per esempio, il valore Pulisci tutti i campi.

Utilizzo:

Call ClearAllTextBoxes(nomedelform)

Abbiate cura di sostituire a nomedelform il nome del form cui si fa riferimento.

Call ClearAllTextBoxes(Me)

permetterà invece di cancellare il contenuto di tutti i text box presenti nel form corrente.

Il codice Visual Basic

Sub ClearAllTextBoxes(frmTarget As Form)
    Dim i, ctrltarget

    For i = 0 To (frmTarget.Controls.Count – 1)
        Set ctrltarget = frmTarget.Controls(i)

        If TypeOf ctrltarget Is textBox Then
            ctrltarget.Text = “”
        End If
    Next i
End Sub