Find メソッド (DefaultSkins)

Visual Basic
C#

'Declaration
 
Public Shared Function Find( _
   ByVal name As String _
) As SheetSkin

'使用法
 
Dim name As String
Dim value As SheetSkin
 
value = DefaultSkins.Find(name)

public static SheetSkin Find( 
   string name
)

パラメータ

name: 検索するスキンの名前

戻り値の型

コレクション内の指定した名前の SheetSkin オブジェクト。指定した名前のスキンが見つからなかった場合は Null

次のサンプルコードは、DefaultSkins オブジェクトを作成し、使用可能なすべてのスキンをリストコントロールに読み込みます。ユーザーがリストからスキンを選択すると、そのスキンが SPREADのシートに適用されます。

C#
Visual Basic

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 メンバ