17-10-12, 05:01 PM
كاتب الموضوع : AhmedEssawy
كود :
Dim count As Integer = myArrayList.Count
Dim i As Integer = 0
Do While (i < count)
Dim item As myArrayListItem = CType(myArrayList(i),myArrayListItem)
If (myArrayListItem.MyPropery > someValue) Then
myArrayList.RemoveAt(i)
count = (count - 1)
Else
i = (i + 1)
End If
Loop