'スクロールバーの移動
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