'Declaration Public Overridable Sub Clear()
'Usage Dim instance As NamedStyleCollection instance.Clear()
public virtual void Clear()
'Declaration Public Overridable Sub Clear()
'Usage Dim instance As NamedStyleCollection instance.Clear()
public virtual void Clear()
FarPoint.Win.Spread.NamedStyleCollection nsc = new FarPoint.Win.Spread.NamedStyleCollection(); FarPoint.Win.Spread.NamedStyle ns1 = new FarPoint.Win.Spread.NamedStyle("StyleHeaders", "HeaderDefault"); FarPoint.Win.Spread.NamedStyle ns2 = new FarPoint.Win.Spread.NamedStyle("StyleData", "DataAreaDefault"); DialogResult dlg; ns1.BackColor = Color.LightBlue; ns2.BackColor = Color.Gray; nsc.AddRange(new Object[] {ns1, ns2}); fpSpread1.NamedStyles = nsc; fpSpread1.ActiveSheet.ColumnHeader.DefaultStyle = nsc[0]; fpSpread1.ActiveSheet.DefaultStyle = nsc[1]; label1.Text = "There are " + nsc.Count.ToString() + " named styles in the collection."; dlg = MessageBox.Show("Do you want to clear the styles from the collection?", "Clear", MessageBoxButtons.YesNo); if (dlg == DialogResult.Yes) { nsc.Clear(); label1.Text = "There are " + nsc.Count.ToString() + " named styles in the collection."; }
Dim nsc As New FarPoint.Win.Spread.NamedStyleCollection() Dim ns1 As New FarPoint.Win.Spread.NamedStyle("StyleHeaders", "HeaderDefault") Dim ns2 As New FarPoint.Win.Spread.NamedStyle("StyleData", "DataAreaDefault") Dim dlg As DialogResult ns1.BackColor = Color.LightBlue ns2.BackColor = Color.Gray nsc.AddRange(New Object() {ns1, ns2}) FpSpread1.NamedStyles = nsc; FpSpread1.ActiveSheet.ColumnHeader.DefaultStyle = nsc(0) FpSpread1.ActiveSheet.DefaultStyle = nsc(1) Label1.Text = "There are " & nsc.Count.ToString() & " named styles in the collection." dlg = MessageBox.Show("Do you want to clear the styles from the collection?", "Clear", MessageBoxButtons.YesNo) If dlg = DialogResult.Yes Then nsc.Clear() Label1.Text = "There are " & nsc.Count.ToString() & " named styles in the collection." End If