vb.net - 如何使 VB.NET 函数的参数作为泛型类型？

Question

我有一个 VB.NET 函数，如下所示，传递给该函数的参数“x”的类型为“Single”。但是，我想编写函数以便它可以接受任何数字类型，例如“单”、“双”和“整数”。我知道这样做的一种方法是编写 3 个具有相同名称的函数，但这会很乏味。任何人都可以提出任何想法吗？谢谢你。

Public Function Square(x As Single) As Single
  Return x * x
End Function

Answer 1

试试下面的方法

Public Function Square(Of T)(ByVal x As Object) As T
    Dim b As Object = Val(x) * Val(x)
    Return CType(b, T)
End Function

您可以像这样使用上述功能

Dim p As Integer = Square(Of Integer)(10)
Dim d As Double = Square(Of Double)(1.5)