主题：ListView做的文件件管理器怎么排序

代码如下：

   r("文件") = "暂时没有文件"
Else
    Dim dics As new SortedDictionary(Of String, String)
    For Each dl As String In dls
        Dim Parts() As String = dl.Split("*")
        dics.Add(Parts(1) & dl, dl)
    Next
    Dim arr(dics.keys.count-1) As String
    dics.keys.copyto(arr,0)
    For i As Integer = arr.length - 1 To 0 Step -1
        Dim dl As String = dics(arr(i))
        Dim Parts() As String = dl.Split("*")
    Next
    For Each dl As String In dics.values
       
        Dim Parts() As String = dl.Split("*")
        Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行

 

排序没变：

 

 

此主题相关图片如下：snipaste_2020-08-25_12-34-59.jpg

代码如下：

   r("文件") = "暂时没有文件"
Else
    Dim dics As new SortedDictionary(Of String, String)
    For Each dl As String In dls
        Dim Parts() As String = dl.Split("*")
        dics.Add(Parts(1) & dl, dl)
    Next
    Dim arr(dics.keys.count-1) As String
    dics.keys.copyto(arr,0)
    For i As Integer = arr.length - 1 To 0 Step -1
        Dim dl As String = dics(arr(i))
        Dim Parts() As String = dl.Split("*")
        Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行