Удалить повторяющиеся элементы

Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal sParam As String) As Long
Const LB_FINDSTRINGEXACT = &H1A2

Private Sub Command1_Click()
For X = 0 To List1.ListCount - 1
For Y = 0 To List1.ListCount - 1
ListPos = SendMessageByString(List1.hWnd, LB_FINDSTRINGEXACT, 0, List1.List(X))
If ListPos <> X And ListPos <> -1 Then List1.RemoveItem ListPos
Next Y
Next X
End Sub

Private Sub Form_Load()
List1.AddItem "2"
List1.AddItem "2"
List1.AddItem "3"
List1.AddItem "1"
List1.AddItem "4"
List1.AddItem "5"
List1.AddItem "1"
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Удалить повторяющиеся элементы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!