Probleme Visual Basic, changer de mode

Public Class Voiture

#Region "--- Attributs ---"
	Private mMarque As String
	Private mModele As String
	Private mAnneeCircu As Integer
	Private mPuissance As Integer
	Private mEssence As Integer
	Private mNbrRoue As Integer
#End Region

#Region "--- Propriétés ---"

	Public Property Marque() As String
		Get
			Return Me.mMarque
		End Get
		Set(ByVal value As String)
			Me.mMarque = value
		End Set
	End Property
	Public Property Modele() As String
		Get
			Return Me.mModele
		End Get
		Set(ByVal value As String)
			Me.mModele = value
		End Set
	End Property
	Public Property AnneeCirculation() As Integer
		Get
			Return Me.mAnneeCircu
		End Get
		Set(ByVal value As Integer)
			Me.mAnneeCircu = value
		End Set
	End Property
	Public Property Puissance() As Integer
		Get
			Return Me.mPuissance
		End Get
		Set(ByVal value As Integer)
			Me.mPuissance = value
		End Set
	End Property
	Public Property Essence() As Integer
		Get
			Return Me.mEssence
		End Get
		Set(ByVal value As Integer)
			Me.mEssence = value
		End Set
	End Property
	Public Property NbrRoue() As Integer
		Get
			Return Me.mNbrRoue
		End Get
		Set(ByVal value As Integer)
			Me.mNbrRoue = value
		End Set
	End Property
#End Region

#Region "--- Méthodes ---"

	''' <summary>
	''' Constructeur par défaut
	''' </summary>
	''' <remarks></remarks>
	Public Sub New()

	End Sub

	Public Sub FairelePlein(ByVal pEssence As Integer)
		Me.mEssence += pEssence
	End Sub

	Public Sub GonflerMoteur(ByVal cvgagnes As Integer)
		Me.mPuissance += cvgagnes
	End Sub

	Public Sub FrauderVoiture()
		Me.mAnneeCircu += 5
		MessageBox.Show(String.Concat("Age : ", Me.mAnneeCircu.ToString))
	End Sub

	Public Sub VendreVoiture()
		Dim texteAnnonce As New System.Text.StringBuilder
		texteAnnonce.Append(String.Concat("Vends voiture ", Me.mMarque))
		texteAnnonce.Append(String.Format("{0}{1}{2}", " ", Me.mModele, " "))
		texteAnnonce.Append(" immatriculé en ")
		texteAnnonce.AppendLine(Me.mAnneeCircu.ToString)
		MessageBox.Show(texteAnnonce.ToString)
	End Sub

#End Region

End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

	Dim Voiture1 As Voiture = New Voiture

	Voiture1.AnneeCirculation = 1987
	Voiture1.Marque = "Toyota"
	Voiture1.Modele = "Corolla"
	Voiture1.Puissance = 120
	Voiture1.Essence = 30

	Voiture1.VendreVoiture()

End Sub

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'C'EST ICI QUE COMMENCE l'APPLI
        'MAIS TU NE PEU PAS APPELER TES FONCTIONS IL FAUT D'ABORD INITIALISER LES VARIABES
    End Sub

End Class

    MessageBox.Show

Imports System.Runtime.Serialization.Formatters.Binary
Imports System.IO
Imports System.Xml.Serialization


Public Class Form1
    Private Function XMLSerialize(ByVal monLivre As Livre) As Boolean
        If monLivre Is Nothing Then Return False
        Dim stream2 As New StreamWriter("C:\Aide\Product.xml")
        Dim serializer As New XmlSerializer(GetType(Livre))
        serializer.Serialize(stream2, monLivre)
        stream2.Close()
        Return True
    End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim livre1 As New Livre()

        If (XMLSerialize(livre1) = True) Then
            'tout c'est bien passé
        Else
            MessageBox.Show("erreur")
        End If
    End Sub
End Class


'Class Livre
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.IO
Imports System.Xml.Serialization

<Serializable()> Public Class Livre
    Private mTitre As String
    Private mAuteur As String
    Private mEditeur As String
    Private mAnneeDeParution As Integer
    Private mNbreDePages As Integer
    Private mIsbn As Long

    ReadOnly Property Titre() As String
        Get
            Return mTitre
        End Get
        'Set(ByVal value As String)
        '    mTitre = value
        'End Set
    End Property

    ReadOnly Property Auteur() As String
        Get
            Return mAuteur
        End Get
        'Set(ByVal value As String)
        '    mAuteur = value
        'End Set
    End Property

    ReadOnly Property Editeur() As String
        Get
            Return mEditeur
        End Get
        'Set(ByVal value As String)
        '    mEditeur = value
        'End Set
    End Property

    Property AnneeDeParution() As Integer
        Get
            Return mAnneeDeParution
        End Get
        Set(ByVal value As Integer)
            mAnneeDeParution = value
        End Set
    End Property

    Property NbreDePages() As Integer
        Get
            Return mNbreDePages
        End Get
        Set(ByVal value As Integer)
            mNbreDePages = value
        End Set


    End Property

    Property Isbn() As Long
        Get
            Return mIsbn
        End Get
        Set(ByVal value As Long)
            mIsbn = value
        End Set
    End Property

End Class

Imports System.IO
Imports System.Xml.Serialization

Module Module1
    Public Class op
        Public Shared Function XMLSerialize(ByVal monLivre As Livre) As Boolean

'La notion Shared permet le partage avec les autres Classe
'Si vous voulez vous pouvez rajouter un systeme de gestion de la reponse du Boolean Ex If False, "Show erreur".

            If monLivre Is Nothing Then Return False
            Dim stream2 As New StreamWriter("F:Product.xml")

"Le fichier va être crée les informations notés dans le Disque local F sous forme Xml.

            Dim serializer As New XmlSerializer(GetType(Livre))
            serializer.Serialize(stream2, monLivre)
            stream2.Close()
            Return True
        End Function
    End Class

End Module


Public Class Form1

    Dim Livre1 As New Livre

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Conversion()
'Le bouton va lancer la class Conversion, On ne peut pas faire la conversion directement dans la classe du bouton!
    End Sub

    Public Sub Conversion()
        Livre1.Titre = TextBox1.Text
        Livre1.Auteur = TextBox2.Text
        Livre1.Editeur = TextBox3.Text
        Livre1.AnneeDeParution = TextBox4.Text
        Livre1.NbreDePages = TextBox5.Text
        Livre1.Isbn = TextBox6.Text
'Ici Les Le Livre1 Prend les paramètres que vous avez entrer dans les Textbox
        Module1.op.XMLSerialize(Livre1)
'Puis on lance la function XMLSerialize avec comme paramètre Livre1 pour Sauver les attributs dans un fichier Xml.
    End Sub
End Class
Public Class Livre
    Private mTitre As String
    Private mAuteur As String
    Private mEditeur As String
    Private mAnneeDeParution As Integer
    Private mNbreDePages As Integer
    Private mIsbn As Long

    Property Titre() As String
        Get
            Titre = mTitre
        End Get
        Set(ByVal value As String)
            mTitre = value
        End Set
    End Property

    Property Auteur() As String
        Get
            Auteur = mAuteur
        End Get
        Set(ByVal value As String)
            mAuteur = value
        End Set
    End Property

    Property Editeur() As String
        Get
            Editeur = mEditeur
        End Get
        Set(ByVal value As String)
            mEditeur = value
        End Set
    End Property

    Property AnneeDeParution() As Integer
        Get
            AnneeDeParution = mAnneeDeParution
        End Get
        Set(ByVal value As Integer)
            mAnneeDeParution = value
        End Set
    End Property

    Property NbreDePages() As Integer
        Get
            NbreDePages = mNbreDePages
        End Get
        Set(ByVal value As Integer)
            mNbreDePages = value
        End Set


    End Property

    Property Isbn() As Long
        Get
            Isbn = mIsbn
        End Get
        Set(ByVal value As Long)
            mIsbn = value
        End Set
    End Property

End Class

''' <summary>  
''' Constructeur par défaut  
''' </summary>  
''' <remarks></remarks>  
Public Sub New()  

End Sub  

''' <summary>  
''' Constructeur par défaut  
''' </summary>  
''' <remarks></remarks>  
Public Sub New()  

End Sub  

''' <summary>  
''' Surcharge du constructeur  
''' </summary>  
''' <remarks></remarks>  
Public Sub New(ByVal pTitre As String, _  
      ByVal pAuteur As String, _  
      ByVal pEditeur As String, _  
      ByVal pAnneeDeParution As Integer, _  
      ByVal pNbreDePages As Integer, _  
      ByVal pIsbn As Long)  

 Me.mTitre = pTitre  
 Me.mAuteur = pAuteur  
 Me.mEditeur = pEditeur  
 Me.mAnneeDeParution = pAnneeDeParution  
 Me.mNbreDePages = pNbreDePages  
 Me.mIsbn = pIsbn  

End Sub  

Public Class op  

 Public Shared Function XMLSerialize(ByVal monLivre As Livre) As Boolean  

  Dim Reponse As Boolean = False  

  If monLivre IsNot Nothing Then  
   Dim stream2 As New StreamWriter("F:Product.xml")  
   Dim serializer As New XmlSerializer(GetType(Livre))  
   serializer.Serialize(stream2, monLivre)  
   stream2.Close()  
   Reponse = True  
  End If  

  Return Reponse  

 End Function  

End Class  

<Extension()> _  
Public Module Module1  

 <Extension()> _  
 Public Sub Afficher(ByVal pLivre As Livre)  

  Dim Chaine As New System.Text.StringBuilder  
  Chaine.AppendLine(pLivre.Titre)  
  Chaine.AppendLine(pLivre.Auteur)  
  Chaine.AppendLine(pLivre.Editeur)  
  Chaine.AppendLine(pLivre.AnneeDeParution.ToString)  
  Chaine.AppendLine(pLivre.NbreDePages.ToString)  
  Chaine.AppendLine(pLivre.Isbn.ToString)  
  MessageBox.Show(Chaine.ToString)  

 End Sub  

End Module