ROSTAM2
دوشنبه 25 فروردین 1393, 21:38 عصر
تابع تغییر خصوصیت Enabled از چندین شیء بهمراه تعیین کلاس آنها
Sub EnableChange(Of T)(ByVal Bool As Boolean, ByVal ParamArray Ctls() As T)
For Each Ctl As Object In Ctls
Ctl.Enabled = Bool
Next
End Sub
Sub EnableChange(Of T)(ByVal Bool As Boolean, ByVal ParamArray Ctls() As T)
For Each Ctl As Object In Ctls
Ctl.Enabled = Bool
Next
End Sub