Pages

Banner 468

Selasa, 11 November 2008

Membersihkan TextBox secara cepat di visual basic

 

Public Sub ClearTextBoxes(frmClearMe As Form)
Dim txt As Control
For Each txt In frmClearMe
If TypeOf txt Is TextBox Then txt.Text = ""
Next
End Sub

Untuk penggunaan dapat dilakukan sbb:

ClearTextBoxes Form1