Imports Infragistics.Win.UltraWinSchedule Imports System.IO ... Private Sub SaveAppointments() ' EXE と同じフォルダに新しい FileStream を作成します。 Dim SaveFileStream As New IO.FileStream("Appointments.sav", IO.FileMode.OpenOrCreate) ' FileStream の先頭に移動します。 SaveFileStream.Position = 0 ' CalendarInfo を保存します。 Me.UltraCalendarInfo1.Save(SaveFileStream, CalendarInfoCategories.Appointments) ' FileStream を閉じます。 SaveFileStream.Close() End Sub Private Sub LoadAppointments() Dim LoadFileStream As IO.FileStream Try ' FileStream のロードを試みます。 LoadFileStream = New IO.FileStream(System.IO.Path.Combine(Application.StartupPath(), _ "..\ExtraFiles\Appointments.sav"), IO.FileMode.Open) Catch When LoadFileStream Is Nothing ' FileStream のロードに失敗した場合は、おそらくファイルが存在していません。 MsgBox("Error opening Appointments file. The file may not exist", _ MsgBoxStyle.OKOnly, "Error") Exit Sub End Try ' FileStream の先頭に移動します。 LoadFileStream.Position = 0 ' Load the FileStream Me.UltraCalendarInfo1.Load(LoadFileStream, CalendarInfoCategories.Appointments) ' FileStream を閉じます。 LoadFileStream.Close() End Sub