あなたは、単にこれを呼び出すことができます上の任意の種類リストの:
Module Module1
<System.Runtime.CompilerServices.Extension()> _
Public Function ToObject(Of T)(ByVal aList As List(Of T)) As List(Of Object)
Dim res As List(Of Object)
Try
If aList IsNot Nothing Then
res = aList.Select(Function(f) CType(f, Object)).ToList
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return res
End Function
End Module
今、あなたは任意のリストの中でそれを見ることができます:
Dim iL As New List(Of Integer)
Dim ObjiL = iL.ToObject
Dim sL As New List(Of String)
Dim ObjsL = sL.ToObject
...
あなたはそれをする必要はありません、 '.Cast(Of Object)'は同じものですが短いです。 – Ryan
+1、@minitech、はい、それは本当ですが、私は拡張機能についてジョンの目を開き、新しい答えのアイデアを作りたい –