Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click 'Scrive In un file XML 'Crea un file chiamato callCenter.xml Dim fileXML As XmlTextWriter = New XmlTextWriter(Application.StartupPath + "\callCenter.xml", System.Text.Encoding.UTF8) 'Setta la struttura del file indendato fileXML.Formatting = System.Xml.Formatting.Indented fileXML.WriteStartDocument(True) 'Inizia la scrittura nel file XML fileXML.WriteStartElement("Dati Contatto") fileXML.WriteElementString("Nome-Azienda", txtNome.Text) fileXML.WriteElementString(lblCognome.Text, txtCognome.Text) fileXML.WriteElementString(lblCitta.Text, txtCitta.Text) fileXML.WriteElementString(lblTelefono.Text, txtTelefono.Text) fileXML.WriteElementString(lblFax.Text, txtFax.Text) fileXML.WriteElementString(lblMail.Text, txtEmail.Text) fileXML.WriteElementString(lblDataChiamata.Text, txtData.Text) fileXML.WriteElementString(lblAgente.Text, txtAgente.Text) fileXML.WriteElementString(lblNote.Text, txtNote.Text) fileXML.WriteEndElement() fileXML.Close() End Sub |