Question

我不知道为什么我会收到此错误。这是我的代码。

        Dim openshells As New OpenFileDialog
    openshells.Title = "Find your Shells"
    openshells.ShowDialog()
    Try
        Dim abc As String = My.Computer.FileSystem.ReadAllText(openshells.FileName)
        Dim pqr As String() = abc.Split(vbNewLine)

        shells.items.AddRange(pqr)
    Catch ex As Exception
    End Try
    FlatStatusBar1.Text = shells.items.Count
End Sub

VB.net。我得到错误'AddRange'不是这个shells.items.AddRange（pqr）的'System.Array'的成员认为你可以帮忙！？

“shells”是一个列表框BTW。

Answer 1

这是你的解决方案：

 Dim openshells As New OpenFileDialog
    openshells.Title = "Find your Shells"
    openshells.ShowDialog()
    Try
        Dim abc As String = My.Computer.FileSystem.ReadAllText(openshells.FileName)
        Dim pqr() As String
        pqr = abc.Split(vbNewLine)

        shells.items.AddRange(pqr)
    Catch ex As Exception
    End Try
    FlatStatusBar1.Text = shells.items.Count
End Sub

Answer 2

只做一个foreach循环：

For Each item As String In pqr
    shells.items.add(item)
Next

Answer 3

如果shell确实是ListBox，那么你的代码应该可行。但是，如果它是ListView，那么您的代码确实会出错。在这种情况下，这样的事情应该有效：

    shells.Items.AddRange((From s In pqr
                              Let item = New ListViewItem(s)
                              Select item).ToArray)

另一种可能性是，你有另一个名为shells.items的对象，它是一个数组。

错误：'AddRange'不是'System.Array'的成员

3 个答案: