حذف آیتم های تکراری Spinner

[مجید آرتا 5,874]

سلام

امیدوارم خوب و خوش باشید.

یکی از دوستان توی این مورد درخواستی رو داده بودن که قصد دارن با کلیک کردن روی دکمه ای آیتم های تکراری Spinner  پاک بشه

بنده هم الگوریتمشو نوشتم و فقط یک مورد کوچیک پیش اومد که با یک کلک رشتی حلش کردم :دی

توی الگوریتم نحوه کار به شکلی هستش که آیتم اول با تمامی آیتم ها مورد مقایسه و سپس با بر قرار بودن شرط عملیات مورد نظر رو انجام میده.

Sub deleteItemSpinner
Dim superIndex , subIndex  As Int
superIndex = 0 : subIndex = 0
Dim target As String
Do While(superIndex < spn.Size - 1)
 target = spn.GetItem(superIndex)
 Do While(subIndex < spn.Size - 1)
 	If (superIndex <> subIndex) AND (target = spn.GetItem(subIndex)) Then
	   spn.RemoveAt(superIndex)
 	End If
	  subIndex = subIndex + 1
 Loop
 subIndex = 0
 superIndex = superIndex + 1
Loop
End Sub

به وسیله 2 تا متغییر عددی اندیس اسپینر رو کنترل می کنیم تا بتونیم تمامی حالات مورد مقایسه قرار بگیرن

 

موردی و یا مشکلی بود بنده در خدمتم.

 

رمز فایل : answercenter.ir

 

موفق و مؤید باشید.