Example Classes

DataObject.cs
01/* Copyright (C) 2007 db4objects Inc. http://www.db4o.com */ 02using System; 03 04namespace Db4objects.Db4odoc.ListDeleting 05{ 06 class DataObject 07 { 08 string _name; 09 string _data; 10 11 public DataObject() 12 { } 13 14 public string Name 15 { 16 get { return _name; } 17 set { _name = value; } 18 } 19 20 public string Data 21 { 22 get { return _data; } 23 set { _data = value; } 24 } 25 26 public override string ToString() 27 { 28 return string.Format("{0}/{1}", _name, _data); 29 } 30 } 31}
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 02Imports System 03Namespace Db4objects.Db4odoc.ListDeleting 04 05 Class DataObject 06 Private _name As String 07 Private _data As String 08 09 Public Sub New() 10 End Sub 11 12 Public Property Name() As String 13 Get 14 Return _name 15 End Get 16 Set(ByVal value As String) 17 _name = value 18 End Set 19 End Property 20 21 Public Property Data() As String 22 Get 23 Return _data 24 End Get 25 Set(ByVal value As String) 26 _data = value 27 End Set 28 End Property 29 30 Public Overloads Overrides Function ToString() As String 31 Return String.Format("{0}/{1}", _name, _data) 32 End Function 33 End Class 34End 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