MESCIUS SPREAD for Windows Forms 17.0J
RemoveAt メソッド (NamedStyleCollection)

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

パラメータ

index
0が基準の、削除するスタイルのインデックス
例外
例外説明
System.IndexOutOfRangeException 指定されたインデックスは範囲外です。有効な値は0からコレクションの長さまでです。
次のサンプルコードは、コレクションの指定したインデックスから名前付きスタイルを削除します。
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.RemoveAt(0);
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.RemoveAt(0)
Label1.Text = "There are " & nsc.Count.ToString() & " named styles in the collection."
End If
参照

NamedStyleCollection クラス
NamedStyleCollection メンバ

 

 


© MESCIUS inc. All rights reserved.