Example Classes

DataObject.cs
01/* Copyright (C) 2007 db4objects Inc. http://www.db4o.com */ 02namespace Db4objects.Db4odoc.ListDeleting 03{ 04 class DataObject 05 { 06 string _name; 07 string _data; 08 09 public DataObject() 10 { } 11 12 public string Name 13 { 14 get { return _name; } 15 set { _name = value; } 16 } 17 18 public string Data 19 { 20 get { return _data; } 21 set { _data = value; } 22 } 23 24 public override string ToString() 25 { 26 return string.Format("{0}/{1}", _name, _data); 27 } 28 } 29}
ListObject.cs
01/* Copyright (C) 2007 db4objects Inc. http://www.db4o.com */ 02using System.Collections.Generic; 03 04namespace Db4objects.Db4odoc.ListDeleting 05{ 06 class ListObject 07 { 08 string _name; 09 List<DataObject> _data; 10 11 public ListObject() 12 { 13 _data = new List<DataObject>(); 14 } 15 16 public string Name 17 { 18 get { return _name; } 19 set { _name = value; } 20 } 21 22 public List<DataObject> Data 23 { 24 get { return _data; } 25 set { _data = value; } 26 } 27 } 28}

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