如何在 VB.NET 中定义具有命名字段的元组

Question

我试图让一个函数返回一个带有命名字段的 ValueTuple，而不是“Item1”、“Item2”等。

查看文档我有以下功能：

Public Function MyFunction() as (Success as Boolean, Results as Boolean)
    Return (True, False)
end Function

Dim test = MyFunction()

If test.Success Then
    'Do something with test.Result
End If

这可以编译，但如果我在 if 语句上放置断点并查看“test”，它会将其字段显示为“Item1”和“Item2”。它还在运行时抛出以下异常：

System.MissingMemberException: 'Public member 'Success' on type 'ValueTuple(Of Boolean,Boolean)' not found.'

此外，该文档仅适用于“Option Strict Off”，但我们在代码中将其打开，并且代码无法在 Option Strict On 的情况下进行编译。

启用 Option Strict On 后，我尝试了以下操作：

Dim test as ValueTuple(Of Success as Boolean, Results as Boolean) = MyFunction()

但是，它在“成功”时给出编译时错误，表示未定义。

我的语法有错误吗？在设置 Option Strict On 时，如何定义一个变量用作具有命名字段的函数的输出？

如果相关，我的项目位于 .NET 4.6.1 中，但我已使用 NuGet 包管理器添加了 ValueTuple 包。

Answer 1

您的问题中有一些令人困惑的事情，但大多数都很容易弄清楚。

元组提供与 .NET 框架中的匿名类型类似的功能，但它们的实现方式不同，我认为这种差异在这里引起了混乱。

让我们看一下这段代码：

Dim x = (Success := True, Results := False)

Dim y = New With {.Success = True, .Results = False}

第一个是元组，第二个是匿名类型。

它们都可以以类似的方式使用：

Console.WriteLine(x.Success)
Console.WriteLine(y.Success)

Console.WriteLine(x.Results)
Console.WriteLine(y.Results)

但在幕后，它们的构造不同。

这是反编译的相同代码（与 C# 一样，因为这是我的工具生成的所有代码）：

(bool, bool) valueTuple = (true, false);
VB$AnonymousType_0<bool, bool> vB$AnonymousType_ = new VB$AnonymousType_0<bool, bool>(Success: true, Results: false);
Console.WriteLine(valueTuple.Item1);
Console.WriteLine(vB$AnonymousType_.Success);
Console.WriteLine(valueTuple.Item2);
Console.WriteLine(vB$AnonymousType_.Results);

请注意，元组具有属性

Item1

和

Item2

（实际上它们是字段），但匿名类型具有属性

Success

和

Results

。

命名元组字段只是编译器的伎俩！反映类型不会返回源中使用的名称。

匿名类型确实会创建具有来自源的可反射名称的属性的对象。

试试这个：

Console.WriteLine(String.Join(", ", x.GetType().GetFields().Select(Function(z) z.Name)))
Console.WriteLine(String.Join(", ", y.GetType().GetProperties().Select(Function(z) z.Name)))

我得到：

项目1、项目2
成功、结果

元组方法允许我这样写：

Dim w As (Apple As Boolean, Banana As Boolean) = x

Console.WriteLine(w.Apple)
Console.WriteLine(w.Banana)

您不能使用匿名类型来做到这一点。

在您的问题中，您说您在运行代码时遇到运行时错误。我的电脑上看不到这个。您的第一批代码运行良好。