利用传入的泛型建立并回传泛型清单（List(Of T)）

Posted 2022-10-24 petewell

利用传入的泛型建立并回传泛型清单（List(Of T)）

Dotblogs 的标签：VB.Net ,随手记

今天请 Member 练习把 DataTable 转成 List，而且要做属性<->字段的对应，结果 member 搞了半天，跟我说遇到问题，他不知道要怎么建立泛型清单，结果我明明记得应该是 CreateInstance 方法，但却怎样都想不起该怎么做 ><。搞半天终于找到以前写的 Sample Code，所以还是赶快笔记下来，不然下次又要找半天……

Module Module1

    Sub Main()
        Dim PersonList = ToGenericList(New Person())
        PersonList.Item(0).Name = "XYZ"
        PersonList.Item(1).Name = "Leo"
        For Each p In PersonList
            Console.WriteLine(p.Name)
        Next

        Console.ReadLine()
    End Sub

    Public Function ToGenericList(Of T)(ByVal entity As T) As List(Of T)
        Dim GenericList As New List(Of T)
        Dim p1 As T = CType(Activator.CreateInstance(GetType(T)), T)
        GenericList.Add(p1)
        Dim p2 As T = CType(Activator.CreateInstance(GetType(T)), T)
        GenericList.Add(p2)

        Return GenericList
    End Function

End Module

Public Class Person
    Public Name As String
    Public Age As Integer
End Class

程序重点就是：用 Activator.CreateInstance 就行啦！

----------------

91 大提醒了更好的写法，用泛型条件约束的方式，就不用特别再 New 一个对象当参数，大感谢~~ 程序修正如下：

Module Module1

    Sub Main()
        Dim PersonList = ToGenericList(Of Person)()
        PersonList(0).Name = "XYZ"
        PersonList(1).Name = "Leo"
        For Each p In PersonList
            Console.WriteLine(p.Name)
        Next

        Console.ReadLine()
    End Sub

    Public Function ToGenericList(Of T As New)() As IEnumerable(Of T)
        Dim GenericList As New List(Of T)
        GenericList.Add(New T)
        GenericList.Add(New T)

        Return GenericList
    End Function

End Module

Public Class Person
    Public Name As String
    Public Age As Integer
End Class

--------
没什么特别的~
不过是一些笔记而已

原文:大专栏  利用传入的泛型建立并回传泛型清单（List(Of T)）