Mega Code Archive
Create HashSet(Of T) class that uses the default equality comparer for the set type
<![CDATA[
Imports System
Imports System.Collections.Generic
Class Program
Shared Sub Main()
Dim evenNumbers As HashSet(Of Integer) = New HashSet(Of Integer)()
Dim oddNumbers As HashSet(Of Integer) = New HashSet(Of Integer)()
For i As Integer = 0 To 4
evenNumbers.Add(i * 2)
oddNumbers.Add((i * 2) + 1)
Next i
DisplaySet(evenNumbers)
DisplaySet(oddNumbers)
Dim numbers As HashSet(Of Integer) = New HashSet(Of Integer)(evenNumbers)
numbers.UnionWith(oddNumbers)
DisplaySet(numbers)
End Sub
Private Shared Sub DisplaySet(ByVal coll As HashSet(Of Integer))
For Each i As Integer In coll
Console.WriteLine(" {0}", i)
Next i
End Sub
End Class
]]>