Function(Of T) as T 泛型类型多态返回对象的实现

    Shared Function ResultT(Of T As result)(msg As String, Optional success As Boolean = False) As T
        Dim rsp As Models.result.result = GetType(T).Assembly.CreateInstance(GetType(T).FullName)
        rsp.msg = msg
        rsp.success = success
        Return rsp
    End Function

　

result为基类