匿名类型 (Visual Basic)

项目
02/21/2013

Visual Basic 支持匿名类型，使您能够在不为数据类型编写类定义的情况下创建对象。此时，编译器将为您生成类。该类没有可用的名称，是直接从 Object 继承的，它包含在声明对象时指定的属性。由于未指定数据类型的名称，因此将它称为“匿名类型”。

下面的示例声明并创建变量 product，作为具有两个属性（Name 和 Price）的匿名类型的实例。

' Variable product is an instance of a simple anonymous type.
Dim product = New With {Key .Name = "paperclips", .Price = 1.29}

查询表达式使用匿名类型将查询所选择的数据列组合在一起。由于不能预测特定查询可能选择的列，因此不能提前定义结果的类型。使用匿名类型可以编写以任何顺序选择任意个列的查询。编译器创建与指定属性和指定顺序匹配的数据类型。

在下面的示例中，products 是产品对象列表，其中每个对象都有多个属性。变量 namePriceQuery 保存查询的定义，该查询在执行时，返回具有两个属性（Name 和 Price）的匿名类型的实例集合。

Dim namePriceQuery = From prod In products
                     Select prod.Name, prod.Price

变量 nameQuantityQuery 保存查询的定义，该查询在执行时，返回具有两个属性（Name 和 OnHand）的匿名类型的实例集合。

Dim nameQuantityQuery = From prod In products
                        Select prod.Name, prod.OnHand

有关编译器为匿名类型创建的代码的更多信息，请参见匿名类型定义 (Visual Basic)。

警告
匿名类型的名称由编译器生成，并可能随编译的不同而不同。代码不应使用或依赖匿名类型的名称，因为重新编译项目时该名称可能更改。

声明匿名类型

匿名类型实例的声明使用初始值设定项列表来指定类型的属性。在声明匿名类型时可以只指定属性，而不指定方法或事件等其他类元素。在下面的示例中，product1 是具有两个属性（Name 和 Price）的匿名类型的实例。

' Variable product1 is an instance of a simple anonymous type.
Dim product1 = New With {.Name = "paperclips", .Price = 1.29}
' -or-
' product2 is an instance of an anonymous type with key properties.
Dim product2 = New With {Key .Name = "paperclips", Key .Price = 1.29}

如果将属性指定为主要属性，则可以使用它们来比较两个匿名类型实例是否相等。不过，主要属性的值是不能更改的。有关更多信息，请参见本主题后面的“主要属性”一节。

请注意，声明匿名类型的实例与使用对象初始值设定项声明命名类型的实例相似。

' Variable product3 is an instance of a class named Product.
Dim product3 = New Product With {.Name = "paperclips", .Price = 1.29}

有关指定匿名类型属性的其他方式的更多信息，请参见如何：推断匿名类型声明中的属性名和类型 (Visual Basic)。

主要属性

主要属性与非主要属性在多个重要方面存在差别：

只在确定两个实例是否相等时才比较主要属性的值。
主要属性的值是只读的，不能更改。
对于匿名类型，编译器生成的哈希代码算法中只包含主要属性值。

相等

匿名类型的实例仅当是相同匿名类型的实例时才相等。如果两个实例满足下面的条件，则编译器将它们视为相同类型的实例：

在相同的程序集中声明。
其属性具有相同的名称、相同的推断类型并且以相同顺序声明。名称比较不区分大小写。
每个实例的相同属性都标记为主要属性。
每个声明中至少有一个属性是主要属性。

没有主要属性的匿名类型的实例只等于它自身。

' prod1 and prod2 have no key values.
Dim prod1 = New With {.Name = "paperclips", .Price = 1.29}
Dim prod2 = New With {.Name = "paperclips", .Price = 1.29}

' The following line displays False, because prod1 and prod2 have no
' key properties.
Console.WriteLine(prod1.Equals(prod2))

' The following statement displays True because prod1 is equal to itself.
Console.WriteLine(prod1.Equals(prod1))

相同匿名类型的两个实例在其主要属性的值相等时相等。下面的示例演示如何测试是否相等。

Dim prod3 = New With {Key .Name = "paperclips", Key .Price = 1.29}
Dim prod4 = New With {Key .Name = "paperclips", Key .Price = 1.29}
' The following line displays True, because prod3 and prod4 are
' instances of the same anonymous type, and the values of their
' key properties are equal.
Console.WriteLine(prod3.Equals(prod4))

Dim prod5 = New With {Key .Name = "paperclips", Key .Price = 1.29}
Dim prod6 = New With {Key .Name = "paperclips", Key .Price = 1.29,
                      .OnHand = 423}
' The following line displays False, because prod5 and prod6 do not 
' have the same properties.
Console.WriteLine(prod5.Equals(prod6))

Dim prod7 = New With {Key .Name = "paperclips", Key .Price = 1.29,
                      .OnHand = 24}
Dim prod8 = New With {Key .Name = "paperclips", Key .Price = 1.29,
                      .OnHand = 423}
' The following line displays True, because prod7 and prod8 are
' instances of the same anonymous type, and the values of their
' key properties are equal. The equality check does not compare the
' values of the non-key field.
Console.WriteLine(prod7.Equals(prod8))

只读值

主要属性的值是不能更改的。例如，在前面示例的 prod8 中，Name 和 Price 为 read-only 字段，但 OnHand 是可以更改的。

        ' The following statement will not compile, because Name is a key
        ' property and its value cannot be changed.
        ' prod8.Name = "clamps"

        ' OnHand is not a Key property. Its value can be changed.
        prod8.OnHand = 22

查询表达式中的匿名类型

查询表达式并不总是要求创建匿名类型。只要可能，它们就使用现有类型来保存列数据。当查询返回数据源的全部记录，或只返回每条记录的一个字段时，会出现这种情况。在下面的代码示例中，customers 是 Customer 类的对象的集合。该类有很多属性，在查询结果中，可以以任意顺序包含一个或多个属性。在最开始的两个示例中，不需要匿名类型，因为查询选择命名类型的元素。

custs1 包含字符串集合，因为 cust.Name 是字符串。

Dim custs1 = From cust In customers
             Select cust.Name

custs2 包含 Customer 对象的集合，因为 customers 的每个元素都是 Customer 对象，并且整个元素都由查询选择。
```
Dim custs2 = From cust In customers
             Select cust
```

但是，相应的命名类型并非始终可用。出于特定目的，可能希望执行以下操作：一，选择客户的名称和地址；二，选择客户 ID 号和位置；三，选择客户的名称、地址和订单历史。使用匿名类型可以选择任意顺序的属性组合，而无需事先声明新的命名类型来保存结果。相反，编译器会为每次属性编译创建匿名类型。下面的查询从 customers 中的每个 Customer 对象中只选择客户的名称和 ID 号。因此，编译器会创建仅包含这两个属性的匿名类型。

Dim custs3 = From cust In customers
             Select cust.Name, cust.ID

匿名类型的属性的名称和数据类型都取自 Select 的参数 cust.Name 和 cust.ID。查询所创建的匿名类型的属性始终是主要属性。在下面的 For Each 循环中执行 custs3 时，结果是具有两个主要属性（Name 和 ID）的匿名类型的实例集合。

For Each selectedCust In custs3
    Console.WriteLine(selectedCust.ID & ": " & selectedCust.Name)
Next

custs3 所表示的集合中的元素是强类型的，可以使用 IntelliSense 浏览可用属性和确认其类型。

有关更多信息，请参见 Visual Basic 中的 LINQ 简介。

确定是否使用匿名类型

在创建匿名类实例形式的对象之前，请考虑匿名类型是否为最佳选择。例如，如果要创建临时对象来包含相关数据，也不需要完整类可能包含的其他字段和方法，匿名类型就是很好的解决方案。如果每个声明都需要不同的属性选择，或者要更改属性顺序，则适于使用匿名类型。但是，如果项目以固定顺序包括多个具有相同属性的对象，则使用具有类构造函数的命名类型来声明它们可能更为方便。例如，使用相应的构造函数，声明 Product 类的多个实例比声明匿名类型的多个实例更方便。

' Declaring instances of a named type.
Dim firstProd1 As New Product("paperclips", 1.29)
Dim secondProd1 As New Product("desklamp", 28.99)
Dim thirdProd1 As New Product("stapler", 5.09)

' Declaring instances of an anonymous type.
Dim firstProd2 = New With {Key .Name = "paperclips", Key .Price = 1.29}
Dim secondProd2 = New With {Key .Name = "desklamp", Key .Price = 28.99}
Dim thirdProd2 = New With {Key .Name = "stapler", Key .Price = 5.09}

命名类型的另一优点是编译器可以捕获属性名称的无意拼写错误。在前面的示例中，firstProd2、secondProd2 和 thirdProd2 应为相同匿名类型的实例。但是，如果使用下面的一种方式意外地声明了 thirdProd2，其类型将不同于 firstProd2 和 secondProd2 的类型。

' Dim thirdProd2 = New With {Key .Nmae = "stapler", Key .Price = 5.09}
' Dim thirdProd2 = New With {Key .Name = "stapler", Key .Price = "5.09"}
' Dim thirdProd2 = New With {Key .Name = "stapler", .Price = 5.09}

更重要的是，对于未应用于命名类型实例的匿名类型，在使用上会有很多限制。firstProd2、secondProd2 和 thirdProd2 是具有相同匿名类型的实例。但是，共享匿名类型的名称不可用，不能在代码中出现在需要使用类型名称的位置。例如，匿名类型不能用来定义方法签名，不能用来声明其他变量或字段，也不能用在任何类型声明中。因此，如果必须在方法间共享信息，则不适合使用匿名类型。

匿名类型定义

在响应匿名类型的实例声明时，编译器创建一个包含指定属性的新类定义。

如果匿名类型至少包含一个主要属性，则定义将重写三个从 Object 继承的成员：Equals、GetHashCode 和 ToString。生成来测试相等性和确定哈希代码值的代码仅考虑主要属性。如果匿名类型不包含主要属性，则仅重写 ToString。匿名类型的显式命名属性不能与这些生成的方法冲突。也就是说，不能使用 .Equals、.GetHashCode 或 .ToString 来命名属性。

此外，至少具有一个主要属性的匿名类型定义还实现 System.IEquatable<T> 接口，其中 T 是匿名类型的类型。

有关编译器所创建的代码和重写方法的功能的更多信息，请参见匿名类型定义 (Visual Basic)。

请参见

通过