정렬 순서 목록 상자

Question

목록 상자를 알파벳순으로 정렬하려고하는이 코드가 있습니다.

그러나 두 개 이상의 항목을 정렬하려고하면 검색이 중단됩니다.

목록 상자에는 숫자 값 ID와 텍스트 항목이 있습니다.

Sub sortListBoxItems(ByRef box As ListBox) 
    'sorts listbox 
    Dim listarray As New ArrayList() 
    Dim loopitem As Integer 
    For loopitem = 0 To box.Items.Count - 1 
     listarray.Add(box.Items(loopitem)) 
    Next 

    listarray.Sort() 
    box.Items.Clear() 

    For loopitem = 0 To listarray.Count - 1 
     box.Items.Add(listarray(loopitem)) 
    Next 
End Sub 

더 똑똑한 방법이 있습니까?

Answer 1

두 가지 다른 유형의 개체를 목록에 추가하고 다른 형식을 비교하지 못하는 기본 방법을 사용하여 정렬하려고하면 문제가 발생합니다 서로의 물체를 예를 들어 :

Dim list As New ArrayList() 
list.Add("Two") 
list.Add(1) 
list.Sort() ' Throws an InvalidOperationException ("Failed to compare two elements in the array.") 

그러나, 당신은 예를 들어, 여러 유형을 처리 할 자신 IComparer 클래스를 구현할 수 있습니다

Public Class MyComparer 
    Implements IComparer 

    Public Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare 
     Return x.ToString().CompareTo(y.ToString()) 
    End Function 
End Class 

그런 다음 목록을 정렬 할 수 있습니다, 다음과 같이 :

을

Dim list As New ArrayList() 
list.Add("Two") 
list.Add(1) 
list.Sort(New MyComparer()) ' Works! 

Answer 2

ListBox는 자동으로 정렬 될 수 있습니다. 디자인 타임에 Sorted 속성을 사용하십시오. Sorted=True'