تشخیص نوع ابزار استفاده شده در فرم

[mahdyeh]

سلام
میخوام با زدن یک کامند بگم که هر چی ابزار داخل فرم دارم مثل تکست لیبل هر چی که دارم رو
متنش رو text اش رو قرار بده "Error"
ولی نمیشه
من داخل کلاس مثلا فقط برای تکست م مینویسم :


Public Shared Function ClearForm(ByVal frmName As Object)
Dim Ctrl As Control

For Each Ctrl In frmName
If TypeOf Ctrl Is TextBox Then
Ctrl.Text = "Error"
End If
Next
End Function

و از داخل فرم صدا می زنم :


Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Call ClearForm(Me)
End Sub

ولی اجرا نمیشه ، من داخل فرم ام تکست هم دارم ولی زمان اجرای برنامه
از If TypeOf Ctrl Is TextBox Then میپره به End If و انگار تکست ام رو تشخیص نمیده که هست
چکار میتونم کنم

[anooshiran]

سلام دوست عزيز

با تغيير كدت به شكل زير مشكل حل ميشود




Public Shared Function ClearForm(ByVal FormName As Object)
On Error Resume Next
Dim Ctrl As Control
For Each Ctrl In FormName
If Ctrl.GetType.Name = "TextBox" Then
Ctrl.Text = ""
End If
Next
End Function

[mahdyeh]

مرسی
این کد رو جایگذین کردم
حالا داخل if اجرا میشه ولی باز تکست هام رو خالی نمیکنه چرا ؟ یا Error رو توش قرار نمیده ؟

[anooshiran]

سلام دوست عزيز

از كد زير استفاده كن


Public Shared Function ClearForm(ByVal FormName As Object)
On Error Resume Next
Dim Ctrl As Control
For Each Ctrl In FormName.Controls
If TypeOf Ctrl Is TextBox Then
Ctrl.Text = "Error"
End If
Next

End Function

[mahdyeh]

بله حل شد anooshiran (http://www.barnamenevis.org/forum/member.php?u=54421)
ممنون