Kayıt işlemi sonrası alanları sıfırlama
Dataları kaydet işleminden sonra onlarca kontrolü sıfırlamak için tek tek textbox.text=”" yazmıyorsunuzdur umarım 
Projelerde kullandığım küçük kod parçacağını paylaşayım dedim.
Private Sub EmptyTextBoxValues(ByVal parent As Control)
For Each c As Control In parent.Controls
If (c.Controls.Count > 0) Then
EmptyTextBoxValues(c)
Else
If TypeOf c Is TextBox Then
CType(c, TextBox).Text = “”
ElseIf TypeOf c Is DateTimePicker Then
CType(c, DateTimePicker).Text = Date.Today
ElseIf TypeOf c Is ComboBox Then
CType(c, ComboBox).Text = “”
cbYil.Text = Date.Now.Year
End If
End If
Next
End Sub
Private Sub Bosalt(ByVal parent As Control)
For Each c As Control In parent.Controls
If (c.Controls.Count > 0) Then
Bosalt(c)
Else
If TypeOf c Is TextBox Then
CType(c, TextBox).Text = “”
ElseIf TypeOf c Is DateTimePicker Then
CType(c, DateTimePicker).Text = Date.Today
ElseIf TypeOf c Is ComboBox Then
CType(c, ComboBox).Text = “”
End If
End If
Next
End Sub
Kullandığınız kontrole göre ElseIf TypeOf c Is KontrolAdi Then şeklinde düzenleyebilirsiniz.
Merhaba Çok kullanılşı bir metod paylaşmıssın ama benim gibi acemiler bu kodu nereye yazacağını ve nereden nasıl çağıracağını bilmeyebilir
Örneğin Button1 in içerisinden nasıl çağırabiliriz bu kodu =?