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 |
