".DistinctBy（）はすべてのコードパスで値を返しません"警告

Question

最近特定のObjectプロパティに基づいてリストから個別の値を取得する方法が必要でした（この場合、aタイムスタンプはDateTimeの形式です）。ちょっとしたグーグルの後、私はSOスレッドに出くわしました。そこには、DistinctBy（）という拡張機能があり、コレクションを繰り返し処理し、異なるプロパティ値を持つアイテムを返します。コードは以下の通りです。

<Extension()> _ 
    Public Function DistinctBy(Of TSource, TKey)(source As IEnumerable(Of TSource), keySelector As Func(Of TSource, TKey)) As IEnumerable(Of TSource) 
     Dim seenKeys As New HashSet(Of TKey)() 
     For Each element As TSource In source 
      If seenKeys.Add(keySelector(element)) Then 
       Return CType(element, Global.System.Collections.Generic.IEnumerable(Of TSource)) 
      End If 
     Next 
    End Function 

コードはもともとC＃で作成されていましたが、コードコンバータを使用してVisual Basicに変更しました。つまり、VS2013では、関数がすべてのコードパスで値を返さないという警告が表示されています。私は、エラーが何を意味しているのか、また通常の状況ではどのように修正するのかを認識しています。しかし、これを検討する方法がわからないのは、IEnumerableオブジェクトを返す関数です。私はIEnumerable関数の仕組みに慣れていませんし、関数が動作するかどうかもわかりません！

誰でもこの状況を明確にすることはできますか？

Answer 1

original code含まれるステート・マシンになるので、それはまたあなたのためのVB.Netで利用可能であるべきです。その間にVB.NET supports it。 LINQの有名な遅延実行です。

<Extension()> _ 
Public Iterator Function DistinctBy(Of TSource, TKey)(source As IEnumerable(Of TSource), keySelector As Func(Of TSource, TKey)) As IEnumerable(Of TSource) 
    Dim seenKeys As New HashSet(Of TKey)() 
    For Each element As TSource In source 
     If seenKeys.Add(keySelector(element)) Then 
      Yield element 
     End If 
    Next 
End Function 

あなたがYieldを知らないの.NETバージョンをサポートしなければならなかった場合は、一度にすべてのアイテムを返します。このアプローチを使用することができますが：

<Extension()> _ 
Public Function DistinctBy(Of TSource, TKey)(source As IEnumerable(Of TSource), keySelector As Func(Of TSource, TKey)) As IEnumerable(Of TSource) 
    Dim seenKeys As New HashSet(Of TKey)() 
    Dim list = new List(Of TSource) 
    For Each element As TSource In source 
     If seenKeys.Add(keySelector(element)) 
      list.Add(element) 
     End If 
    Next 
    return list 
End Function 

Answer 2

初期C＃コードで（おそらく）イテレータメソッド（yieldを使用）でした。
正しい変換がyieldキーワードと

<Extension()> _ 
Public Iterator Function DistinctBy(Of TSource, TKey)(source As IEnumerable(Of TSource), keySelector As Func(Of TSource, TKey)) As IEnumerable(Of TSource) 
    Dim seenKeys As New HashSet(Of TKey)() 
    For Each element As TSource In source 
     If seenKeys.Add(keySelector(element)) Then 
      Yield element 
     End If 
    Next 
End Function