SPREAD for Windows Forms 代码片段

'スクロールバーの移動
FpSpread1.ShowColumn(0, 0, HorizontalPosition.Left)

'SetActiveCellの後、LeaveCellを呼び出す
Dim ss As FarPoint.Win.Spread.SpreadView = FpSpread1.GetRootWorkbook
FpSpread1_LeaveCell(FpSpread1, New FarPoint.Win.Spread.LeaveCellEventArgs(ss, rowIdx, colIdx, newRow, newCol))

'行書式コピー
FpSpread1.ActiveSheet.CopyRange(2, 0, i, 0, 1, FpSpread1.ActiveSheet.ColumnCount, False)

'デフォルトの入力マップを変更する
Dim im As New FarPoint.Win.Spread.InputMap
im = FpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused)
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.F2, Keys.None), FarPoint.Win.Spread.SpreadActions.None)
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.F3, Keys.None), FarPoint.Win.Spread.SpreadActions.None)
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.F4, Keys.None), FarPoint.Win.Spread.SpreadActions.None)

im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.None)
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Tab, Keys.None), FarPoint.Win.Spread.SpreadActions.None)

'現在アクティブなコントロールはスプレッドか
focusIndex = 200 Or Me.ActiveControl Is FpSpread1 Or Me.ActiveControl.Parent Is FpSpread1 Or Me.ActiveControl.Parent.Parent Is FpSpread1

'コンボのEnterキー対応
Dim WithEvents Combo As New FarPoint.Win.FpCombo()
Dim bEnterKey As Boolean

Private Sub FpSpread1_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOn
    If TypeOf (FpSpread1.ActiveSheet.GetCellType(iRow, iCol)) Is FarPoint.Win.Spread.CellType.ComboBoxCellType Then
        Combo = CType(FpSpread1.EditingControl, FarPoint.Win.FpCombo)
    End If
End Sub


Private Sub Combo_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Combo.KeyDown
    ' Enterキーが押された場合にフラグを立てる
    bEnterKey = (e.KeyCode = Keys.Enter)
    Call CompGoukei()
End Sub

Private Sub Combo_DropDown(ByVal sender As Object, ByVal e As FarPoint.Win.DropDownEventArgs) Handles Combo.DropDown
    ' フラグが立っている場合は、DropDown処理をキャンセルする
    e.Cancel = bEnterKey
    bEnterKey = False
End Sub

'電卓とカレンダーを無効に
Private Sub FpSpread1_SubEditorOpening(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.SubEditorOpeningEventArgs) Handles FpSpread1.SubEditorOpening
    e.Cancel = True
End Sub