<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" processorArchitecture="X86" name="Microsoft.Winweb.MantaRay" type="win32" />
<description>.NET control deployment tool</description>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="X86" 
publicKeyToken="6595b64144ccf1df" language="*" /> 
</dependentAssembly>
</dependency>
</assembly>

  
'Soit dans le constructeur de la form principale de votre projet 
Public Sub New()  
    MyBase.New()  
    'Style Win XP  
    Application.EnableVisualStyles()  
    'Cet appel est requis par le Concepteur Windows Form.  
     InitializeComponent()  
     'Ajoutez une initialisation quelconque après l'appel InitializeComponent()  
    End Sub  
 
'Soit dans la fonction  Main de démarrage de votre projet 
Shared Sub Main() 
    'Style Win XP   
    Application.EnableVisualStyles()  
    Application.Run(New Form1)     
End Sub

'Fonction du code d'un bouton de notre Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles Button1.Click
    ' On passe le curseur en sablier
    Cursor = Cursors.WaitCursor

    ' On affiche une boite de dialogue
    MessageBox.Show("Le curseur est maintenant un sablier")

    ' On repasse le curseur en normal
    Cursor = Cursors.Arrow
End Sub

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

    FolderBrowserDialog1.Description = "Choisissez votre répertoire"
    If FolderBrowserDialog1.ShowDialog(Me) = DialogResult.OK Then
        MessageBox.Show(Me, _
                    "Vous aves choisi " + FolderBrowserDialog1.SelectedPath, _
                    "Repertoire", _
                    MessageBoxButtons.OK, _
                    MessageBoxIcon.Information)
    End If

End Sub

        
Private Sub Button2_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

    'Titre
    OpenFileDialog1.Title = "Chargement"
    'Extension par défaut
    OpenFileDialog1.DefaultExt = "txt"
    'Filtres
    OpenFileDialog1.Filter = "fichiers textes (*.txt)|*.txt|Tous les fichiers (*.*)|*.*"
    OpenFileDialog1.FilterIndex = 1
    'Ouverture boite de dialogue OpenFile
    If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
        'On vide le TextBox
        RichTextBox1.Text = String.Empty
        'Ouverture du fichier sélectionné
        'son nom est dans openFileDialog1.FileName
        Dim sr As StreamReader = New StreamReader(OpenFileDialog1.OpenFile, Encoding.Default)
        Try
            Dim data As String = sr.ReadLine
            While Not (data Is Nothing)
                RichTextBox1.AppendText(data + _
                                        Convert.ToChar(13) + _
                                        Convert.ToChar(10))
                data = sr.ReadLine()
            End While
        Finally
            If Not (sr Is Nothing) Then
                sr.Close()
            End If
        End Try
    End If

End Sub

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

    If MessageBox.Show(Me, _
   "Sauvegarder le document?", _
   "Sauvegarde", _
   MessageBoxButtons.YesNo, _
   MessageBoxIcon.Question) = DialogResult.No Then
        Return
    End If

    'Titre
    SaveFileDialog1.Title = "Sauvegarde"
    'Extension par défaut
    SaveFileDialog1.DefaultExt = "txt"
    'Filtres
    SaveFileDialog1.Filter = "fichiers textes (*.txt)|*.txt|Tous les fichiers (*.*)|*.*"
    SaveFileDialog1.FilterIndex = 1
    'Ouverture boite de dialogue saveFile
    If SaveFileDialog1.ShowDialog(Me) = DialogResult.OK Then

        Dim sw As StreamWriter = New StreamWriter(SaveFileDialog1.OpenFile, Encoding.Default)
        Try
            Dim i As Integer = 0
            While i < RichTextBox1.Lines.Length
                sw.WriteLine(RichTextBox1.Lines(i))
                System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
            End While
        Finally
            If Not (sw Is Nothing) Then
                sw.Close()
            End If
        End Try

    End If

End Sub

'Message Windows QueryEndSession
Private Const WM_QUERYENDSESSION As Integer= &H11;

'flag indiquant si la session est en cours de fermeture
Private _systemShutdown As Boolean= false;

'Redéfinition de la fonction virtuelle WndProc
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

    'Mise dans systemShutdown la présence du message fermeture Windows
    If m.Msg = WM_QUERYENDSESSION Then
    _systemShutdown = true
    base.WndProc(m)
End If

End Sub

'Handler evenement closing
Private Sub Form1_Closing(object sender, System.ComponentModel.CancelEventArgs e) Handles Form1.Closing

    'Si le message fermeture Windows a été envoyé, on l'annule !
    If _systemShutdown Then

        e.Cancel = true
        _systemShutdown = false
        MessageBox.Show("Fermeture de session windows annulée")
    
    End If

End Sub