MESCIUS SPREAD for Windows Forms 15.0J
Clear メソッド (NamedStyleCollection)
使用例 

コレクションからすべての名前付きスタイルを削除します。
構文
'宣言
 
Public Overridable Sub Clear() 
public virtual void Clear()
使用例
次のサンプルコードは、NamedStyleCollectionオブジェクトからすべての名前付きスタイルを削除します。
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
参照

NamedStyleCollection クラス
NamedStyleCollection メンバ

 

 


© MESCIUS inc. All rights reserved.