VB.net Массив, выбрасывающий исключение

Question

Следующий саб бросает

"Ссылка на объект не установлена ​​для экземпляра объекта."

исключение.

For Each element As Song In modFiles.getSongs()
    Dim col(2) As String
    Dim item As ListViewItem
    col(0) = element.SongTitle
    col(1) = element.PlayTime
    col(2) = element.SongFilename
    item = New ListViewItem(col)
    setList.Items.Add(item)
Next

Исключение выдается в строках

col(0) = element.SongTitle
col(1) = element.PlayTime
col(2) = element.SongFilename

Любая помощь будет оценена

Answer 1

Ваше объявление массива в порядке.

Ваш For Each итератор где-то возвращает нулевой объект. Оберните нулевой тест вокруг тела цикла.

For Each element As Song In modFiles.getSongs()
    If element IsNot Nothing Then
        Dim col(2) As String
        Dim item As ListViewItem
        col(0) = element.SongTitle
        col(1) = element.PlayTime
        col(2) = element.SongFilename
        item = New ListViewItem(col)
        setList.Items.Add(item)
    End If
Next

Answer 2

Вы забыли один элемент в вашем массиве

Dim col(3) As String