我如何从函数返回arraylist？

Question

我从msdn学习了一个示例,用arraylist填充一个列表框控件. http://msdn.microsoft.com/en-us/library/1818w7we(v=VS.100).aspx

我想创建一个函数,它将返回USStates arraylist并使用返回的值作为listbox1的数据源

    Dim USStates As New ArrayList()
    USStates.Add(New USState("Alabama", "AL"))
    USStates.Add(New USState("Washington", "WA"))
    USStates.Add(New USState("West Virginia", "WV"))
    USStates.Add(New USState("Wisconsin", "WI"))
    USStates.Add(New USState("Wyoming", "WY"))
    ListBox1.DataSource = USStates

    ListBox1.DisplayMember = "LongName"
    ListBox1.ValueMember = "ShortName

我尝试创建一个像这样的函数:

Public Shared Function FillList() As ArrayList()
    Dim USStates As New ArrayList()
    USStates.Add(New USState("Alabama", "AL"))
    USStates.Add(New USState("Washington", "WA"))
    USStates.Add(New USState("West Virginia", "WV"))
    USStates.Add(New USState("Wisconsin", "WI"))
    USStates.Add(New USState("Wyoming", "WY"))
    return usstates
end function

但它说错误:'System.Collections.ArrayList'类型的值无法转换为'System.Collections.ArrayList'的1维数组.

Answer 1

确保函数的返回类型是正确的(只是ArrayList,不ArrayList()首先意味着你正在返回的.ArrayList,第二,你是返回一个数组的ArrayList:

Public Shared Function FillList() As ArrayList
    Dim USStates As New ArrayList()
    USStates.Add(New USState("Alabama", "AL"))
    USStates.Add(New USState("Washington", "WA"))
    USStates.Add(New USState("West Virginia", "WV"))
    USStates.Add(New USState("Wisconsin", "WI"))
    USStates.Add(New USState("Wyoming", "WY"))
    return usstates
end function