Example Classes

DataObject.vb
01' Copyright (C) 2007 db4objects Inc. http://www.db4o.com 02Namespace 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 33End Namespace
ListObject.vb
01' Copyright (C) 2007 db4objects Inc. http://www.db4o.com 02Imports System.Collections.Generic 03Namespace 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 31End Namespace