Public Class YukkuriUnit
Public ImageID() As String = {}
Public MovePoint() As Point = {}
Public EventName As String
Public Sub New()
End Sub
Public Function Clone() As YukkuriUnit
Dim sa As YukkuriUnit = New YukkuriUnit
sa.MovePoint = Me.MovePoint
sa.EventName = Me.EventName
sa.ImageID = CopyList(Me.ImageID)
Return sa
End Function
Private Function CopyList(ByVal strList() As String) As String()
Dim iid(strList.Length - 1) As String
Dim intCount As Integer = 0
For Each str As String In strList
iid(intCount) = str
intCount += 1
Next
Return iid
End Function
End Class
Public Class Yukkuri
<Xml.Serialization.XmlArrayItem(Type:=GetType(Image))> Private _YukkuriUnits As YukkuriUnit()
Public Property YukkuriUnits() As YukkuriUnit()
Get
Return _YukkuriUnits
End Get
Set(ByVal Value As YukkuriUnit())
_YukkuriUnits = Value
End Set
End Property
Public Sub New()
End Sub
Public Function Clone()
Dim yuk As Yukkuri = New Yukkuri
yuk.YukkuriUnits = CopyList(YukkuriUnits)
Return yuk
End Function
Private Function CopyList(ByVal strList() As YukkuriUnit) As YukkuriUnit()
Dim list(strList.Length - 1) As YukkuriUnit
Dim intCount As Integer = 0
For Each dat As YukkuriUnit In strList
list(intCount) = dat.Clone
intCount += 1
Next
Return list
End Function
Public Sub SettingWrite(ByVal strPath)
Dim serializer1 As New System.Xml.Serialization.XmlSerializer(GetType(Yukkuri))
'ファイルを開く
Dim fs1 As New System.IO.FileStream(strPath, System.IO.FileMode.Create)
'シリアル化し、XMLファイルに保存する
serializer1.Serialize(fs1, Me)
'閉じる
fs1.Close()
End Sub
Public Function SettingRead(ByVal strFile As String) As Yukkuri
Dim serializer2 As New System.Xml.Serialization.XmlSerializer(GetType(Yukkuri))
'ファイルを開く
Dim appSettings As New Yukkuri
Try
Dim fs2 As New System.IO.FileStream(strFile, System.IO.FileMode.Open)
'XMLファイルから読み込み、逆シリアル化する
appSettings = CType(serializer2.Deserialize(fs2), Yukkuri)
'閉じる
fs2.Close()
Catch
End Try
Return appSettings
End Function
End Class
|