حذف کنترل های خاص

[Purya Fallah]

سلام .
من توی فرمم یه سری کنترل دارم که همشون از نوع lbl هستن .
با کد زیر اقدام به پاک کردن یکباره همشون میکنم اما تقریبا نصف اونا حذف میشن !
Dim i As Integer = 0

Do Until i = Controls.Count

If TypeOf Me.Controls(i) Is lbl Then
Me.Controls(i).Dispose()
End If
i += 1

Loop

[محمد آشتیانی]

سلام
دوست من اینجوری بنویس


Dim ctrlList As New List(Of Label)
For Each ct As Object In Me.Controls
If TypeOf ct Is Label Then
ctrlList.Add(DirectCast(ct, Label))
End If
Next
For i = 0 To ctrlList.Count - 1
ctrlList.Item(i).Dispose()
Next




موفق باشید

[Saman_12]

باید به صورت بازگشتی بنویسشی که همه کنترل ها (حتی اونایی که تو پنل و.. هستن) رو چک کنه.