Tüm TextBox'lar Temizlensin

Jester

Reality Army
S.Moderator
Katılım
23 Kas 2019
Mesajlar
488
Tepkime puanı
56
Puanları
28
Konum
Kanada
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
 

1Jeff

💠 Developer & Coder 💠
Ultra Üye
Katılım
20 Eki 2019
Mesajlar
808
Tepkime puanı
402
Puanları
63
Konum
Paris
Üst Alt