خالی کردن مقادیر ابزارها

[mahdyeh]

سلام
با چه کدی میتونم بگم هر چی ابزار دارم مثلا از نوع تکست باکس >> تکستش رو خالی کن
می خوام اینرو توی یک کلاسی یا ماژولی بنویسم و از فرم صداش کنم
هر چی می کنم ن م یــــــــــــــــــــــــ ـی تو نم
:ناراحت:

[salam333]

textbox1.text=string.empty

[mahdyeh]

نه نه نـــــــــــــــــه اینجوری نه
یه تابع کع پارامتری رو بگیره و مقدارش رو خالی کنه
مثلا بگه هرچی کنترل در فرم دارم اگر ازنوع ِ تکست هست پی تکستش رو خالی کن
اگر چک بار هست تیکشو وردار
اگه ...

[mahdyeh]

پیداییــــــدم :لبخندساده:



Public Sub ClearFrm(ByVal root As Control)
For Each ctrl As Control In root.Controls
ClearFrm(ctrl)
'_____
If TypeOf ctrl Is TextBox Then
CType(ctrl, TextBox).Text = String.Empty
End If
'_____
If TypeOf ctrl Is ComboBox Then
CType(ctrl, ComboBox).Text = String.Empty
End If
'_____
If TypeOf ctrl Is RadioButton Then
CType(ctrl, RadioButton).Checked = False
End If
'_____
If TypeOf ctrl Is CheckBox Then
CType(ctrl, CheckBox).Checked = False
End If
'_____
If TypeOf ctrl Is Label Then
CType(ctrl, Label).Text = String.Empty
End If
'_____
If TypeOf ctrl Is DataGridView Then
CType(ctrl, DataGridView).RowCount = 0
End If
'_____
Next ctrl
End Sub