|
Class DemoData(Of T As New)
Function Item() As Object
Return New T
End Function
Function Items() As IList
Dim list As New List(Of T)
For i = 1 To 10
list.Add(New T)
Next
Return list
End Function
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
I enjoy my wife, living in the woods, my 7 dogs, and learning new things. I like to play with UI stuff and model based coding.