Непрерывный предикат делегата VB.NET

Question

Это моя проблема. Если я пишу это -

Private ListValue As Object = Nothing 

Private Sub FindIndex(ByVal e As ListBoxFindItemArgs) 
    e.IsFound = Object.Equals(ListValue, e.ItemValue) 
End Sub 

Private Sub SearchValues 
    ListValue = 5 
    Index = Me.lst_department.FindItem(0, True, AddressOf FindIndex) 
End Sub 

Но я просто из моего ума, почему этот код, написанный, чтобы сделать то же самое, не работает -

Private Sub SearchValues 
    ListValue = 5 
    Index = Me.lst_department.FindItem(0, True, Function(e As ListBoxFindItemArgs) e.IsFound = Object.Equals(ListValue, e.ItemValue)) 
End Sub 

Answer 1

Потому что ваш «предикат» является не a функция , это Sub. Если вы используете самую последнюю версию VB, вы можете написать следующее: в противном случае, вы не повезло:

Index = Me.lst_department.FindItem(0, True, Sub(e As ListBoxFindItemArgs) e.IsFound = Object.Equals(ListValue, e.ItemValue)) 

---

Кроме того, это не предикат. Предикат - это определенный тип функции, имеющий подпись Function(x As T) As Boolean для некоторого типа T.