Как я могу отсортировать массив структуры?

Question

У меня есть массив структуры. Он объявлен как этот

Public SongsList as New List(Of Song) 

«Песня» это имя структуры. Он имеет 2 переменные: путь и имя; Мне интересно, как я могу отсортировать этот массив по имени.

Public Structure Song 
    Public Path as String 
    Public Name as String 
End Structure 

Я попробовал этот

ListBox1.Items.Clear() 
Dim sorted = SongsList.OrderBy(Function(s) s.Name).ToList 
Dim i As Integer 
For i = 0 To sorted.Count - 1 
    ListBox1.Items.Add(sorted(i).Name.ToString) 
Next 

Но это бросает NullReferenceException.

Это, как я добавляю детали к SongsList

Dim open As New OpenFileDialog 
open.Title = "Add songs" 
open.Filter = "MP3 Files(*.mp3)|*.mp3" 
open.Multiselect = True 
ListBox1.Items.Clear() 
If open.ShowDialog = DialogResult.OK Then 
    For Each SelectedSong As String In open.FileNames 
     i += 1 
     Dim songToAdd As New Song 
     songToAdd.Path = SelectedSong.ToString 
     songToAdd.Name = GetSafeFileName(SelectedSong.ToString) 
     SongsList.Add(songToAdd) 
     ListBox1.Items.Add(SongsList(i).Path) 
    Next 
End If 

Answer 1

Вы можете использовать лямбда-выражения. Он использует поле, которое вы выбираете в функции OrderBy. Позволяет переопределить метод ToString, чтобы сообщить Listbox, что отображать, тогда вы можете просто установить список в качестве источника данных.

Класс:

Public Class Song 
    Public Property Path as String 
    Public Property Name as String 
    Public Overrides Function ToString() As String 
    Return Me.Path 
    End If 
End Class 

Использование:

Dim open As New OpenFileDialog 
open.Title = "Add songs" 
open.Filter = "MP3 Files(*.mp3)|*.mp3" 
open.Multiselect = True 
If open.ShowDialog = DialogResult.OK Then 
    For Each SelectedSong As String In open.FileNames 
    Dim songToAdd As New Song 
    songToAdd.Path = SelectedSong 
    songToAdd.Name = GetSafeFileName(SelectedSong.ToString) 
    SongsList.Add(songToAdd) 
    Next 
End If 
Listbox1.DataSource = SongsList.OrderBy(Function(s) s.Name).ToList 

Answer 2

* Очень похоже на ответ OneFineDay в ...

Вам не нужен пользовательский класс, просто использовать List(Of FileInfo):

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim open As New OpenFileDialog 
    open.Title = "Add songs" 
    open.Filter = "MP3 Files(*.mp3)|*.mp3" 
    open.Multiselect = True 
    If open.ShowDialog = DialogResult.OK Then 
     ListBox1.DataSource = Nothing 
     Dim songs As New List(Of FileInfo) 
     For Each SelectedSong As String In open.FileNames 
      songs.Add(New FileInfo(SelectedSong)) 
     Next 
     songs = songs.OrderBy(Function(fi) fi.Name).ToList 
     ListBox1.DataSource = songs 
     ListBox1.DisplayMember = "Name" 
     ListBox1.ValueMember = "FullName" 
    End If 
End Sub 

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    If ListBox1.SelectedIndex <> -1 Then 
     Dim fi As FileInfo = DirectCast(ListBox1.SelectedItem, FileInfo) 
     Dim name As String = fi.Name 
     Dim fullPath As String = fi.FullName 
     Debug.Print("name = " & name) 
     Debug.Print("fullPath = " & fullPath) 
    End If 
End Sub