Cell移动的动作

Spread有8列，希望得到按[Enter]键可以将光标跳到第4列，并且直接是编辑模式，然后在按[Enter]
键就条到了第7列，且不是编辑模式，在按[Enter]键，就跳到下一行的第4列，且是编辑模式，依次列推。
请问怎么实现。

回复 1楼miyaminn的帖子

这个用例需要定制 Spread 快捷键和快捷键动作，实现方法请参考以下代码：

1. 
   
2.         private void Form1_Load(object sender, EventArgs e)
   
3.         {
   
4.             this.fpSpread1.Sheets[0].Columns.Count = 8;
   
5.             this.fpSpread1.Sheets[0].SetActiveCell(0, 3);
   
6. 
   
7.             fpSpread1.ActiveSheet.Columns[0].CanFocus = false;
   
8.             InputMap im1 = fpSpread1.GetInputMap(InputMapMode.WhenFocused);
   
9.             ActionMap am = fpSpread1.GetActionMap();
   
10.             im1.Put(new Keystroke(Keys.Enter, Keys.None), "NewControlHomeAction");
    
11.             am.Put("NewControlHomeAction", new NewControlHomeAction());
    
12. 
    
13.             InputMap im2 = fpSpread1.GetInputMap(InputMapMode.WhenAncestorOfFocused);
    
14.             im2.Put(new Keystroke(Keys.Enter, Keys.None), "NewControlHomeAction");
    
15.         }
    
16.     }
    
17. 
    
18.     public class NewControlHomeAction : FarPoint.Win.Spread.Action
    
19.     {
    
20.         public override void PerformAction(object source)
    
21.         {
    
22.             if (source is SpreadView)
    
23.             {
    
24.                 SpreadView SpreadView = (SpreadView)source;
    
25.                 SheetView sv= SpreadView.Sheets[SpreadView.ActiveSheetIndex];
    
26.                 if (sv.ActiveColumnIndex==3)
    
27.                     {
    
28.                     sv.SetActiveCell(sv.ActiveRowIndex,6);
    
29.                     SpreadView.EditMode= true;
    
30.                     }
    
31.                 else if (sv.ActiveColumnIndex==6)
    
32.                     {
    
33.                     sv.SetActiveCell(sv.ActiveRowIndex+1,3);
    
34.                     SpreadView.EditMode= false;
    
35. 
    
36.                     }
    
37.             }
    
38.         }
    
39.     }
    

复制代码

回复 2楼iceman的帖子

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        FpSpread1.ActiveSheet.Columns.Count = 8

        FpSpread1.ActiveSheet.SetActiveCell(0, 3)



        FpSpread1.ActiveSheet.Columns(0).CanFocus = False

        Dim im1 = FpSpread1.GetInputMap(InputMapMode.WhenFocused)

        Dim am = FpSpread1.GetActionMap()

        im1.Put(New Keystroke(Keys.Enter, Keys.None), "NewControlHomeAction")

        am.Put("NewControlHomeAction", New NewControlHomeAction())



        Dim im2 = FpSpread1.GetInputMap(InputMapMode.WhenAncestorOfFocused)

        im2.Put(New Keystroke(Keys.Enter, Keys.None), "NewControlHomeAction")
      

    End Sub


Public Class NewControlHomeAction
    Inherits FarPoint.Win.Spread.Action
    Public Overrides Sub PerformAction(ByVal sender As Object)
        Dim sv As FarPoint.Win.Spread.FpSpread = Form1.FpSpread1
        If sv.ActiveSheet.ActiveColumnIndex = 3 Then
            sv.ActiveSheet.SetActiveCell(0, 6)
            sv.EditModePermanent = True
        ElseIf sv.ActiveSheet.ActiveColumnIndex = 6 Then
            sv.ActiveSheet.SetActiveCell(0, 3)
            sv.EditModePermanent = False
        End If

    End Sub
End Class

以上为测试代码，当跳回到第4列时，第四列单元格还是可编译的，这是为什么呢？

回复 3楼miyaminn的帖子

sv.EditModePermanent = False 替换为 sv .EditMode= false; 试试能否成功。

非常感谢，这个问题已经解决，最近有点忙，没有及时反馈。Sorry！！！

回复 5楼miyaminn的帖子

好的，感谢反馈问题结果。请你对我的服务进行评分，谢谢