MESCIUS SPREAD for Windows Forms 15.0J サンプルコード集
ヘッダをグラデーション表示する

ヘッダをグラデーション表示するにはGradientHeaderRendererオブジェクトを作成し、行/列/シートコーナーのレンダラに設定することで実現できます。

【実行例】

ヘッダのグラデーション表示

 private void Form1_Load(object sender, System.EventArgs e)
 {

  //列ヘッダをグラデーション表示にします
  FarPoint.Win.Spread.CellType.GradientHeaderRenderer gc1 = new FarPoint.Win.Spread.CellType.GradientHeaderRenderer();
  gc1.BottomColor = SystemColors.ControlDark;
  gc1.TopColor = SystemColors.ControlLightLight;
  gc1.Mode = System.Drawing.Drawing2D.LinearGradientMode.Vertical;
  fpSpread1.Sheets[0].ColumnHeader.Rows[0].Renderer = gc1;

  //行ヘッダをグラデーション表示にします
  FarPoint.Win.Spread.CellType.GradientHeaderRenderer gc2 = new FarPoint.Win.Spread.CellType.GradientHeaderRenderer();
  gc2.BottomColor = SystemColors.ControlDark;
  gc2.TopColor = SystemColors.ControlLightLight;
  gc2.Mode = System.Drawing.Drawing2D.LinearGradientMode.Vertical;
  fpSpread1.Sheets[0].RowHeader.Columns[0].Renderer = gc2;

  //シートコーナーをグラデーション表示にします
  FarPoint.Win.Spread.CellType.GradientHeaderRenderer gc3 = new FarPoint.Win.Spread.CellType.GradientHeaderRenderer();
  gc3.BottomColor = SystemColors.ControlDark;
  gc3.TopColor = SystemColors.ControlLightLight;
  gc3.Mode = System.Drawing.Drawing2D.LinearGradientMode.Vertical;
  fpSpread1.Sheets[0].SheetCornerStyle.Renderer = gc3;

  //行ヘッダ・列ヘッダのテキスト色を設定します
  fpSpread1.ActiveSheet.ColumnHeader.Rows[0].ForeColor = Color.RoyalBlue;
  fpSpread1.ActiveSheet.RowHeader.Columns[0].ForeColor = Color.RoyalBlue;

 }
 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

  '列ヘッダをグラデーション表示にします
  Dim gc1 As New FarPoint.Win.Spread.CellType.GradientHeaderRenderer
  gc1.BottomColor = SystemColors.ControlDark
  gc1.TopColor = SystemColors.ControlLightLight
  gc1.Mode = Drawing2D.LinearGradientMode.Vertical
  FpSpread1.Sheets(0).ColumnHeader.Rows(0).Renderer = gc1

  '行ヘッダをグラデーション表示にします
  Dim gc2 As New FarPoint.Win.Spread.CellType.GradientHeaderRenderer
  gc2.BottomColor = SystemColors.ControlDark
  gc2.TopColor = SystemColors.ControlLightLight
  gc2.Mode = Drawing2D.LinearGradientMode.Vertical
  FpSpread1.Sheets(0).RowHeader.Columns(0).Renderer = gc2

  'シートコーナーをグラデーション表示にします
  Dim gc3 As New FarPoint.Win.Spread.CellType.GradientHeaderRenderer
  gc3.BottomColor = SystemColors.ControlDark
  gc3.TopColor = SystemColors.ControlLightLight
  gc3.Mode = Drawing2D.LinearGradientMode.Vertical
  FpSpread1.Sheets(0).SheetCornerStyle.Renderer = gc3

  '行ヘッダ・列ヘッダのテキスト色を設定します
  FpSpread1.Sheets(0).ColumnHeader.Rows(0).ForeColor = Color.RoyalBlue
  FpSpread1.Sheets(0).RowHeader.Columns(0).ForeColor = Color.RoyalBlue

 End Sub

 

 


© MESCIUS inc. All rights reserved.