Code

                'Reset the drag drop
                Me.Calendar.ResetDrag()

                'Oggetto / HeaderText
                e.item.HeaderText="MyTitle..."

                'Descrizione /DescriptionText
                 e.item.DescriptionText="MyDescription..."

                'Dichiaro un nuovo contatto / Declare a new contact
                Dim c As New Contact

                'Imposto i valori del contatto appena creato
                With c
                    .Id = e.item.Id
                    .Address = "MyAddress..."
                    .Email = "MyMail..."
                    .FirstName = "..."
                    .LastName = "..."
                    .Name = "..."
                    .Phone = "..."
                End With

                'Set the contact on the item
                e.item.Contacts.Add(c)

                'Start the process to create a file contains the appointement and the contacts

                Dim path As String = ....
                Dim a As New Xml.XmlDocument
                Schedulatore.Schedule.SaveTo(path.ToString, ContentType.Xml)

 

Code

Me.Calendar.Contacts.Add(c)
 

Code

Private Sub Calendario_ItemCreated(ByVal sender As Object, ByVal e As MindFusion.Scheduling.ItemEventArgs) Handles Calendario.ItemCreated

        Try

            'Oggetto / HeaderText
            e.Item.HeaderText = "MyItem.."

            'Dichiaro un nuovo contatto
            Dim c As New Contact

            'Imposto i valori del contatto appena creato
            With c
                .Id = e.Item.Id
                .Address = "Via chiusa..."
                .Email = "tavolonimarco@alice.it"
                .FirstName = "MyContacts.."
                .LastName = ""
                .Name = ""
                .Phone = "3285341..."
            End With
            Dim NTask As New Task


    'Add the contact at the item
            Me.Calendar.Contacts.Add(c)
            e.Item.Contacts.Add(c)

        Catch ex As Exception

            MsgBox(Err.Description, MsgBoxStyle.Critical, "Errore " & Err.Number)

        End Try

    End Sub
 

Code

Private Sub Calendario_ItemDeleting(ByVal sender As Object, ByVal e As MindFusion.Scheduling.WinForms.ItemConfirmEventArgs) Handles Calendario.ItemDeleting

        Try

            'Delete the contact from the scheduler
            Me.Calendar.Contacts.Remove(e.Item.Contacts(0))


        Catch ex As Exception

            MsgBox(Err.Description, MsgBoxStyle.Critical, "Errore " & Err.Number)

        End Try

    End Sub
 

Code

Try


            Dim myXmlTextWriter As XmlTextWriter


            myXmlTextWriter = New XmlTextWriter(Percorso.ToString, System.Text.Encoding.UTF8)


            myXmlTextWriter.Formatting = System.Xml.Formatting.Indented
            myXmlTextWriter.WriteStartDocument(False)
            myXmlTextWriter.WriteComment("Appuntamenti utente " & CodiceUtente.ToString)


            myXmlTextWriter.WriteStartElement("Appointements")

            myXmlTextWriter.WriteEndElement()

            myXmlTextWriter.Flush()
            myXmlTextWriter.Close()

            Dim a As New Xml.XmlDocument
            Calendar.SaveTo(MyPath.ToString, ContentType.Xml)

        Catch ex As Exception

            MsgBox(Err.Description, MsgBoxStyle.Critical, "Errore " & Err.Number)

        End Try
 

Code

Try

            Calendar.LoadFrom(MyPath.ToString, ContentType.Xml)

        Catch ex As Exception

            MsgBox(Err.Description, MsgBoxStyle.Critical, "Errore " & Err.Number)

        End Try