PowerTools SPREAD for Windows Forms 8.0J
Grouped イベント


グループ化が終了したときに発生します。
構文
'Declaration
 
Public Event Grouped As EventHandler
'使用法
 
Dim instance As FpSpread
Dim handler As EventHandler
 
AddHandler instance.Grouped, handler
public event EventHandler Grouped
解説

このイベント ハンドラは、このイベントに関連するデータを含む EventHandler 型の引数を受け取ります。

このイベントは、ユーザーが行をグループ化したときに OnGrouped メソッドによって呼び出されます。

次のサンプルコードは、グループフッタを作成します。
private void Form1_Load(object sender, EventArgs e)
 {
  fpSpread1.Sheets[0].RowCount = 8;
  fpSpread1.Sheets[0].ColumnCount = 15;
  fpSpread1.Sheets[0].GroupBarInfo.Visible = true;
  fpSpread1.Sheets[0].AllowGroup = true;
  fpSpread1.Sheets[0].GroupFooterVisible = true;
  fpSpread1.Sheets[0].ColumnFooter.Visible = true;
  fpSpread1.Sheets[0].ColumnFooter.RowCount = 2;
  fpSpread1.Sheets[0].ColumnFooter.Columns[12].HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left;
  fpSpread1.Sheets[0].ColumnFooter.Cells[0, 12].RowSpan = 2;
  //Value

     for (int r = 0; r < fpSpread1.Sheets[0].RowCount; r++)
       {
          for (int j = 0; j < fpSpread1.Sheets[0].ColumnCount; j++)
          {
           fpSpread1.Sheets[0].Models.Data.SetValue(r, j, j + r * fpSpread1.Sheets[0].ColumnCount);
          }
       }

       int i = 0;
       fpSpread1.Sheets[0].ColumnFooter.SetAggregationType(0, 1, FarPoint.Win.Spread.Model.AggregationType.Sum);
       fpSpread1.Sheets[0].ColumnFooter.Cells[0, i].Value = "Sum";
 }

private void fpSpread1_Grouped(object sender, EventArgs e)
 {
  FarPoint.Win.Spread.Model.GroupDataModel gdm;
  gdm = (FarPoint.Win.Spread.Model.GroupDataModel)fpSpread1.ActiveSheet.Models.Data;
  gdm.GroupFooterVisible = true;
  FarPoint.Win.Spread.Model.Group g1 = (FarPoint.Win.Spread.Model.Group)gdm.Groups[1];           
  ((FarPoint.Win.Spread.Model.IAggregationSupport)g1.GroupFooter.DataModel).SetCellAggregationType(0, 0, FarPoint.Win.Spread.Model.AggregationType.Sum);
  fpSpread1.ActiveSheet.Models.Data = gdm;
  }
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      FpSpread1.Sheets(0).RowCount = 8
      FpSpread1.Sheets(0).ColumnCount = 15
      FpSpread1.Sheets(0).GroupBarInfo.Visible = True
      FpSpread1.Sheets(0).AllowGroup = True
      FpSpread1.Sheets(0).GroupFooterVisible = True
      FpSpread1.Sheets(0).ColumnFooter.Visible = True
      FpSpread1.Sheets(0).ColumnFooter.RowCount = 2
FpSpread1.Sheets(0).ColumnFooter.Columns(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left
      'Value
      Dim r As Integer
      Dim j As Integer
      For r = 0 To FpSpread1.Sheets(0).RowCount
          For j = 0 To FpSpread1.Sheets(0).ColumnCount
              FpSpread1.Sheets(0).Models.Data.SetValue(r, j, j + r * FpSpread1.Sheets(0).ColumnCount)
          Next j
      Next r
      Dim i As Integer
      i = 0
      FpSpread1.Sheets(0).ColumnFooter.SetAggregationType(0, 1, FarPoint.Win.Spread.Model.AggregationType.Sum)
      FpSpread1.Sheets(0).ColumnFooter.Cells(0, i).Value = "Sum"
  End Sub

  Private Sub FpSpread1_Grouped(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.Grouped
      Dim gdm As FarPoint.Win.Spread.Model.GroupDataModel
      Dim g1 As FarPoint.Win.Spread.Model.Group
      gdm = FpSpread1.Sheets(0).Models.Data
      gdm.GroupFooterVisible = True
      g1 = gdm.Groups(1)
      CType(g1.GroupFooter.DataModel, FarPoint.Win.Spread.Model.IAggregationSupport).SetCellAggregationType(0, 0, FarPoint.Win.Spread.Model.AggregationType.Sum)
      FpSpread1.ActiveSheet.Models.Data = gdm
  End Sub
参照

FpSpread クラス
FpSpread メンバ

 

 


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