01' Copyright (C) 2007 db4objects Inc. http://www.db4o.com 02
Namespace Db4objects.Db4odoc.ListDeleting 03
04
Class DataObject 05
Private _name As String 06
Private _data As String 07
08
Public Sub New() 09
End Sub 10
11
Public Property Name() As String 12
Get 13
Return _name 14
End Get 15
Set(ByVal value As String) 16
_name = value 17
End Set 18
End Property 19
20
Public Property Data() As String 21
Get 22
Return _data 23
End Get 24
Set(ByVal value As String) 25
_data = value 26
End Set 27
End Property 28
29
Public Overloads Overrides Function ToString() As String 30
Return String.Format("{0}/{1}", _name, _data) 31
End Function 32
End Class 33
End Namespace
01' Copyright (C) 2007 db4objects Inc. http://www.db4o.com 02
Imports System.Collections.Generic 03
Namespace Db4objects.Db4odoc.ListDeleting 04
05
Class ListObject 06
Private _name As String 07
Private _data As List(Of DataObject) 08
09
Public Sub New() 10
_data = New List(Of DataObject) 11
End Sub 12
13
Public Property Name() As String 14
Get 15
Return _name 16
End Get 17
Set(ByVal value As String) 18
_name = value 19
End Set 20
End Property 21
22
Public Property Data() As List(Of DataObject) 23
Get 24
Return _data 25
End Get 26
Set(ByVal value As List(Of DataObject)) 27
_data = value 28
End Set 29
End Property 30
End Class 31
End Namespace