VB.NET 为什么要这样声明这个子例程？

Question

VB.NET 2010，.NET 4

我有一个基本问题：我在网上找到了一个子例程，如此声明：

Public Sub MyFunction(Of T As Control)(ByVal Control As T, ByVal Action As Action(Of T)) ...

我想知道声明的 (Of T As Control) 部分潜艇的名字。我看到 T 稍后用于指定 Control 的类型和 Action(Of T) 中，但为什么这样做而不是仅仅这样做：

Public Sub MyFunction(ByVal Control As Control, ByVal Action As Action(Of Control)) ...

子名称后面的部分是什么意思？它的目的是什么？非常感谢，并对我的无知感到抱歉。

Answer 1

这是 VB.NET 的 通用方法 声明语法：

泛型类型是单一编程
适应执行的元素
不同的功能具有相同的功能
数据类型。当你定义一个泛型时
类或过程，你不必
为每个定义一个单独的版本
您可能想要的数据类型
执行该功能。

打个比方，螺丝刀套装带有
可拆卸的头部。你检查螺丝
您需要转动并选择
该螺钉的正确头（开槽，
划线、加星号）。一旦您插入
螺丝刀头正确
处理，你执行完全相同的操作
与螺丝刀的功能，即
转动螺丝。

Answer 2

(Of T) 是泛型类型参数，添加 As Control 会约束 T 的类型从 Control 继承。您可以用第二种方式编写该方法，但最终可能必须将 Control 强制转换为任何继承的类型（在 Action 中的 lambda 表达式中或在 MyFunction 主体中）。泛型可以让你避免这种情况。

例如：

Sub Main()
    Dim form As New Form()

    Dim textBox As New TextBox
    Dim listBox As New ListBox

    MyFunction(textBox, Sub(c) c.Text = "Hello")
    MyFunction(listBox, Sub(c) c.Items.Add("Hello"))

    MyFunction2(textBox, Sub(c) c.Text = "Hello")
    MyFunction2(listBox, Sub(c) CType(c, ListBox).Items.Add("Hello"))


End Sub

Public Sub MyFunction(Of T As Control)(ByVal Control As T, ByVal Action As Action(Of T))
    Action(Control)
End Sub

Public Sub MyFunction2(ByVal Control As Control, ByVal Action As Action(Of Control))
    Action(Control)
End Sub

在简单的情况下它看起来不太有价值，但对于更复杂的情况来说它的价值是无价的。

Answer 3

正如其他人所说，它是一个受约束的通用参数。但还没有人回答你问题的这一部分：

为什么要这样做

答案就在行动中。如果它只是声明为 Control，您将无法执行类似的操作，因为并非所有控件都有 .Text 属性^*：

MyFunction(MyTextBox, Function(t) t.Text = "new value" )

函数的主体只需要知道它是处理某种类型的控件，但传递给函数的 Action(Of T) 可能想知道控件的实际类型。

_{是的，所有控件都有 .Text 属性。让我们假装有些人没有这样做}