FarPoint.Web.Spread Assembly > FarPoint.Web.Spread Namespace > NamedStyleCollection Class : Remove Method |
'Declaration Public Overridable Sub Remove( _ ByVal style As NamedStyle _ )
'Usage Dim instance As NamedStyleCollection Dim style As NamedStyle instance.Remove(style)
public virtual void Remove( NamedStyle style )
FarPoint.Web.Spread.NamedStyleCollection nsc = new FarPoint.Web.Spread.NamedStyleCollection(); 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) { nsc.Remove(ns1); IEnumerator ie = nsc.GetEnumerator(); foreach(FarPoint.Web.Spread.NamedStyle n in nsc) { ie.MoveNext(); FpSpread1.NamedStyles.Add((FarPoint.Web.Spread.NamedStyle)ie.Current); FpSpread1.ActiveSheetView.ColumnHeader.DefaultStyle = (FarPoint.Web.Spread.NamedStyle)ie.Current; } }
Dim nsc As New FarPoint.Web.Spread.NamedStyleCollection Dim ns As New FarPoint.Web.Spread.NamedStyle("StyleData", "DataAreaDefault") Dim ns1 As New FarPoint.Web.Spread.NamedStyle("HeaderData", "HeaderDefault") Dim n As FarPoint.Web.Spread.NamedStyle 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 nsc.Remove(ns1) Dim ie As IEnumerator = nsc.GetEnumerator For Each n In nsc ie.MoveNext() FpSpread1.NamedStyles.Add(ie.Current) FpSpread1.ActiveSheetView.ColumnHeader.DefaultStyle = ie.Current Next End If
Target Platforms: Windows 7, Windows 8, Windows 10, Windows Vista, Windows Server 2003, Windows Server 2008, Windows Server 2012, Windows XP Professional