Bazen bir form üzerindeki tüm textboxları temizlemek zorunda kalırsınız. İşte aşağıda bunu yapmak için kullanacağınız kod.


Sub ClearAllTextBoxes(frmTarget As Form)
For i = 0 To (frmTarget.Controls.Count - 1)
    Set ctrlTarget = frmTarget.Controls(i)
    'If it's a textbox, clear it
    If TypeOf ctrlTarget Is TextBox Then
        ctrlTarget.Text = ""
    End If
Next i
End Sub

Aşağıdaki kodu da örneğin bir komut butonunun Click olayına yerleştirerek textboxları temizleyebilirsiniz.

ClearAllTextBoxes FormName

V.BASIC

Sayfayı Yazdır | Pencereyi Kapat