آموزشی يکتا سازي آيتم هاي بار شده در combobox

[Ali Parsaei]

بوسيله کد زير مي توان آيتم هاي تکراري بارگيري شده در يک combobox را حذف نمود.
ازآنجايي که شماره سطرهاي combobox ها از 0 شروع مي شود و ضمنا" با توجه به اينکه پس از حذف يک آيتم تکراري، شماره سطرهاي بقيه آيتم ها تغيير يافته و جابجا مي گردد، لذا نوشتن کدهايي از اين قبيل کمي به دقت نياز دارد:

Dim C As Integer
Dim D As Integer
For C = 0 To ComboBox1.ListCount - 2
D = C + 1
Do While D < ComboBox1.ListCount
If ComboBox1.List(C, 0) = ComboBox1.List(D, 0) Then
ComboBox1.RemoveItem (D)
D = D - 1
End If
D = D + 1
Loop
Next C 

[Amir Ghasemiyan]

با تشکر از جناب پارسایی عزیز
جهت تکمیل تاپیک یک روش دیگه هم خدمت دوستان ارائه میکنم
در این روش از متغیر collection استفاده شده. در لیست های طولانی میتونه یکم سریعتر از کد پست قبل عمل بکنه

Dim col As New Collection
On Error Resume Next
For Each lst In ComboBox1.List
    col.Add lst, CStr(lst)
Next lst
ComboBox1.RowSource = ""
For Each a In col
   ComboBox1.AddItem a
Next a