我可以在VB.NET中實現IEnumerable函數的yield return嗎？

Question

可能重複：
Yield In VB.NET

在C＃中，編寫返回IEnumerble<>一個功能時，您可以使用yield return返回枚舉的單個項目和yield break;表示沒有剩餘項目。什麼是做同樣的事情的VB.NET語法？

從NerdDinner代碼的示例：

public IEnumerable<RuleViolation> GetRuleViolations() { 

    if (String.IsNullOrEmpty(Title)) 
     yield return new RuleViolation("Title required","Title"); 

    if (String.IsNullOrEmpty(Description)) 
     yield return new RuleViolation("Description required","Description"); 

    if (String.IsNullOrEmpty(HostedBy)) 
     yield return new RuleViolation("HostedBy required", "HostedBy"); 

    if (String.IsNullOrEmpty(Address)) 
     yield return new RuleViolation("Address required", "Address"); 

    if (String.IsNullOrEmpty(Country)) 
     yield return new RuleViolation("Country required", "Country"); 

    if (String.IsNullOrEmpty(ContactPhone)) 
     yield return new RuleViolation("Phone# required", "ContactPhone"); 

    if (!PhoneValidator.IsValidNumber(ContactPhone, Country)) 
     yield return new RuleViolation("Phone# does not match country", "ContactPhone"); 

    yield break; 
} 

這convert C# to VB.NET tool給出了一個 「YieldStatement是不受支持的」 錯誤。

Answer 1

目前還沒有等同於從語言的語法水平在VB.Net C＃的收益率回報。

然而有在MSDN雜誌最近寫了由比爾·麥卡錫如何在VB.Net 9.0

• http://visualstudiomagazine.com/articles/2009/02/01/use-iterators-in-vb-now.aspx

實施了類似的模式10

Answer 2

在VB.NET沒有屈服回報:( 只需創建一個列表，並返回它。

Answer 3

見我的答案在這裏：

• Yield in VB.NET
• Iterator pattern in VB.NET (C# would use yield!)

總結：
VB.Net沒有屈服，而是用C＃代碼轉換成一個狀態機實現產量幕後。 VB.Net的Static關鍵字還允許你在一個函數中存儲狀態，所以理論上你應該能夠實現一個類，允許你在用作方法的Static成員時編寫類似的代碼。

Answer 4

在幕後，編譯器創建一個枚舉類來完成這項工作。因爲VB.NET沒有實現這種模式，你必須創建自己的實現了IEnumerator（Of T）已

Answer 5

列出了輸出：2，4，8，16，32

在VB中，

Public Shared Function setofNumbers() As Integer() 

    Dim counter As Integer = 0 
    Dim results As New List(Of Integer) 
    Dim result As Integer = 1 
    While counter < 5 
     result = result * 2 
     results.Add(result) 
     counter += 1 
    End While 
    Return results.ToArray() 
End Function 

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
    For Each i As Integer In setofNumbers() 
     MessageBox.Show(i) 
    Next 
End Sub 

在C＃

private void Form1_Load(object sender, EventArgs e) 
    { 
     foreach (int i in setofNumbers()) 
     { 
      MessageBox.Show(i.ToString()); 
     } 
    } 

    public static IEnumerable<int> setofNumbers() 
    { 
     int counter=0; 
     //List<int> results = new List<int>(); 
     int result=1; 
     while (counter < 5) 
     { 
      result = result * 2; 
      counter += 1; 
      yield return result; 
     } 
    } 

Answer 6

新Async CTP包括用於VB.NET Yield支持。

有關使用情況的信息，請參閱Iterators in Visual Basic。