Grouping イベント

ユーザーがグループ化を実行したときに発生します。

構文

Visual Basic
C#

'宣言
 
Public Event Grouping As GroupingEventHandler

public event GroupingEventHandler Grouping

イベントデータ

イベントハンドラが、このイベントに関連するデータを含む、GroupingEventArgs 型の引数を受け取りました。次の GroupingEventArgs プロパティには、このイベントの固有の情報が記載されます。

プロパティ	解説
Cancel	グループ化をキャンセルするかどうかを決定します。
GroupComparer	グループ比較子を取得または設定します。
SortInfo	ソート情報を取得します。

解説

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

使用例

次のサンプルコードは、Groupingイベントを使用します。

C#
Visual Basic

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_Grouping(object sender, FarPoint.Win.Spread.GroupingEventArgs e)
        {
            listBox1.Items.Add("grouping");
        }

Private Sub Form1_Load(sender As Object, e As 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_Grouping(sender As Object, e As FarPoint.Win.Spread.GroupingEventArgs) Handles fpSpread1.Grouping
ListBox1.Items.Add("grouping")
    End Sub

参照

FpSpread クラス
 FpSpread メンバ