Mega Code Archive

 

Categories / VB.Net / Language Basics

 

Delegate Syntax

Option Strict On Imports System.Collections.Generic Module Program     Sub Main()         Dim list As New List(Of Integer)()         list.AddRange(New Integer() {20, 1, 4, 8, 9, 44})         Dim callback As New Predicate(Of Integer)(AddressOf IsEvenNumber)         Dim evenNumbers As List(Of Integer) = list.FindAll(callback)         For Each evenNumber As Integer In evenNumbers             Console.WriteLine(evenNumber)         Next     End Sub     Function IsEvenNumber(ByVal i As Integer) As Boolean         Return (i Mod 2) = 0     End Function End Module