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