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
Selasa, 11 November 2008
KUMPULAN SOURCE CODE PROGRAM DARI VISUAL BASIC 6.0 Semua program yang diposting disini sudah teruji baik program untuk TA maupun untuk perusahaan
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
Blogger by Main Blogger for Daily Updates Free Blogger Templates