Question

即使使用sorted = true属性，我也无法按照预期的方式对列表框进行排序。假设我有这样命名的文件，当我在Windows文件夹视图（在vb之外）按“名称”排序时，它的排序方式如下：

这就是我需要它在我的列表中排序的方式。但是，使用sorted = true属性，vb.net决定按这样排序：

我无法理解为什么Windows会正确排序列表，但VB却没有。任何帮助都将非常感激。

Answer 1

*此示例假定列表框中的每个对象都是整数的字符串表示形式，如果不是，则跳过该项，您可以修改此项以便以其他方式处理此类情况想....

例如：

Option Strict On
Option Explicit On
Option Infer Off
Public Class Form1
    Dim r As New Random(Now.Millisecond)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'We simulated a populated listbox
        For I As Integer = 0 To 1000
            Dim n As Integer = r.Next(0, Integer.MaxValue)
            ListBox1.Items.Add(n.ToString)
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        SortListBoxNumbers(ListBox1)
    End Sub
    Sub SortListBoxNumbers(listbox As ListBox)
        Dim numbers As New List(Of Integer)
        For Each item As Object In listbox.Items
            Dim n As Integer = 0
            If item.GetType = GetType(String) Then
                If Integer.TryParse(DirectCast(item, String), n) Then
                    numbers.Add(n)
                End If
            End If
        Next
        listbox.Items.Clear()
        numbers = SortNumbers(numbers)
        For Each n As Integer In numbers
            listbox.Items.Add(n.ToString)
        Next
    End Sub
    Function SortNumbers(numbers As List(Of Integer)) As List(Of Integer)
        Dim result As New List(Of Integer)
        Dim count As Integer = numbers.Count
        Do
            Dim highN As Integer = Integer.MinValue
            For Each n As Integer In numbers
                If n > highN Then highN = n
            Next
            numbers.Remove(highN)
            result.Insert(result.Count, highN)
        Loop Until result.Count = count
        result.Reverse()
        Return result
    End Function
End Class

列表框排序问题

1 个答案: