FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > TableElementStyle クラス > TableElementStyle コンストラクタ : 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)
public TableElementStyle( TableBorder border, Color backColor, Color foreColor, RegularBoldItalicFontStyle fontStyle, StrikeoutFontStyle strikethrough, UnderlineFontStyle 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)