おやじプログラマー日記

2個のSPREADコントロールをフォームに貼って、それぞれ2列×5行のシートを同じ様に設定します。
基本的な設定はSPREADコントロールのデザイナで設定していますが、以下の様な表示になります。

今回の動作の想定は以下の様に考えます。
・セルは全てテキスト入力で「←」「→」はセル内での左右移動
・「Tab」、「Enter」、「Ctrl」＋「←」、「Ctrl」＋「→」はアクティブセルの移動
　但し、左SPREADのDATA2の最下行セルの場合、右SPREADのDATA1の先頭セルに移動
　また、右SPREADのDATA1の先頭セルの場合、左SPREADのDATA2の最下行セルに移動

今回の処理では以下の処理が肝になります。

■初期処理でのSPREADのキー動作設定

そのままですと、矢印キーなどでアクティブセルの移動ができないのでキー制御をフォームロード時に行います。
・入力マップの変更で編集中セルでの「Enter」キー動作を指定します。 ・各セルをTextCellTypeにしますが、「矢印キー」の動作を、「矢印キー」のみはカーソルのセル内のみ左・右移動で、 「Ctrl」＋「矢印キー」はセル編集を終了し、アクティブセルのカーソル方向移動に設定します。

■Advanceイベントでの処理

AdvanceイベントはSPREADコントロールからフォーカスが移動する場合に発生します。 今回の場合は以下のキー入力でイベントが発生します。
・DATA1カラムで「Shift」＋「←」、「Tab」、「Enter」
・DATA2カラムで「Shift」＋「→」、「Tab」、「Enter」
・DATA1カラム及びDATA2カラムの先頭行で「↑」
・DATA1カラム及びDATA2カラムの最下行で「↓」

左SPREADでのAdvanceイベントで、DATA2カラムで最下行の場合、イベントの「e」引数の「Cancel」プロパティを Falseにすることでデフォルト処理をさせることで、右SPREADにフォーカスが移動します。

右SPREADでのAdvanceイベントで、DATA1カラムで先頭行の場合、イベントの「e」引数の「Cancel」プロパティを Falseにすることでデフォルト処理をさせることで、左SPREADにフォーカスが移動します。
Imports FarPoint.Win.Spread Public Class Form1 'フォームの初期化 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'SpreadのSPREADの「Enter」キー設定,各セルの「Ctrl」＋「矢印」でアクティブセル移動への設定 SetSpreadAttr(Me.FpSpread1) SetSpreadAttr(Me.FpSpread2) 'Spreadのフォーカス枠非表示 ClearSpreadActiveFrame(Me.FpSpread1) ClearSpreadActiveFrame(Me.FpSpread2) End Sub 'Spread編集開始時処理 Private Sub FpSpread1_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles FpSpread1.EditModeOn, FpSpread2.EditModeOn '編集中セルの背景色を変更する CType(sender.EditingControl, CellType.GeneralEditor).BackColor = Drawing.Color.Moccasin End Sub '左のSpreadでの最下行での右Spreadへの移動制御 Private Sub FpSpread1_Advance(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AdvanceEventArgs) _ Handles FpSpread1.Advance With CType(sender, FpSpread).ActiveSheet '最終セル?? If .ActiveRowIndex = .RowCount - 1 And .ActiveColumnIndex = .ColumnCount - 1 Then e.Cancel = False FpSpread2.ActiveSheet.SetActiveCell(0, 0) End If End With End Sub '右のSpreadでの最上行での左Spreadへの移動制御 Private Sub FpSpread2_Advance(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.AdvanceEventArgs) Handles _ FpSpread2.Advance With CType(sender, FpSpread).ActiveSheet '先頭セル?? If .ActiveRowIndex = 0 And .ActiveColumnIndex = 0 Then e.Cancel = False FpSpread1.ActiveSheet.SetActiveCell(4, 1) End If End With End Sub 'Spreadフォーカス取得時イベント Private Sub FpSpread1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles FpSpread1.Enter, FpSpread2.Enter Dim spd As FpSpread = CType(sender, FpSpread) If spd.Name = "FpSpread1" Then '左のSpreadのフォーカス取得 ResetSpreadActiveFrame(Me.FpSpread1) '左Spreadフォーカス枠表示 ClearSpreadActiveFrame(Me.FpSpread2) '右Spreadフォーカス枠非表示 Else '右のSpreadのフォーカス取得 ClearSpreadActiveFrame(Me.FpSpread1) '左Spreadフォーカス枠非表示 ResetSpreadActiveFrame(Me.FpSpread2) '右Spreadフォーカス枠表示 End If End Sub 'Spreadのフォーカス枠を表示 Private Sub ResetSpreadActiveFrame(ByVal spd As FpSpread) ' フォーカスインジケータをリセット spd.ResetFocusRenderer() End Sub 'Spreadのフォーカス枠を非表示 Private Sub ClearSpreadActiveFrame(ByVal spd As FpSpread) ' フォーカスインジケータを非表示 spd.FocusRenderer = New FarPoint.Win.Spread.DefaultFocusIndicatorRenderer(0) End Sub 'SPREADの「Enter」キー設定,各セルの「Ctrl」＋「矢印」でアクティブセル移動 Private Sub SetSpreadAttr(ByVal spd As FpSpread) '編集セルでの［Enter］キーを「次列へ移動」 Dim im As New InputMap im = spd.GetInputMap(InputMapMode.WhenAncestorOfFocused) im.Put(New Keystroke(Keys.Enter, Keys.None), SpreadActions.MoveToNextColumn) For Row = 0 To spd.ActiveSheet.RowCount - 1 '[矢印キー]のみ :カーソルのセル内のみ左・右移動 '[Ctrl]＋[矢印キー]:セルは編集を終了し、アクティブセルのカーソル方向移動 Dim tc As New FarPoint.Win.Spread.CellType.TextCellType tc.AcceptsArrowKeys = FarPoint.Win.SuperEdit.AcceptsArrowKeys.Arrows spd.ActiveSheet.Rows(Row).CellType = tc Next End Sub End Class
■EditModeOnイベントでの処理

尚、現在のセルを分かりやすくするために、EditModeOnイベント（編集開始時処理）で編集中セルの背景色を変更しています。

■関連記事
⇒VB.NET：SpreadでのEnter時にセルを右移動させる方法
⇒VB.NET：Spreadでフォーカスを持っていない時にセル枠を表示しない設定
⇒VB.NET：Spreadのヘッダカラム及び、通常のカラムの連結
⇒VB.NET：Spreadのシートへの簡単な一覧データの設定について
⇒VB.NET：Spreadのシートのセルにボタン、テキスト、チェックボックスのセルタイプの設定
⇒VB.NET：Spreadのセルのボタンクリック時のイベント処理
⇒VB.NET：Spreadのセルへのデータ設定の描画速度アップ
⇒VB.NET：Spreadのセルのチップウインドウで別に設定された文字列を表示する
⇒VB.NET：Spreadでデータ一覧表示を簡単に行う方法について
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)
⇒VB.NET：Spreadデータ一覧表示での行選択処理(CellDoubleClickイベント , KeyDownイベント)その２
⇒VB.NET：Spreadデータ一覧表示での自動ソート実行時に複数のソート条件を指定する方法について
⇒VB.NET：Spreadで異なるSPREADコントロール間でシートデータのコピーを行う方法
⇒VB.NET：SpreadでのCSV出力とCSV入力を使って、異なるSPREADコントロール間でシートデータのコピーを行う方法
⇒VB.NET：SpreadシートのPDF出力と表示を行う方法
⇒VB.NET：Spreadの数値セルタイプを使ってデータメンテナンスのプログラムに使う方法
⇒VB.NET:Spreadのテキストセルでバイト数入力制限を掛ける方法
⇒VB.NET:Spreadのチェックボックス型セルにはCheckChangedイベントを、ボタン型セルにはClickイベントの発生方法