Advertisement
6_2008-2009 Miscellaneous #204676

A-1 Bye-Bye ListBox Duplicates

For Beginners. Get rid of unwanted listbox duplicates in a few very simple lines of code.

AI

ИИ-обзор: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Исходный код
original-source
Dim j As Integer
 j = 0
  
Do While j < List1.ListCount
 
 List1.Text = List1.List(j)
  
 If List1.ListIndex <> j Then
  List1.RemoveItem j
 Else
  j = j + 1
 End If
  
Loop
  
End Sub
Оригинальные комментарии (3)
Восстановлено из Wayback Machine