Étape 8: Le Code : enregistrer
après le svedit, cliquez sur Ajouter le texte suivant :
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
SaveFileDialog1.ShowDialog () ' affiche savedialog
p = SaveFileDialog1.FileName
Dim objReader As New System.IO.StreamWriter(p)
AD()
objReader.Close() ' ferme savedialog
k = True
Si k = True Then Label2.Visible = True
sort()
End Sub