mahdyeh
شنبه 14 شهریور 1388, 15:09 عصر
سلام
میخوام با زدن یک کامند بگم که هر چی ابزار داخل فرم دارم مثل تکست لیبل هر چی که دارم رو
متنش رو 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 و انگار تکست ام رو تشخیص نمیده که هست
چکار میتونم کنم
میخوام با زدن یک کامند بگم که هر چی ابزار داخل فرم دارم مثل تکست لیبل هر چی که دارم رو
متنش رو 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 و انگار تکست ام رو تشخیص نمیده که هست
چکار میتونم کنم