如何使用Array.Find将以下内容转换为VB.NET谓词？
- 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
- 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