How to: Import Data from iCalendar (legacy)

• Aug 03, 2020
• 3 minutes to read

Note

You are viewing documentation for the legacy WPF Scheduler control. If you’re starting a new project, we strongly recommend that you use a new control declared in the DevExpress.Xpf.Scheduling namespace. If you decide to upgrade an existing project in order to switch to the updated scheduler control, see the Migration Guidelines document.

Import Data on Button Click

The following example demonstrates how to load appointment data to a scheduler from the iCalendar format on a button click. To do this, create an iCalendarImporter class instance in the Button.Click event handler and call the AppointmentImporter.Import method with a parameter set to a stream that specifies the .ics file selected by an end-user.

Note

A complete sample project is available at https://github.com/DevExpress-Examples/how-to-provide-a-scheduler-with-the-icalendar-data-exchange-functionality-e3816.

MainWindow.xaml.cs

private void Import_Button_Click(object sender, RoutedEventArgs e) {
    OpenFileDialog dialog = new OpenFileDialog();
    dialog.Filter = "iCalendar files (*.ics)|*.ics";
    dialog.FilterIndex = 1;
    if (dialog.ShowDialog() != true)
        return;

    using (Stream stream = dialog.OpenFile()) {
        ImportAppointments(stream);
    }
}
private void ImportAppointments(Stream stream) {
    if (stream == null)
        return;
    schedulerControl1.Storage.AppointmentStorage.Clear();
    iCalendarImporter importer = new iCalendarImporter(schedulerControl1.Storage.InnerStorage);
    importer.Import(stream);
}

MainWindow.xaml.vb

Private Sub Import_Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
    Dim dialog As New OpenFileDialog()
    dialog.Filter = "iCalendar files (*.ics)|*.ics"
    dialog.FilterIndex = 1
    If Not dialog.ShowDialog().Equals(True) Then
        Return
    End If

    Using stream As Stream = dialog.OpenFile()
        ImportAppointments(stream)
    End Using
End Sub
Private Sub ImportAppointments(ByVal stream As Stream)
    If stream Is Nothing Then
        Return
    End If
    schedulerControl1.Storage.AppointmentStorage.Clear()
    Dim importer As New iCalendarImporter(schedulerControl1.Storage.InnerStorage)
    importer.Import(stream)
End Sub

As a result, clicking the Import button will invoke the Open dialog where an end-user can select an iCalendar file to import appointment data to a scheduler.

Import Data on iCalendar File Drop

The following example demonstrates how to provide end-users with the capability to import appointment data to a scheduler from the iCalendar format by dragging an .ics file onto a scheduler area. To do this, create an iCalendarImporter class instance in the SchedulerControl.Drop event handler and call the AppointmentImporter.Import method with a parameter set to a stream that specifies the iCalendar file dropped by an end-user.

Note

A complete sample project is available at https://github.com/DevExpress-Examples/how-to-provide-a-scheduler-with-the-icalendar-data-exchange-functionality-e3816.

MainWindow.xaml.cs

private void schedulerControl1_Drop(object sender, DragEventArgs e) {
    string[] fileNames = e.Data.GetData(DataFormats.FileDrop) as string[];
    if (fileNames == null || fileNames.Length == 0)
        return;

    foreach (string fileName in fileNames) {
        if (File.Exists(fileName)) {
            using (Stream stream = File.Open(fileName, FileMode.Open)) {
                ImportAppointments(stream);
            }
        }
    }
}
private void ImportAppointments(Stream stream) {
    if (stream == null)
        return;
    schedulerControl1.Storage.AppointmentStorage.Clear();
    iCalendarImporter importer = new iCalendarImporter(schedulerControl1.Storage.InnerStorage);
    importer.Import(stream);
}

MainWindow.xaml.vb

Private Sub schedulerControl1_Drop(ByVal sender As Object, ByVal e As DragEventArgs)
    Dim fileNames() As String = TryCast(e.Data.GetData(DataFormats.FileDrop), String())
    If fileNames Is Nothing OrElse fileNames.Length = 0 Then
        Return
    End If

    For Each fileName As String In fileNames
        If File.Exists(fileName) Then
            Using stream As Stream = File.Open(fileName, FileMode.Open)
                ImportAppointments(stream)
            End Using
        End If
    Next fileName
End Sub
Private Sub ImportAppointments(ByVal stream As Stream)
    If stream Is Nothing Then
        Return
    End If
    schedulerControl1.Storage.AppointmentStorage.Clear()
    Dim importer As New iCalendarImporter(schedulerControl1.Storage.InnerStorage)
    importer.Import(stream)
End Sub

As a result, end-users can populate a scheduler with appointment data by dragging and dropping an iCalendar file onto the scheduler area.