在VB中,泛型编程可以通过定义泛型类、泛型接口和泛型方法来实现。
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
使用泛型类、泛型接口和泛型方法时,可以通过指定具体的类型参数来实例化类、实现接口或调用方法,例如:
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)