SPREAD for Windows Forms 下箭头追加行

?

''' <summary>

''' 下矢印の動作クラス

''' </summary>

''' <remarks></remarks>

Public Class DownArrowActionDouble

 

    ' Actionクラスを継承したサブクラスを作成します

    Inherits FarPoint.Win.Spread.Action

 

    Public Event FormartRow(ByVal sender As Object, ByVal e As FormatRowEventArgs)

    Public Event CheckRow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)

    Public Event LeaveCellArrow(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.LeaveCellEventArgs)

 

    Public Overrides Sub PerformAction(ByVal sender As Object)

 

        If TypeOf sender Is FarPoint.Win.Spread.SpreadView Then

            ' アクティブシートを取得します

            Dim spread As FarPoint.Win.Spread.SpreadView = CType(sender, FarPoint.Win.Spread.SpreadView)

            Dim sheet As FarPoint.Win.Spread.SheetView = spread.Sheets(spread.ActiveSheetIndex)

 

            ' アクティブセルの行列インデックスを取得します

            Dim Row As Integer = sheet.ActiveRowIndex

            Dim Col As Integer = sheet.ActiveColumnIndex

 

            Dim EvenRow As Integer

            Dim OddROw As Integer

            If Row Mod 2 = 0 Then

                EvenRow = Row

                OddROw = Row + 1

            Else

                EvenRow = Row - 1

                OddROw = Row

            End If

 

            ' 移動先のセルの行列インデックス用変数を宣言します

            Dim NewRow As Integer

            Dim NewColumn As Integer

 

            Dim isAddRow As Boolean

            isAddRow = (Row = sheet.RowCount - 1 OrElse (Row = sheet.RowCount - 2 And sheet.Cells(Row + 1, Col).Locked = True))

            Dim isMoveNext As Boolean

            isMoveNext = True

 

            Dim e As New System.ComponentModel.CancelEventArgs

            If Row = OddROw OrElse (Row = EvenRow And sheet.Cells(Row + 1, Col).Locked = True) Then

                RaiseEvent CheckRow(Me, e)

            End If

            isMoveNext = Not e.Cancel

 

            If isAddRow And e.Cancel = False Then

                sheet.RowCount = sheet.RowCount + 2

                RaiseEvent FormartRow(Me, New FormatRowEventArgs(sheet.RowCount - 2, Col))

            End If

 

            If isMoveNext Then

                NewRow = Row

                For i As Integer = Row + 1 To sheet.RowCount - 1

                    If sheet.Cells(i, Col).Locked = False Then

                        NewRow = i

                        Exit For

                    End If

                Next

                NewColumn = Col

            End If

 

            ' 移動先のセルがシート上に存在する場合

            If isMoveNext = True And NewRow < sheet.RowCount And NewColumn < sheet.ColumnCount Then

                Dim ss1 As FarPoint.Win.Spread.SpreadView = spread.GetRootWorkbook

                RaiseEvent LeaveCellArrow(spread, New FarPoint.Win.Spread.LeaveCellEventArgs(ss1, Row, Col, NewRow, NewColumn))

                ' アクティブセルを設定します

                sheet.SetActiveCell(NewRow, NewColumn)

                spread.ShowActiveCell(FarPoint.Win.Spread.VerticalPosition.Nearest, FarPoint.Win.Spread.HorizontalPosition.Nearest)

            End If

        End If

    End Sub

 

End Class

 

Public Class CheckRowEventArgs

 

    Inherits System.ComponentModel.CancelEventArgs

 

    Dim m_IsBlankRow As Boolean

    Public Property IsBlankRow() As Boolean

        Get

            Return m_IsBlankRow

        End Get

        Set(ByVal value As Boolean)

            m_IsBlankRow = value

        End Set

    End Property

 

End Class

 

 

Public Class FormatRowEventArgs

 

    Inherits EventArgs

 

    Public Sub New(ByVal fRow As Integer, ByVal fCol As Integer)

        m_FormatRow = fRow

        m_FormatCol = fCol

    End Sub

 

    Dim m_FormatRow As Integer

    Public Property FormatRow() As Integer

        Get

            Return m_FormatRow

        End Get

        Set(ByVal value As Integer)

            m_FormatRow = value

        End Set

    End Property

 

    Dim m_FormatCol As Integer

    Public Property FormatCol() As Integer

        Get

            Return m_FormatCol

        End Get

        Set(ByVal value As Integer)

            m_FormatCol = value

        End Set

    End Property

 

End Class

　　

        ' アクションをマッピングします
        Dim am As FarPoint.Win.Spread.ActionMap = ssBody.GetActionMap()
        Dim ac As New DownArrowActionDouble()
        AddHandler ac.CheckRow, AddressOf FpSpead1_CheckRow
        AddHandler ac.FormartRow, AddressOf FpSpead1_FormartRow
        AddHandler ac.LeaveCellArrow, AddressOf ssBodyFpSpead1_LeaveCell
        am.Put("CustomAction", ac)

        im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Down, Keys.None), "CustomAction")

        Private Sub FpSpead1_CheckRow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)

        End Sub

        Private Sub FpSpead1_FormartRow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)

        End Sub

        Private Sub FpSpead1_LeaveCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.LeaveCellEventArgs)

        End Sub