FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > NamedStyleCollection クラス : Remove メソッド |
'Declaration Public Overridable Sub Remove( _ ByVal style As NamedStyle _ )
'使用法 Dim instance As NamedStyleCollection Dim style As NamedStyle instance.Remove(style)
public virtual void Remove( NamedStyle style )
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 remove StyleHeaders from the collection?", "Remove", MessageBoxButtons.YesNo); if (dlg == DialogResult.Yes) { nsc.Remove(ns1); 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 remove StyleHeaders from the collection?", "Remove", MessageBoxButtons.YesNo) If dlg = DialogResult.Yes Then nsc.Remove(ns1) Label1.Text = "There are " & nsc.Count.ToString() & " named styles in the collection." End If