Let’s start with a simple class called ‘Book’:

Public Class Book
    Public Title As String = String.Empty
    Public Sub New()
    End Sub
    Public Sub New(ByVal title As String)
        Me.Title = title
    End Sub
End Class

Our mini-project (in this case: a console application) should be able to create a new instance of the book class and serialize it:

Imports System.IO
Imports System.Xml
Imports System.Xml.Serialization
Module Main
    Sub Main()
        Dim book As New Book("XML Serialization")
        Dim result As String
        Dim serializer As New XmlSerializer(GetType(Book))
        Using writer As New StringWriter()
            serializer.Serialize(writer, book)
            result = writer.ToString
        End Using
        Console.WriteLine(result)
        Console.ReadLine()
    End Sub
End Module

The result looks like this:

<?xml version="1.0" encoding="utf-16"?>
<Book
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Title>XML Serialization</Title>
</Book>

Task #1: removing the namespace definitions

In order to remove the namespace definitions, we need to define a new set of namespaces and tell our serializer to use this set. We can do this by using the XmlSerializerNamespaces class. We need to add the following lines just after the XmlSerializer definition:

Dim nameSpaces As XmlSerializerNamespaces = _
    New XmlSerializerNamespaces()
nameSpaces.Add("", "")

and we also need to replace line 15 in the original code with the following statement:

serializer.Serialize(writer, book, nameSpaces)

This way our XML source becomes:

<?xml version="1.0" encoding="utf-16"?>
<Book>
  <Title>XML Serialization</Title>
</Book>

Task #2: Removing the XML header

Next thing on the to-do list is to find a way to produce a plain XML file without any definitions whatsoever. To accomplish this, we need to further modify our code and use the XmlWriterSettings class with OmitXmlDeclaration property set to true. Replace lines 14-18 with the following:

Dim settings As New XmlWriterSettings()
settings.OmitXmlDeclaration = True
settings.Indent = True
Using writer As New StringWriter()
  Using xmlWriter As XmlWriter = _
      xmlWriter.Create(writer, settings)
    serializer.Serialize(xmlWriter, book, nameSpaces)
    result = writer.ToString
  End Using
End Using

Our XML now becomes:

<Book>
  <Title>XML Serialization</Title>
</Book>

Task #3: adding our own namespace definition

Our final task is to insert our own namespace definition (and only that one). First thing to do is to instantiate the XmlSerializer with our own namespace. Then we need to add our namespace to our custom namespace list. Replace the serializer definition with:

Dim serializer As New XmlSerializer(GetType(Book), _
    "urn:our_namespace")

add change the nameSpaces.add statement with:

nameSpaces.Add("", "urn:our_namespace")

The last set of changes produce the following XML:

<Book xmlns="urn:our_namespace">
  <Title>XML Serialization</Title>
</Book>

There you have it.