PowerTools SPREAD for Windows Forms 8.0J
TableElementStyle コンストラクタ(TableBorder,Color,Color,RegularBoldItalicFontStyle,StrikeoutFontStyle,UnderlineFontStyle)


要素の罫線
要素の背景色
要素の前景色
要素のフォントスタイル
フォントの取り消し線スタイル
フォントの下線スタイル
指定した情報を使用してスタイルを作成します。
構文
'Declaration
 
Public Function New( _
   ByVal border As TableBorder, _
   ByVal backColor As Color, _
   ByVal foreColor As Color, _
   ByVal fontStyle As RegularBoldItalicFontStyle, _
   ByVal strikethrough As StrikeoutFontStyle, _
   ByVal underline As UnderlineFontStyle _
)
'使用法
 
Dim border As TableBorder
Dim backColor As Color
Dim foreColor As Color
Dim fontStyle As RegularBoldItalicFontStyle
Dim strikethrough As StrikeoutFontStyle
Dim underline As UnderlineFontStyle
 
Dim instance As New TableElementStyle(border, backColor, foreColor, fontStyle, strikethrough, underline)

パラメータ

border
要素の罫線
backColor
要素の背景色
foreColor
要素の前景色
fontStyle
要素のフォントスタイル
strikethrough
フォントの取り消し線スタイル
underline
フォントの下線スタイル
次のサンプルコードは、列要素スタイルを設定します。
FarPoint.Win.ComplexBorderSide bside = new FarPoint.Win.ComplexBorderSide(Color.Yellow);
FarPoint.Win.Spread.TableBorder tborder = new FarPoint.Win.Spread.TableBorder(bside);
FarPoint.Win.Spread.TableElementStyle testyle = new FarPoint.Win.Spread.TableElementStyle(tborder, Color.Red, Color.Blue, FarPoint.Win.Spread.RegularBoldItalicFontStyle.Bold, FarPoint.Win.Spread.StrikeoutFontStyle.Strikeout, FarPoint.Win.Spread.UnderlineFontStyle.None);
FarPoint.Win.Spread.TableStyle tstyle = fpSpread1.CreateTableStyle("Style1", FarPoint.Win.Spread.TableStyle.TableStyleLight2);
tstyle.FirstColumn = testyle;
fpSpread1.Sheets[0].Cells[1, 1].Text = "Last Name";
fpSpread1.Sheets[0].Cells[1, 2].Text = "Value";
fpSpread1.Sheets[0].Cells[2, 1].Text = "Smith";
fpSpread1.Sheets[0].Cells[2, 2].Value = 50;
fpSpread1.Sheets[0].Cells[3, 1].Text = "Vil";
fpSpread1.Sheets[0].Cells[3, 2].Value = 10;
fpSpread1.Sheets[0].Cells[4, 1].Text = "Press";
fpSpread1.Sheets[0].Cells[4, 2].Value = 78;
fpSpread1.TableStyleCollection.Add(tstyle);
FarPoint.Win.Spread.TableView table = fpSpread1.Sheets[0].AddTable("table", 1, 1, 5, 2, "Style1");
table.FirstColumn = true;
listBox1.Items.Add(testyle.StrikeOut);
listBox1.Items.Add(testyle.Underline);
Dim bside As New FarPoint.Win.ComplexBorderSide(Color.Yellow)
Dim tborder As New FarPoint.Win.Spread.TableBorder(bside)
Dim testyle As New FarPoint.Win.Spread.TableElementStyle(tborder, Color.Red, Color.Blue, FarPoint.Win.Spread.RegularBoldItalicFontStyle.Bold, FarPoint.Win.Spread.StrikeoutFontStyle.Strikeout, FarPoint.Win.Spread.UnderlineFontStyle.None)
Dim tstyle As FarPoint.Win.Spread.TableStyle
tstyle = FpSpread1.CreateTableStyle("Style1", FarPoint.Win.Spread.TableStyle.TableStyleLight2)
tstyle.FirstColumn = testyle
FpSpread1.Sheets(0).Cells(1, 1).Text = "Last Name"
FpSpread1.Sheets(0).Cells(1, 2).Text = "Value"
FpSpread1.Sheets(0).Cells(2, 1).Text = "Smith"
FpSpread1.Sheets(0).Cells(2, 2).Value = 50
FpSpread1.Sheets(0).Cells(3, 1).Text = "Vil"
FpSpread1.Sheets(0).Cells(3, 2).Value = 10
FpSpread1.Sheets(0).Cells(4, 1).Text = "Press"
FpSpread1.Sheets(0).Cells(4, 2).Value = 78
FpSpread1.TableStyleCollection.Add(tstyle)
Dim table As FarPoint.Win.Spread.TableView = FpSpread1.Sheets(0).AddTable("table", 1, 1, 5, 2, "Style1")
table.FirstColumn = True
ListBox1.Items.Add(testyle.StrikeOut)
ListBox1.Items.Add(testyle.Underline)
参照

TableElementStyle クラス
TableElementStyle メンバ
オーバーロード一覧

 

 


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