How to: Export Data to iCalendar (legacy)

• Aug 03, 2020
• 2 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.

The following example demonstrates how to export data from a scheduler to the iCalendar format. To do this, create an iCalendarExporter class instance and call the AppointmentExporter.Export 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 Export_Button_Click(object sender, RoutedEventArgs e) {
    SaveFileDialog dialog = new SaveFileDialog();
    dialog.Filter = "iCalendar files (*.ics)|*.ics";
    dialog.FilterIndex = 1;
    if (dialog.ShowDialog() == true) {
        using (Stream stream = dialog.OpenFile()) {
            ExportAppointments(stream);
        }
    }
}
void ExportAppointments(Stream stream) {
    if (stream == null)
        return;
    iCalendarExporter exporter = new iCalendarExporter(schedulerControl1.Storage.InnerStorage);
    exporter.ProductIdentifier = "-//Developer Express Inc.//DXScheduler iCalendarExchange Example//EN";
    exporter.Export(stream);
}

MainWindow.xaml.vb

Private Sub Export_Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
    Dim dialog As New SaveFileDialog()
    dialog.Filter = "iCalendar files (*.ics)|*.ics"
    dialog.FilterIndex = 1
    If dialog.ShowDialog() = True Then
        Using stream As Stream = dialog.OpenFile()
            ExportAppointments(stream)
        End Using
    End If
End Sub
Private Sub ExportAppointments(ByVal stream As Stream)
    If stream Is Nothing Then
        Return
    End If
    Dim exporter As New iCalendarExporter(schedulerControl1.Storage.InnerStorage)
    exporter.ProductIdentifier = "-//Developer Express Inc.//DXScheduler iCalendarExchange Example//EN"
    exporter.Export(stream)
End Sub