1.取消了連接符
（1）","之后
（2）"()"前后
（3）"{}"前后
（4）XML
（5）連接字符"&"后
（6）賦值符號"=","&=",":=","+=","-=","*=","/=","\=","^=","<<=",">>="后
（7）式內の二項演算子"+","-","/","*","Mod","<>","<",">","<=",">=","^",">>","<<","And","AndAlso","Or","OrElse","Like","Xor",后
（8）Is,IsNot后
（9）成員修飾符"."后
（10）XML的關鍵字".",".@","...",后
（11）屬性標記的前后
（12）查詢關鍵字的前后
（13）For Each的In關鍵字后
（14）集合的From關鍵字后

2.自動執行屬性 - 為getter和setter省略的屬性

Private _name As String Public Property Name() As String Get Return _name End Get Set(ByVal value As String) _name = value End Set End PropertyPublic Property Name As String

3.初始化數組，使用From{元素}方式給集合對象賦初始值

Dim statuses As New Dictionary(Of Integer, String)statuses.Add(1, "申請") statuses.Add(2, "科長確認") statuses.Add(3, "部長確認") statuses.Add(50, "已確認") statuses.Add(80, "返回") statuses.Add(99, "否決")Dim statuses As New Dictionary(Of Integer, String) From { {1, "申請"}, {2, "科長確認"}, {3, "部長確認"}, {50, "已確認"}, {80, "返回"}, {99, "否決"} }' 定義 Public Class OS Public Property Version As Single Public Property Name As String End Class……省略……' 變量的定義 Dim oses As New List(Of OS) From { New OS With {.Name = "Windows XP", .Version = 5.1}, New OS With {.Name = "Windows Vista", .Version = 6}, New OS With {.Name = "Windows 7", .Version = 6.1} }

?

4.定義多行Lambda表達式

Dim r = 20.0 Dim pi = Function(birthday As Date) If birthday.Year > 1990 AndAlsobirthday.Year < 2000 Then Return 3 Else Return 3.14 End If End Function Console.WriteLine(pi(Date.Today) * r * r)

?

5.協變性和逆變性
協變性（協方差）意味著你可以為一個參數，一個子類型或繼承自已定義類型的某些事物使用更多的派生類型，
逆變性意味著只能使用更少的類型，
因為.NET中的一切都派生自對象，因此你可以使用對象替換一個參數。

' 人 Public Class Person Public Property Name As String Public Property Age As Integer End Class' 員共 - 繼承于人 Public Class Employee Inherits Person End Class' 顧客 - 繼承于人 Public Class Customer Inherits Person End Class' 協變性的例子，將員工(Employee)的實例賦值于人(Person) Dim sato As New Employee With {.Name = "劉英", .Age=32} Dim man As Person = sato

?

Class Pet Public Name As String End ClassClass NameCompare Implements IComparer(Of Pet) ' ... End ClassClass Dog Inherits Pet End ClassClass Cat Inherits Pet End ClassModule Module1 Sub Main() Dim DogNames As New SortedList(Of Dog, Object)(New NameCompare) Dim CatNames As New SortedList(Of Cat, Object)(New NameCompare) End Sub End Module' 逆變性的例子， 'VB2008中，需要傳遞IComparer(Of Dog)或IComparer(Of Cat)，利用逆變性傳遞IComparer(Of Pet)就可以

?

6.動態對象

' 無需定義直接讀取MaxRetry屬性的值 <?xml version="1.0" encoding="utf-8" ?> <configuration> <appSettings> <add key="MaxRetry" value ="10" /> </appSettings> </configuration>Dim appSettings As Object = New SettingManager() Console.WriteLine(appSettings.MaxRetry)' 繼承DynamicObject，重寫TryGetMember方法 Public Class SettingManager Inherits DynamicObject' Get訪問屬性 Public Overrides Function TryGetMember(ByVal binder As System.Dynamic.GetMemberBinder, ByRef result As Object) As Boolean result = System.Configuration.ConfigurationManager.AppSettings(binder.Name) Return True End Function End Class' 可以動態執行屬性或方法 Dim user As Object = New ExpandoObjectuser.Name = "趙鵬" user.Show = Sub() Console.WriteLine(user.Name) End Sub user.Show.Invoke() CType(user, IDictionary(Of String, Object)).Remove("Name")

?

?

總結

以上是生活随笔為你收集整理的VB2010新特性的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。