泛型学习：泛型在数据类型转换上的应用

前日帮忙解决一个数据类型转换问题，第一次用到了泛型，在帮助别人的同时学习了技术，感触颇深，摘录代码如下：

 

Imports  System.Collections.Generic
Public   Class Form1 Class Form1

    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim cc As New MyType(Of Double)
        Dim dd As Double()
        'dd的数据类型必须符合cc的泛型类型
        dd = cc.GetNewList("123.123,234,345,456", ",")
        For Each ee As Double In dd
            Console.WriteLine(ee)
        Next
    End Sub

End Class

Public   Class MyType Class MyType(Of T)
    Private Function ConvertTo()Function ConvertTo(ByVal input As String) As T
        Return CType(DirectCast(input, Object), T)
    End Function

    Public Function GetNewList()Function GetNewList(ByVal strList As String, ByVal separator As String) As T()
        Dim pList() As String = strList.Split(separator)
        Dim result As T() = Array.ConvertAll(pList, New Converter(Of String, T)(AddressOf ConvertTo))
        Return result
    End Function
End Class