Public ReadOnly Property OldStyle As NamedStyle

Dim instance As NamedStyleCollectionEventArgs
Dim value As NamedStyle
 
value = instance.OldStyle

public NamedStyle OldStyle {get;}

FarPoint.Web.Spread.NamedStyleCollection nsc;

private void PageLoad(object sender, System.EventArgs e)
{
    this.nsc = new FarPoint.Web.Spread.NamedStyleCollection();
    this.nsc.Changed += new FarPoint.Web.Spread.NamedStyleCollectionEventHandler(this.nscChanged);
    FarPoint.Web.Spread.NamedStyle ns = new FarPoint.Web.Spread.NamedStyle("StyleData", "DataAreaDefault"); 
    FarPoint.Web.Spread.NamedStyle ns1 = new FarPoint.Web.Spread.NamedStyle("HeaderData", "HeaderDefault"); 
    ns.BackColor = Color.Yellow; ns.Border = new FarPoint.Web.Spread.Border(BorderStyle.Double, Color.Blue); 
    ns1.BackColor = Color.Teal; ns1.Border = new FarPoint.Web.Spread.Border(BorderStyle.Double, Color.Red); 
    nsc.AddRange(new Object[] {ns, ns1}); 
    FpSpread1.NamedStyles.Add(ns1); 
    FpSpread1.ActiveSheetView.ColumnHeader.DefaultStyle = ns1;
    if(IsPostBack)
    {
        FpSpread1.ActiveSheetView.ColumnHeader.DefaultStyle = ns;
    }
}

private void nscChanged(object sender, FarPoint.Web.Spread.NamedStyleCollectionEventArgs e) 
{ 
    TextBox1.Text = e.OldStyle.ToString(); 
} 

Friend WithEvents nsc As FarPoint.Web.Spread.NamedStyleCollection

Private Sub PageLoad(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles MyBase.Load
    nsc = New FarPoint.Web.Spread.NamedStyleCollection
    Dim ns As New FarPoint.Web.Spread.NamedStyle("StyleData", "HeaderDefault") 
    Dim ns1 As New FarPoint.Web.Spread.NamedStyle("HeaderData", "HeaderDefault") 
    ns.BackColor = Color.Yellow ns.Border = New FarPoint.Web.Spread.Border(BorderStyle.Double, Color.Blue) 
    ns1.BackColor = Color.Teal ns1.Border = New FarPoint.Web.Spread.Border(BorderStyle.Double, Color.Red) 
    nsc.AddRange(New Object() {ns, ns1})
    FpSpread1.NamedStyles.Add(ns1) 
    FpSpread1.ActiveSheetView.ColumnHeader.DefaultStyle = ns1 
    If IsPostBack 
        Then FpSpread1.ActiveSheetView.ColumnHeader.DefaultStyle = ns 
    End If 
End Sub

Private Sub nscChanged(ByVal sender As Object, ByVal e As
    FarPoint.Web.Spread.NamedStyleCollectionEventArgs) Handles nsc.Changed TextBox1.Text = e.OldStyle.ToString() 
End Sub