The example below illustrates how to implement Numeric Properties in an XPO persistent class.
private double doubleProperty;
public double DoubleProperty {
get { return doubleProperty; }
set { SetPropertyValue("DoubleProperty", ref doubleProperty, value); }
}
private float singleProperty;
public float SingleProperty {
get { return singleProperty; }
set { SetPropertyValue("SingleProperty", ref singleProperty, value); }
}
private long longProperty;
public long LongProperty {
get { return longProperty; }
set { SetPropertyValue("LongProperty", ref longProperty, value); }
}
private int integerProperty;
public int IntegerProperty {
get { return integerProperty; }
set { SetPropertyValue("IntegerProperty", ref integerProperty, value); }
}
private decimal decimalProperty;
public decimal DecimalProperty {
get { return decimalProperty; }
set { SetPropertyValue("DecimalProperty", ref decimalProperty, value); }
}
private byte byteProperty;
public byte ByteProperty {
get { return byteProperty; }
set { SetPropertyValue("ByteProperty", ref byteProperty, value); }
}
Private _doubleProperty As Double
Public Property DoubleProperty() As Double
Get
Return _doubleProperty
End Get
Set(ByVal value As Double)
SetPropertyValue("DoubleProperty", _doubleProperty, value)
End Set
End Property
Private _singleProperty As Single
Public Property SingleProperty() As Single
Get
Return _singleProperty
End Get
Set(ByVal value As Single)
SetPropertyValue("SingleProperty", _singleProperty, value)
End Set
End Property
Private _longProperty As Long
Public Property LongProperty() As Long
Get
Return _longProperty
End Get
Set(ByVal value As Long)
SetPropertyValue("LongProperty", _longProperty, value)
End Set
End Property
Private _integerProperty As Integer
Public Property IntegerProperty() As Integer
Get
Return _integerProperty
End Get
Set(ByVal value As Integer)
SetPropertyValue("IntegerProperty", _integerProperty, value)
End Set
End Property
Private _decimalProperty As Decimal
Public Property DecimalProperty() As Decimal
Get
Return _decimalProperty
End Get
Set(ByVal value As Decimal)
SetPropertyValue("DecimalProperty", _decimalProperty, value)
End Set
End Property
Private _byteProperty As Byte
Public Property ByteProperty() As Byte
Get
Return _byteProperty
End Get
Set(ByVal value As Byte)
SetPropertyValue("ByteProperty", _byteProperty, value)
End Set
End Property