VB.NET Predicate Array Tìm

Question

Làm thế nào tôi có thể chuyển đổi những điều sau sang một thuộc tính VB.NET bằng Array.Find?

Private Function FindCulture(ByVal Code As String) As Globalization.CultureInfo 
    ' 
    Dim AllCultures As Globalization.CultureInfo() = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures) 
    ' 
    For Each Culture As Globalization.CultureInfo In AllCultures 
     If Culture.TwoLetterISOLanguageName = Code Then 
      Return Culture 
     End If 
    Next 
    ' 
    Return Nothing 
    ' 
End Function 

Answer 1

Private Function FindCulture(ByVal Code As String) As Globalization.CultureInfo 
    Dim AllCultures As Globalization.CultureInfo() = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures) 
    Return Array.Find(AllCultures, Function(s) s.TwoLetterISOLanguageName = Code) 
End Function