Advertisement
ASP_Volume3 Miscellaneous #54343

A-1 Bye-Bye ListBox Duplicates

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

AI

Riepilogo 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.

Codice sorgente
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
Commenti originali (3)
Recuperato da Wayback Machine