Ali Parsaei
2017/11/23, 21:37
بوسيله کد زير مي توان آيتم هاي تکراري بارگيري شده در يک 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
ازآنجايي که شماره سطرهاي 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