Imports System.Collections.Generic
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
Private Function SaveOwnerDateSettings(ByVal owner As Owner) As Boolean
If owner Is Nothing Then Return False
Try
Dim fileName As String = String.Empty
Using fileDialog As SaveFileDialog = New SaveFileDialog()
' Show the SaveFileDialog to get the path from the user
fileDialog.FileName = String.Empty
fileDialog.Title = owner.Key
If fileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then fileName = fileDialog.FileName
End Using
If fileName.Length = 0 Then Return False
Using stream As System.IO.FileStream = New FileStream(fileName, FileMode.OpenOrCreate, FileAccess.ReadWrite)
owner.SaveDateSettings(stream)
stream.Close()
End Using
Return True
Catch
Return False
End Try
End Function
Private Function LoadOwnerDateSettings(ByVal owner As Owner) As Boolean
If owner Is Nothing Then Return False
Try
Dim fileName As String = String.Empty
Using fileDialog As OpenFileDialog = New OpenFileDialog()
fileDialog.Title = owner.Key
If (fileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then fileName = fileDialog.FileName
End Using
If fileName.Length = 0 Then Return False
Using stream As FileStream = New FileStream(fileName, FileMode.Open, FileAccess.Read)
owner.LoadDateSettings(stream)
End Using
Return True
Catch
Return False
End Try
End Function