PowerTools SPREAD for Windows Forms 8.0J
Contains メソッド (DefaultSkins)


チェックする SheetSkin オブジェクト
コレクションが指定したスキンを含むかどうかを判定します。
構文
'Declaration
 
Public Shared Function Contains( _
   ByVal skin As SheetSkin _
) As Boolean
'使用法
 
Dim skin As SheetSkin
Dim value As Boolean
 
value = DefaultSkins.Contains(skin)
public static bool Contains( 
   SheetSkin skin
)

パラメータ

skin
チェックする SheetSkin オブジェクト

戻り値の型

Boolean:コレクション内でスキンが見つかった場合は True、それ以外の場合は False
次のサンプル コードは、DefaultSkins オブジェクトを作成し、使用可能なすべてのスキンをリスト コントロールに読み込みます。ユーザーがリストからスキンを選択すると、そのスキンが SPREADのシートに適用されます。
FarPoint.Win.Spread.DefaultSkins skin = new FarPoint.Win.Spread.DefaultSkins();
Object[] myarray = new Object[FarPoint.Win.Spread.DefaultSkins.Count];
foreach(FarPoint.Win.Spread.SheetSkin sk in FarPoint.Win.Spread.DefaultSkins.Skins)
{
listBox1.Items.Add(sk.Name);
}
FarPoint.Win.Spread.DefaultSkins.CopyTo(myarray,0);
listBox2.Items.Add(Convert.ToString(myarray.GetValue(4)));

private void listBox1_SelectedIndexChanged(object sender, System.EventArgs e)
{
FarPoint.Win.Spread.DefaultSkins skin = new FarPoint.Win.Spread.DefaultSkins();
FarPoint.Win.Spread.DefaultSkins.GetAt(listBox1.SelectedIndex).Apply(fpSpread1);
bool b;
int i;
foreach (FarPoint.Win.Spread.SheetSkin sk in FarPoint.Win.Spread.DefaultSkins.Skins)
{
b = FarPoint.Win.Spread.DefaultSkins.Contains(FarPoint.Win.Spread.DefaultSkins.Find(listBox1.SelectedItem.ToString()));
i = FarPoint.Win.Spread.DefaultSkins.IndexOf(FarPoint.Win.Spread.DefaultSkins.GetAt(listBox1.SelectedIndex));
textBox1.Text = b.ToString();
textBox2.Text = i.ToString();
}    
Dim skin As New FarPoint.Win.Spread.DefaultSkins()
Dim sk As FarPoint.Win.Spread.SheetSkin
Dim myarray(skin.Count())
For Each sk In skin.Skins
ListBox1.Items.Add(sk.Name)
Next
skin.CopyTo(myarray, 0)
ListBox2.Items.Add(Convert.ToString(myarray.GetValue(4)))

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim skin As New FarPoint.Win.Spread.DefaultSkins()
Dim sk As FarPoint.Win.Spread.SheetSkin
skin.GetAt(ListBox1.SelectedIndex).Apply(FpSpread1)
Dim b As Boolean
Dim i As Integer
For Each sk In skin.Skins
b = skin.Contains(skin.Find(ListBox1.SelectedItem))
i = skin.IndexOf(skin.GetAt(ListBox1.SelectedIndex))
TextBox1.Text = b.ToString()
TextBox2.Text = i.ToString()
Next
End Sub
参照

DefaultSkins クラス
DefaultSkins メンバ

 

 


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