Public Shared ReadOnly Formatter As SheetStyleProperty

Dim value As SheetStyleProperty
 
value = SheetStyleProperty.Formatter

public static readonly SheetStyleProperty Formatter

<Serializable()> 
public class myf : FarPoint.Web.Spread.Renderer.IFormatter
{
    public string Format(object o) 
{
//int ret = o;
    switch (Convert.ToInt32(o))
{
    case 1:
    return "Test1";
    case 2:
    return "Test2";
    case 3:
    return "Test3";
}
return o.ToString();
}

    public object Parse(string s) 
{
    switch (s)
{
    case "Test1":
    return 1;
    case "Test2":
    return 2;
    case "Test3":
    return 3;
}
return s;
}
}

if (IsPostBack)
    {
        return;
    }
    DataTable dt = new DataTable();
    DataRow dr;
    dt.Columns.Add("Test");
    dr = dt.NewRow();
    dr[0] = 1;
    dt.Rows.Add(dr);
    dr = dt.NewRow();
    dr[0] = 2;
    dt.Rows.Add(dr);
    dr = dt.NewRow();
    dr[0] = 3;
    dt.Rows.Add(dr);
    FpSpread1.Sheets[0].DataSource = dt;
    FarPoint.Web.Spread.StyleInfo si = new FarPoint.Web.Spread.StyleInfo("DataAreaDefault");
    si.Formatter = new myf();
    FpSpread1.ActiveSheetView.DefaultStyle = si;
    bool b;
    b = si.IsPropertySet(FarPoint.Web.Spread.SheetStyleProperty.Formatter);
    if (b)
    {
        Response.Write("The formatter has been set.");
    }

<Serializable()> 
Public Class myf
Implements FarPoint.Web.Spread.Renderer.IFormatter

Public Function Format(ByVal o As Object) As String Implements FarPoint.Web.Spread.Renderer.IFormatter.Format
Select Case o
Case 1
Return "Test1"
Case 2
Return "Test2"
Case 3
Return "Test3"
End Select
End Function

Public Function Parse(ByVal s As String) As Object Implements FarPoint.Web.Spread.Renderer.IFormatter.Parse
Select Case s
Case "Test1"
Return 1
Case "Test2"
Return 2
Case "Test3"
Return 3
End Select
End Function
End Class

If IsPostBack Then Return
Dim dt As New DataTable
Dim dr As DataRow
dt.Columns.Add("Test")
dr = dt.NewRow
dr.Item(0) = 1
dt.Rows.Add(dr)
dr = dt.NewRow
dr.Item(0) = 2
dt.Rows.Add(dr)
dr = dt.NewRow
dr.Item(0) = 3
dt.Rows.Add(dr)
FpSpread1.Sheets(0).DataSource = dt
Dim s As FarPoint.Web.Spread.SheetStyleProperty
Dim si As New FarPoint.Web.Spread.StyleInfo("DataAreaDefault")
si.Formatter = New myf
FpSpread1.ActiveSheetView.DefaultStyle = si
Dim b As Boolean
b = si.IsPropertySet(s.Formatter)
If b Then
Response.Write("The formatter has been set.")
End If