visual basic 2010 broncode voorbeelden

Option Strict On
Option Explicit Off

Imports System.Collections
Imports System.Collections.Generic
Imports System.Linq

Public Class HashSetOfTExample
    Public Shared Sub Main()
        Dim hashSet1 As New HashSet(Of Integer)(New Integer() {2, 4, 6, 8})
        '
        Dim list1 As IEnumerable(Of Integer) = New Integer() {6, 7, 8, 9}
        Dim list2 As IEnumerable(Of Integer) = New Integer() {2, 4, 8}
        Dim list3 As IEnumerable(Of Integer) = New Integer() {2, 4, 6}
        Dim list4 As IEnumerable(Of Integer) = New Integer() {2}
        '
        hashSet1.IntersectWith(list1)
        Print(hashSet1) ' 6 8
        '
        hashSet1.UnionWith(list2)
        Print(hashSet1) ' 4 2 6 8
        '
        hashSet1.ExceptWith(list1)
        Print(hashSet1) ' 4 2
        '
        Console.WriteLine(hashSet1.IsSubsetOf(list3))   ' True
        Console.WriteLine(hashSet1.IsSupersetOf(list4)) ' True
        '
        Console.ReadLine()
    End Sub
    Public Shared Sub Print(ByVal collection As IEnumerable)
        For Each element As Object In collection
            Console.Write(element.ToString() & " ")
        Next
        Console.WriteLine()
    End Sub
End Class

6 8
4 2 6 8
4 2
True
True

Public Class LINQSetOperationsExample
    Public Shared Sub Main()
        Dim list0 As IEnumerable(Of Integer) = New Integer() {2, 4, 6, 8}
        '
        Dim list1 As IEnumerable(Of Integer) = New Integer() {6, 7, 8, 9}
        Dim list2 As IEnumerable(Of Integer) = New Integer() {2, 4, 8}
        Dim list3 As IEnumerable(Of Integer) = New Integer() {2, 4, 6}
        Dim list4 As IEnumerable(Of Integer) = New Integer() {2}
        '
        list0 = list0.Intersect(list1)
        Print(list0) ' 6 8
        '
        list0 = list0.Union(list2)
        Print(list0) ' 4 2 6 8
        '
        list0 = list0.Except(list1)
        Print(list0) ' 4 2
        '
        Console.ReadLine()
    End Sub
    Public Shared Sub Print(ByVal collection As IEnumerable)
        For Each element As Object In collection
            Console.Write(element.ToString() & " ")
        Next
        Console.WriteLine()
    End Sub
End Class

6 8
6 8 2 4
2 4