1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub XMLToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles EnregistrerToolStripMenuItem.Click
Try
With SaveTab2()
.Title = "Enregistrer"
.InitialDirectory = "\\"
.Filter = "Fichier XML (.xml)|*.xml|Tous les fichiers|*.*"
.DefaultExt = "xml"
.AddExtension = True
End With
If SaveTab2.ShowDialog = Windows.Forms.DialogResult.OK Then
If SaveTab2.FileName.ToString <> "" Then
ds.WriteXml(SaveTab2.FileName, XmlWriteMode.IgnoreSchema)
End If
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub |
Partager