visual basic 2010 broncode voorbeelden

Option Explicit On
Option Strict On

Imports System.Linq

Namespace CreatingXML
    Class LINQQueryInXMLLiteralExample
        Public Shared Sub Main()
            Dim departements As New List(Of Departement)
            departements.Add(New Departement With {.Area = "London", _
                                                 .Type = DepartementType.Sales})
            departements.Add(New Departement With {.Area = "England", _
                                          .Type = DepartementType.Distrubution})
            '
            Dim employee1 As XElement = _
                                <employee>
                                    <name>John Smith</name>
                                    <%= From d In departements _
                                        Select <departement type=<%= d.Type %>>
                                                   <%= d.Area %>
                                               </departement> %>
                                </employee>
            Console.WriteLine(employee1.ToString())
            '
            Console.ReadLine()
        End Sub
    End Class
    Class Departement
        Protected _Area As String
        Public Property Area() As String
            Get
                Area = _Area
            End Get
            Set(ByVal value As String)
                _Area = value
            End Set
        End Property
        Protected _Type As DepartementType
        Public Property Type() As DepartementType
            Get
                Type = _Type
            End Get
            Set(ByVal value As DepartementType)
                _Type = value
            End Set
        End Property
    End Class
    Enum DepartementType
        Sales
        Distrubution
    End Enum
End Namespace

<employee>
  <name>John Smith</name>
  <departement type="Sales">London</departement>
  <departement type="Distrubution">England</departement>
</employee>