在VB中,泛型編程可以通過定義泛型類、泛型接口和泛型方法來實(shí)現(xiàn)。
Public Class GenericClass(Of T)
Private _value As T
Public Sub New(value As T)
_value = value
End Sub
Public Function GetValue() As T
Return _value
End Function
End Class
Public Interface IGenericInterface(Of T)
Function GetValue() As T
End Interface
Public Sub PrintValue(Of T)(value As T)
Console.WriteLine(value)
End Sub
使用泛型類、泛型接口和泛型方法時,可以通過指定具體的類型參數(shù)來實(shí)例化類、實(shí)現(xiàn)接口或調(diào)用方法,例如:
Dim intClass As New GenericClass(Of Integer)(10)
Console.WriteLine(intClass.GetValue())
Dim strClass As New GenericClass(Of String)("Hello")
Console.WriteLine(strClass.GetValue())
Dim intList As New List(Of Integer)()
intList.Add(1)
intList.Add(2)
Dim doubleList As New List(Of Double)()
doubleList.Add(1.5)
doubleList.Add(2.5)
Dim genericList As New List(Of T)()
genericList.AddRange(intList)
genericList.AddRange(doubleList)