C1FlexGrid合计行解决方法

在C1FlexGrid使用过程中经常用到合计行，但是C1FlexGrid的属性中却没有最下端行或者最右端列的冻结，利用FlexFreeze类可以解决这个问题，将合计行一直显示在底部。

详细请参照代码

FrozenBottom类

Imports  System.Text
Imports  C1.Win.C1FlexGrid
Imports  System.Drawing

Public   Class FrozenBottom Class FrozenBottom

    Private dt As DataTable = Nothing       ''全部DataTable

    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dt = GetData()
        Me.C1FlexGrid1.DataSource = dt

        Me.C1FlexGrid1.AllowResizing = C1.Win.C1FlexGrid.AllowResizingEnum.None
        C1FlexGrid1.Rows(0).Height = 30 '' 
        C1FlexGrid1.Rows(C1FlexGrid1.Rows.Count - 1).AllowEditing = False

        C1FlexGrid1.Select(-1, -1)
        ''背景色
        For i As Int32 = 1 To C1FlexGrid1.Rows.Count - 2
            C1FlexGrid1.Rows(i).StyleNew.BackColor = Color.FromArgb(255, 255, 192)
        Next

        ''单元格背景色
        Dim sLightBlue As CellStyle = C1FlexGrid1.Styles.Add("LightBlue")
        sLightBlue.BackColor = Drawing.Color.LightBlue
        Dim sLightPink As CellStyle = C1FlexGrid1.Styles.Add("LightPink")
        sLightPink.BackColor = Drawing.Color.LightPink

        For i As Int32 = 1 To C1FlexGrid1.Rows.Count - 2
            If i Mod 2 = 1 Then
                C1FlexGrid1.SetCellStyle(i, 2, sLightBlue)
            Else
                C1FlexGrid1.SetCellStyle(i, 4, sLightPink)
            End If
            ''行号
            C1FlexGrid1(i, 0) = i.ToString
        Next

        ''列宽
        For i As Int32 = 1 To C1FlexGrid1.Cols.Count - 1
            C1FlexGrid1.Cols(i).Width = 100
        Next
        ''列冻结
        C1FlexGrid1.Cols.Frozen = 1
        ''最下端一行冻结
        Dim ffb As FlexFreeze.FlexFreezeBottom = New FlexFreeze.FlexFreezeBottom(Me.C1FlexGrid1, 1)

        ''最右列冻结()
        'Dim ffc As FlexFreeze.FlexFreezeRight = New FlexFreeze.FlexFreezeRight(Me.C1FlexGrid1, 1)

        ''最下端冻结行颜色
        C1FlexGrid1.Rows(C1FlexGrid1.Rows.Count - 1).StyleNew.BackColor = Color.Red

        ''冻结行Header
        C1FlexGrid1(C1FlexGrid1.Rows.Count - 1, 0) = "合计"
    End Sub


取得数据#Region "取得数据"

    Public Function GetData()Function GetData() As DataTable

        Dim dt As DataTable
        Dim dr As DataRow

        dt = New DataTable("TEST")
        dt.Columns.Add(New DataColumn("数量1", GetType(Integer)))
        dt.Columns.Add(New DataColumn("数量2", GetType(Integer)))
        dt.Columns.Add(New DataColumn("数量3", GetType(Integer)))
        dt.Columns.Add(New DataColumn("数量4", GetType(Integer)))
        dt.Columns.Add(New DataColumn("数量5", GetType(Integer)))
        dt.Columns.Add(New DataColumn("数量6", GetType(Integer)))
        dt.Columns.Add(New DataColumn("数量7", GetType(Integer)))
        dt.Columns.Add(New DataColumn("数量8", GetType(Integer)))
        dt.Columns.Add(New DataColumn("数量9", GetType(Integer)))
        dt.Columns.Add(New DataColumn("数量10", GetType(Integer)))

        Dim rdm As Random = New Random

        For i As Integer = 1 To 95
            dr = dt.NewRow()
            dr(0) = rdm.Next(100, 500)
            dr(1) = rdm.Next(100, 500)
            dr(2) = rdm.Next(100, 500)
            dr(3) = rdm.Next(100, 500)
            dr(4) = rdm.Next(100, 500)
            dr(5) = rdm.Next(100, 500)
            dr(6) = rdm.Next(100, 500)
            dr(7) = rdm.Next(100, 500)
            dr(8) = rdm.Next(100, 500)
            dr(9) = rdm.Next(100, 500)
            dt.Rows.Add(dr)
        Next

        Return dt
    End Function

#End Region

    Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

 FlexFreeze类（参照以前项目，注释未修改）

Imports  System
Imports  System.Drawing
Imports  System.Collections
Imports  System.ComponentModel
Imports  System.Windows.Forms
Imports  System.Data
Imports  C1.Win.C1FlexGrid

Public   Class FlexFreeze Class FlexFreeze

クラス変数#Region "クラス変数"
    Shared BACKCOLOR As Brush = Brushes.Beige
#End Region

FlexFreezeTop#Region " FlexFreezeTop "
    ' Panelクラスを継承し、FlexGridを使用したクラスです。
    ' パネルに含まれるグリッド(子グリッド)は、固定行が見えないように位置されます。
    ' また、最下部「n」列が見えるように、子グリッドもサイズ調整され、スクロールされます。
    ' 
    ' 子グリッドは、親FlexGridに結び付けられます。
    ' したがって、根本的なグリッドモデル(データ、レイアウト、スタイル、選択など)を共有します。
    ' 
    ' 全体のコントロール(パネルおよびパネル内のグリッド)は
    ' 親のFlexGridに関連付けられ、その最上部に位置します。
    ' 
    ' このように、そのコントロールは、常に親グリッドの最上部「n」列を示します。
    Public Class FlexFreezeTopClass FlexFreezeTop
        Inherits Panel

Fields#Region " Fields "

        Dim WithEvents _frz As C1.Win.C1FlexGrid.C1FlexGrid
        Dim WithEvents _main As C1.Win.C1FlexGrid.C1FlexGrid
        Dim _rows As Int32

#End Region

Constructors#Region " Constructors "

        Public Sub New()Sub New(ByVal main As C1.Win.C1FlexGrid.C1FlexGrid, ByVal rows As Int32)
            MyBase.New()

            _main = main
            _rows = rows

            ' 最上部に静止行を持つ、子グリッドを生成します。
            _frz = New C1.Win.C1FlexGrid.C1FlexGrid
            _frz.ScrollBars = ScrollBars.None
            _frz.BorderStyle = C1.Win.C1FlexGrid.Util.BaseControls.BorderStyleEnum.None
            _frz.DrawMode = DrawModeEnum.OwnerDraw
            _frz.KeyActionEnter = KeyActionEnum.None
            Controls.Add(_frz)

            ' 子グリッドと親グリッドを接続します。(データやレイアウト、選択状態を共有)
            _frz.DataSource = main

            ' 親グリッドに追加します。
            main.Controls.Add(Me)

            ' 初期化
            AdjustLayout()
        End Sub

#End Region

Friend Methods#Region " Friend Methods "

        Friend Sub AdjustLayout()Sub AdjustLayout()
            ' 最上部に表示する静止行のインデックスを取得します。
            Dim rows As RowCollection = _main.Rows
            Dim r2 As Int32 = rows.Count - 1
            Dim r1 As Int32 = rows.Fixed + _rows - 1
            If r2 <= r1 Then Return

            ' コントロールのサイズや位置を設定します。
            Dim rc As Rectangle = _main.ClientRectangle
            Dim hei As Int32 = rows(r1).Bottom - rows(rows.Fixed).Top
            rc.Y = rows(rows.Fixed).Top
            rc.Height = hei
            Bounds = rc

            ' 固定行を隠すために、子グリッドを調節します。
            rc = ClientRectangle
            hei = rows(rows.Fixed + rows.Frozen).Top
            rc.Y -= hei
            rc.Height += hei
            _frz.Bounds = rc

            ' スクロール位置を同期させます。
            SynchScrollPosition(False)
        End Sub

        Friend Sub SynchScrollPosition()Sub SynchScrollPosition(ByVal synchMain As Boolean)
            Dim pos As Point

            ' 親グリッド上のXスクロール位置を同期させます。
            If synchMain Then
                pos = _frz.ScrollPosition
                pos.Y = _main.ScrollPosition.Y
                _main.ScrollPosition = pos
            End If

            ' 親グリッドの静止行の位置をXスクロール位置をに同期させます。
            pos = _main.ScrollPosition
            pos.Y = 0
            _frz.ScrollPosition = pos

            ' すぐにすべてを更新します。
            _main.Update()
            _frz.Update()
        End Sub

#End Region

Events#Region " Events "

        ' 通常のスクロールエリアと異なって見せるようにします。(描画時)
        Private Sub _frz_OwnerDrawCell()Sub _frz_OwnerDrawCell(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.OwnerDrawCellEventArgs) Handles _frz.OwnerDrawCell
            If e.Style.BackColor.Equals(_frz.Styles.Normal.BackColor) Then
                e.Graphics.FillRectangle(FlexFreeze.BACKCOLOR, e.Bounds)
                e.DrawCell(DrawCellFlags.Border Or DrawCellFlags.Content)
            End If
        End Sub

        ' 通常のスクロールエリアと異なって見せるようにします。(編集時)
        Private Sub _frz_SetupEditor()Sub _frz_SetupEditor(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RowColEventArgs) Handles _frz.SetupEditor
            _frz.Editor.BackColor = Color.Beige
        End Sub

        ' 親グリッドがサイズ変更した場合は、レイアウトを調節します。
        Private Sub _main_Resize()Sub _main_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles _main.Resize, _main.VisibleChanged
            AdjustLayout()
        End Sub

        ' スクロールを同期させます。
        Private Sub _main_AfterScroll()Sub _main_AfterScroll(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RangeEventArgs) Handles _main.AfterScroll
            SynchScrollPosition(False)
        End Sub

        Private Sub _frz_AfterScroll()Sub _frz_AfterScroll(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RangeEventArgs) Handles _frz.AfterScroll
            ' 子グリッドがフォーカスを持っていて、
            ' ユーザーが静止行エリア以外を選択している場合、親グリッドをスクロールします。
            If _frz.Focused Then
                Dim row As Int32 = Math.Min(_frz.Row, _frz.RowSel)
                Dim bot As Int32 = _main.Rows(row).Bottom + _main.ScrollPosition.Y
                If bot > Top Then
                    ' マウスによる選択ではない場合、親グリッドにフォーカスを与えます。
                    If Not _frz.Capture Then _main.Focus()
                    _main.TopRow = _main.Row
                End If
            End If
            SynchScrollPosition(True)
        End Sub

        ' 大きな変更 (行数や列数の変更、リサイズ、ソートなど) の後は、
        ' レイアウトを調節します。
        Private Sub _main_GridChanged()Sub _main_GridChanged(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.GridChangedEventArgs) Handles _main.GridChanged
            Select Case e.GridChangedType
                Case GridChangedTypeEnum.GridChanged, GridChangedTypeEnum.LayoutChanged
                    AdjustLayout()
            End Select
        End Sub
#End Region

    End Class
#End Region

FlexFreezeBottom#Region " FlexFreezeBottom "
    ' Panelクラスを継承し、FlexGridを使用したクラスです。
    ' パネルに含まれるグリッド(子グリッド)は、固定行が見えないように位置されます。
    ' また、最上部「n」列が見えるように、子グリッドもサイズ調整され、スクロールされます。
    ' 
    ' 子グリッドは、親FlexGridに結び付けられます。
    ' したがって、根本的なグリッドモデル(データ、レイアウト、スタイル、選択など)を共有します。
    ' 
    ' 全体のコントロール(パネルおよびパネル内のグリッド)は
    ' 親のFlexGridに関連付けられ、その最下部に位置します。
    ' 
    ' このように、そのコントロールは、常に親グリッドの最下部「n」列を示します。
    Public Class FlexFreezeBottomClass FlexFreezeBottom
        Inherits Panel

Fields#Region " Fields "

        Dim WithEvents _frz As C1.Win.C1FlexGrid.C1FlexGrid
        Dim WithEvents _main As C1.Win.C1FlexGrid.C1FlexGrid
        Dim _rows As Int32

#End Region

Constructors#Region " Constructors "

        Public Sub New()Sub New( _
            ByVal main As C1.Win.C1FlexGrid.C1FlexGrid, ByVal rows As Int32)
            MyBase.New()

            _main = main
            _rows = rows

            ' 最下部に静止行を持つ、子グリッドを生成します。
            _frz = New C1.Win.C1FlexGrid.C1FlexGrid
            _frz.ScrollBars = ScrollBars.None
            _frz.BorderStyle = C1.Win.C1FlexGrid.Util.BaseControls.BorderStyleEnum.None
            _frz.DrawMode = DrawModeEnum.OwnerDraw
            _frz.KeyActionEnter = KeyActionEnum.None
            Controls.Add(_frz)

            ' 子グリッドと親グリッドを接続します。(データやレイアウト、選択状態を共有)
            _frz.DataSource = main

            ' 親グリッドに追加します。
            main.Controls.Add(Me)

            ' 初期化
            AdjustLayout()
        End Sub

#End Region

Friend Methods#Region " Friend Methods "

        Friend Sub AdjustLayout()Sub AdjustLayout()
            ' 最下部に表示する静止行のインデックスを取得します。
            Dim rows As RowCollection = _main.Rows
            Dim r2 As Int32 = rows.Count - 1
            Dim r1 As Int32 = r2 - _rows + 1
            If r1 <= rows.Fixed Then r1 = rows.Fixed

            ' 親グリッドが十分に大きい場合は、コントロールを隠します。
            Visible = (r1 <= r2)
            If Not Visible Then Return

            ' コントロールのサイズや位置を設定します。
            Dim rc As Rectangle = _main.ClientRectangle
            If rows(r2).Bottom <= rc.Bottom Then
                Visible = False
                Return
            End If
            Dim hei As Int32 = rows(r2).Bottom - rows(r1).Top + 1
            rc.Y = rc.Bottom - hei
            rc.Height = hei
            Bounds = rc

            ' 固定行を隠すために、子グリッドを調節します。
            rc = ClientRectangle
            hei = rows(rows.Fixed + rows.Frozen).Top
            rc.Y -= hei
            rc.Height += hei
            _frz.Bounds = rc

            ' スクロール位置を同期させます。
            SynchScrollPosition(False)
        End Sub

        Friend Sub SynchScrollPosition()Sub SynchScrollPosition(ByVal synchMain As Boolean)
            Dim pos As Point

            ' 親グリッド上のXスクロール位置を同期させます。
            If synchMain Then
                pos = _frz.ScrollPosition
                pos.Y = _main.ScrollPosition.Y
                _main.ScrollPosition = pos
            End If

            ' 親グリッドの静止行の位置をXスクロール位置をに同期させます。
            pos = _main.ScrollPosition
            pos.Y = 0 - _main.Rows(_main.Rows.Count - 1).Bottom
            _frz.ScrollPosition = pos

            ' すぐにすべてを更新します。
            _main.Update()
            _frz.Update()
        End Sub

#End Region

Events#Region " Events "

        ' 通常のスクロールエリアと異なって見せるようにします。(描画時)
        Private Sub _frz_OwnerDrawCell()Sub _frz_OwnerDrawCell(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.OwnerDrawCellEventArgs) Handles _frz.OwnerDrawCell
            If e.Style.BackColor.Equals(_frz.Styles.Normal.BackColor) Then
                e.Graphics.FillRectangle(FlexFreeze.BACKCOLOR, e.Bounds)
                e.DrawCell(DrawCellFlags.Border Or DrawCellFlags.Content)
            End If
        End Sub

        ' 通常のスクロールエリアと異なって見せるようにします。(編集時)
        Private Sub _frz_SetupEditor()Sub _frz_SetupEditor(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RowColEventArgs) Handles _frz.SetupEditor
            _frz.Editor.BackColor = Color.Beige
        End Sub

        ' 親グリッドがサイズ変更した場合は、レイアウトを調節します。
        Private Sub _main_Resize()Sub _main_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles _main.Resize, _main.VisibleChanged
            AdjustLayout()
        End Sub

        ' スクロールを同期させます。
        Private Sub _main_AfterScroll()Sub _main_AfterScroll(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RangeEventArgs) Handles _main.AfterScroll
            SynchScrollPosition(False)
        End Sub

        Private Sub _frz_AfterScroll()Sub _frz_AfterScroll(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RangeEventArgs) Handles _frz.AfterScroll
            ' 子グリッドがフォーカスを持っていて、
            ' ユーザーが静止行エリア以外を選択している場合、親グリッドをスクロールします。
            If _frz.Focused Then
                Dim row As Int32 = Math.Min(_frz.Row, _frz.RowSel)
                Dim bot As Int32 = _main.Rows(row).Bottom + _main.ScrollPosition.Y
                If bot > Top Then
                    ' マウスによる選択ではない場合、親グリッドにフォーカスを与えます。
                    If Not _frz.Capture Then _main.Focus()
                    _main.TopRow = _main.Row
                End If
            End If
            SynchScrollPosition(True)

        End Sub

        ' ユーザーが親グリッド上で、下側に選択範囲を広げた場合、
        ' 下側にスクロールさせます。
        Private Sub _main_SelChange()Sub _main_SelChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles _main.SelChange
            ' 親グリッドが焦点を持っている場合に限ります。
            If Not _main.Focused Then Return

            ' 選択範囲の下側を計算します。
            Dim row As Int32 = Math.Max(_main.Row, _main.RowSel)
            Dim bot As Int32 = _main.Rows(row).Bottom + _main.ScrollPosition.Y

            ' 静止行エリアを越えた場合に、スクロールします。
            If bot > Top Then _main.TopRow += 1
        End Sub

        ' 大きな変更 (行数や列数の変更、リサイズ、ソートなど) の後は、
        ' レイアウトを調節します。
        Private Sub _main_GridChanged()Sub _main_GridChanged(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.GridChangedEventArgs) Handles _main.GridChanged
            Select Case e.GridChangedType
                Case GridChangedTypeEnum.GridChanged, GridChangedTypeEnum.LayoutChanged
                    AdjustLayout()
            End Select
        End Sub
#End Region

    End Class
#End Region

FlexFreezeLeft#Region " FlexFreezeLeft "
    ' Panelクラスを継承し、FlexGridを使用したクラスです。
    ' パネルに含まれるグリッド(子グリッド)は、固定行が見えないように位置されます。
    ' また、最左部「n」列が見えるように、子グリッドもサイズ調整され、スクロールされます。
    ' 
    ' 子グリッドは、親FlexGridに結び付けられます。
    ' したがって、根本的なグリッドモデル(データ、レイアウト、スタイル、選択など)を共有します。
    ' 
    ' 全体のコントロール(パネルおよびパネル内のグリッド)は
    ' 親のFlexGridに関連付けられ、その最左部に位置します。
    ' 
    ' このように、そのコントロールは、常に親グリッドの最左部「n」列を示します。
    Public Class FlexFreezeLeftClass FlexFreezeLeft
        Inherits Panel

Fields#Region " Fields "

        Dim WithEvents _frz As C1.Win.C1FlexGrid.C1FlexGrid
        Dim WithEvents _main As C1.Win.C1FlexGrid.C1FlexGrid
        Dim _cols As Int32

#End Region

        Public ReadOnly Property FreezeFlexGrid()Property FreezeFlexGrid() As C1.Win.C1FlexGrid.C1FlexGrid
            Get
                Return _frz
            End Get
        End Property

Constructors#Region " Constructors "

        Public Sub New()Sub New(ByVal main As C1.Win.C1FlexGrid.C1FlexGrid, ByVal cols As Int32)
            MyBase.New()

            _main = main
            _cols = cols

            ' 最上部に静止行を持つ、子グリッドを生成します。
            _frz = New C1.Win.C1FlexGrid.C1FlexGrid
            _frz.ScrollBars = ScrollBars.None
            _frz.BorderStyle = C1.Win.C1FlexGrid.Util.BaseControls.BorderStyleEnum.None
            _frz.DrawMode = DrawModeEnum.OwnerDraw
            _frz.KeyActionEnter = KeyActionEnum.None
            Controls.Add(_frz)

            ' 子グリッドと親グリッドを接続します。(データやレイアウト、選択状態を共有)
            _frz.DataSource = main

            ' 親グリッドに追加します。
            main.Controls.Add(Me)

            ' 初期化
            AdjustLayout()
        End Sub

#End Region

Friend Methods#Region " Friend Methods "

        Friend Sub AdjustLayout()Sub AdjustLayout()
            ' 最上部に表示する静止行のインデックスを取得します。
            Dim cols As ColumnCollection = _main.Cols
            Dim r2 As Int32 = cols.Count - 1
            Dim r1 As Int32 = cols.Fixed + _cols - 1
            If r2 <= r1 Then Return

            ' コントロールのサイズや位置を設定します。
            Dim rc As Rectangle = _main.ClientRectangle
            Dim wid As Int32 = cols(r1).Right - cols(cols.Fixed).Left
            rc.X = cols(cols.Fixed).Left
            rc.Width = wid
            Bounds = rc

            ' 固定行を隠すために、子グリッドを調節します。
            rc = ClientRectangle
            wid = cols(cols.Fixed + cols.Frozen).Left
            rc.X -= wid
            rc.Width += wid
            _frz.Bounds = rc

            ' スクロール位置を同期させます。
            SynchScrollPosition(False)
        End Sub

        Friend Sub SynchScrollPosition()Sub SynchScrollPosition(ByVal synchMain As Boolean)
            Dim pos As Point

            ' 親グリッド上のXスクロール位置を同期させます。
            If synchMain Then
                pos = _frz.ScrollPosition
                pos.X = _main.ScrollPosition.X
                _main.ScrollPosition = pos
            End If

            ' 親グリッドの静止行の位置をXスクロール位置をに同期させます。
            pos = _main.ScrollPosition
            pos.X = 0
            _frz.ScrollPosition = pos

            ' すぐにすべてを更新します。
            _main.Update()
            _frz.Update()
        End Sub

#End Region

Events#Region " Events "

        ' 通常のスクロールエリアと異なって見せるようにします。(描画時)
        Private Sub _frz_OwnerDrawCell()Sub _frz_OwnerDrawCell(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.OwnerDrawCellEventArgs) Handles _frz.OwnerDrawCell
            If e.Style.BackColor.Equals(_frz.Styles.Normal.BackColor) Then
                e.Graphics.FillRectangle(FlexFreeze.BACKCOLOR, e.Bounds)
                e.DrawCell(DrawCellFlags.Border Or DrawCellFlags.Content)
            End If
        End Sub

        ' 通常のスクロールエリアと異なって見せるようにします。(編集時)
        Private Sub _frz_SetupEditor()Sub _frz_SetupEditor(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RowColEventArgs) Handles _frz.SetupEditor
            _frz.Editor.BackColor = Color.Beige
        End Sub

        ' 親グリッドがサイズ変更した場合は、レイアウトを調節します。
        Private Sub _main_Resize()Sub _main_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles _main.Resize, _main.VisibleChanged
            AdjustLayout()
        End Sub

        ' スクロールを同期させます。
        Private Sub _main_AfterScroll()Sub _main_AfterScroll(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RangeEventArgs) Handles _main.AfterScroll
            SynchScrollPosition(False)
        End Sub

        Private Sub _frz_AfterScroll()Sub _frz_AfterScroll(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RangeEventArgs) Handles _frz.AfterScroll
            ' 子グリッドがフォーカスを持っていて、
            ' ユーザーが静止行エリア以外を選択している場合、親グリッドをスクロールします。
            If _frz.Focused Then
                Dim col As Int32 = Math.Min(_frz.Col, _frz.ColSel)
                Dim bot As Int32 = _main.Cols(col).Right + _main.ScrollPosition.X
                If bot > Left Then
                    ' マウスによる選択ではない場合、親グリッドにフォーカスを与えます。
                    If Not _frz.Capture Then _main.Focus()
                    _main.LeftCol = _main.Col
                End If
            End If

            SynchScrollPosition(True)

        End Sub


        ' 大きな変更 (行数や列数の変更、リサイズ、ソートなど) の後は、
        ' レイアウトを調節します。
        Private Sub _main_GridChanged()Sub _main_GridChanged(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.GridChangedEventArgs) Handles _main.GridChanged
            Select Case e.GridChangedType
                Case GridChangedTypeEnum.GridChanged, GridChangedTypeEnum.LayoutChanged
                    AdjustLayout()
            End Select
        End Sub
#End Region

    End Class
#End Region

FlexFreezeRight#Region " FlexFreezeRight "
    ' Panelクラスを継承し、FlexGridを使用したクラスです。
    ' パネルに含まれるグリッド(子グリッド)は、固定行が見えないように位置されます。
    ' また、最右部「n」列が見えるように、子グリッドもサイズ調整され、スクロールされます。
    ' 
    ' 子グリッドは、親FlexGridに結び付けられます。
    ' したがって、根本的なグリッドモデル(データ、レイアウト、スタイル、選択など)を共有します。
    ' 
    ' 全体のコントロール(パネルおよびパネル内のグリッド)は
    ' 親のFlexGridに関連付けられ、その最右部に位置します。
    ' 
    ' このように、そのコントロールは、常に親グリッドの最右部「n」列を示します。
    Public Class FlexFreezeRightClass FlexFreezeRight
        Inherits Panel

Fields#Region " Fields "

        Dim WithEvents _frz As C1.Win.C1FlexGrid.C1FlexGrid
        Dim WithEvents _main As C1.Win.C1FlexGrid.C1FlexGrid
        Dim _cols As Int32

#End Region

Constructors#Region " Constructors "

        Public Sub New()Sub New(ByVal main As C1.Win.C1FlexGrid.C1FlexGrid, ByVal cols As Int32)
            MyBase.New()

            _main = main
            _cols = cols

            ' 最下部に静止行を持つ、子グリッドを生成します。
            _frz = New C1.Win.C1FlexGrid.C1FlexGrid
            _frz.ScrollBars = ScrollBars.None
            _frz.BorderStyle = C1.Win.C1FlexGrid.Util.BaseControls.BorderStyleEnum.None
            _frz.DrawMode = DrawModeEnum.OwnerDraw
            _frz.KeyActionEnter = KeyActionEnum.None
            Controls.Add(_frz)

            ' 子グリッドと親グリッドを接続します。(データやレイアウト、選択状態を共有)
            _frz.DataSource = main

            ' 親グリッドに追加します。
            main.Controls.Add(Me)

            ' 初期化
            AdjustLayout()
        End Sub

#End Region

Friend Methods#Region " Friend Methods "

        Friend Sub AdjustLayout()Sub AdjustLayout()
            ' 最下部に表示する静止行のインデックスを取得します。
            Dim cols As ColumnCollection = _main.Cols
            Dim r2 As Int32 = cols.Count - 1
            Dim r1 As Int32 = r2 - _cols + 1
            If r1 <= cols.Fixed Then r1 = cols.Fixed

            ' 親グリッドが十分に大きい場合は、コントロールを隠します。
            Visible = (r1 <= r2)
            If Not Visible Then Return

            ' コントロールのサイズや位置を設定します。
            Dim rc As Rectangle = _main.ClientRectangle
            If cols(r2).Right <= rc.Right Then
                Visible = False
                Return
            End If
            Dim wid As Int32 = cols(r2).Right - cols(r1).Left + 1
            rc.X = rc.Right - wid
            rc.Width = wid
            Bounds = rc

            ' 固定行を隠すために、子グリッドを調節します。
            rc = ClientRectangle
            wid = cols(cols.Fixed + cols.Frozen).Left
            rc.X -= wid
            rc.Width += wid
            _frz.Bounds = rc

            ' スクロール位置を同期させます。
            SynchScrollPosition(False)
        End Sub

        Friend Sub SynchScrollPosition()Sub SynchScrollPosition(ByVal synchMain As Boolean)
            Dim pos As Point

            ' 親グリッド上のXスクロール位置を同期させます。
            If synchMain Then
                pos = _frz.ScrollPosition
                pos.X = _main.ScrollPosition.X
                _main.ScrollPosition = pos
            End If

            ' 親グリッドの静止行の位置をXスクロール位置をに同期させます。
            pos = _main.ScrollPosition
            pos.X = 0 - _main.Cols(_main.Cols.Count - 1).Right
            _frz.ScrollPosition = pos

            ' すぐにすべてを更新します。
            _main.Update()
            _frz.Update()
        End Sub

#End Region

Events#Region " Events "

        ' 通常のスクロールエリアと異なって見せるようにします。(描画時)
        Private Sub _frz_OwnerDrawCell()Sub _frz_OwnerDrawCell(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.OwnerDrawCellEventArgs) Handles _frz.OwnerDrawCell
            If e.Style.BackColor.Equals(_frz.Styles.Normal.BackColor) Then
                e.Graphics.FillRectangle(FlexFreeze.BACKCOLOR, e.Bounds)
                e.DrawCell(DrawCellFlags.Border Or DrawCellFlags.Content)
            End If
        End Sub

        ' 通常のスクロールエリアと異なって見せるようにします。(編集時)
        Private Sub _frz_SetupEditor()Sub _frz_SetupEditor(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RowColEventArgs) Handles _frz.SetupEditor
            _frz.Editor.BackColor = Color.Beige
        End Sub

        ' 親グリッドがサイズ変更した場合は、レイアウトを調節します。
        Private Sub _main_Resize()Sub _main_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles _main.Resize, _main.VisibleChanged
            AdjustLayout()
        End Sub

        ' スクロールを同期させます。
        Private Sub _main_AfterScroll()Sub _main_AfterScroll(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RangeEventArgs) Handles _main.AfterScroll
            SynchScrollPosition(False)
        End Sub

        Private Sub _frz_AfterScroll()Sub _frz_AfterScroll(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RangeEventArgs) Handles _frz.AfterScroll
            ' 子グリッドがフォーカスを持っていて、
            ' ユーザーが静止行エリア以外を選択している場合、親グリッドをスクロールします。
            If _frz.Focused Then
                Dim col As Int32 = Math.Min(_frz.Col, _frz.ColSel)
                Dim bot As Int32 = _main.Cols(col).Right + _main.ScrollPosition.X
                If bot > Left Then
                    ' マウスによる選択ではない場合、親グリッドにフォーカスを与えます。
                    If Not _frz.Capture Then _main.Focus()
                    _main.LeftCol = _main.Col
                End If
            End If
            SynchScrollPosition(True)
        End Sub

        ' ユーザーが親グリッド上で、下側に選択範囲を広げた場合、
        ' 下側にスクロールさせます。
        Private Sub _main_SelChange()Sub _main_SelChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles _main.SelChange
            ' 親グリッドが焦点を持っている場合に限ります。
            If Not _main.Focused Then Return

            ' 選択範囲の下側を計算します。
            Dim col As Int32 = Math.Max(_main.Col, _main.ColSel)
            Dim bot As Int32 = _main.Cols(col).Right + _main.ScrollPosition.X

            ' 静止行エリアを越えた場合に、スクロールします。
            If bot > Left Then _main.LeftCol += 1
        End Sub

        ' 大きな変更 (行数や列数の変更、リサイズ、ソートなど) の後は、
        ' レイアウトを調節します。
        Private Sub _main_GridChanged()Sub _main_GridChanged(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.GridChangedEventArgs) Handles _main.GridChanged
            Select Case e.GridChangedType
                Case GridChangedTypeEnum.GridChanged, GridChangedTypeEnum.LayoutChanged
                    AdjustLayout()
            End Select
        End Sub
#End Region

    End Class
#End Region

End Class

效果如下：

在FlexFreeze类中分别有上下左右冻结的四个方法
        FlexFreeze.FlexFreezeLeft()
        FlexFreeze.FlexFreezeRight()
        FlexFreeze.FlexFreezeTop()
        FlexFreeze.FlexFreezeBottom()
FlexGrid自带的行列冻结分别是上和左，所以基本上用到这个类的也就是下端行冻结或者是右端列冻结
使用方法为

Dim ffb As FlexFreeze.FlexFreezeBottom = New FlexFreeze.FlexFreezeBottom(Me.C1FlexGrid1, 1)
Me.C1FlexGrid1为要冻结的FlexGrid，1 表示冻结1行。