PowerTools SPREAD for ASP.NET 8.0J
RemoveAt メソッド (NamedStyleCollection)

削除するスタイルのインデックス(ゼロから始まる)
コレクションの指定したインデックスから名前付きスタイル(NamedStyleオブジェクト)を削除します。
構文
'Declaration
 
Public Overridable Sub RemoveAt( _
   ByVal index As Integer _
) 
public virtual void RemoveAt( 
   int index
)

パラメータ

index
削除するスタイルのインデックス(ゼロから始まる)
例外
例外説明
System.IndexOutOfRangeException指定されたインデックスが有効範囲外です。「0〜コレクション内の合計数」の範囲で指定してください。
この例では、スタイルをコレクションの指定したインデックスから削除します。
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.RemoveAt(1);
    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.RemoveAt(1)
    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
参照

NamedStyleCollection クラス
NamedStyleCollection メンバ
AddRange メソッド
Add メソッド
Clear メソッド
CopyTo メソッド
Insert メソッド
Remove メソッド
Count プロパティ

 

 


© 2003-2015, GrapeCity inc. All rights reserved.