Spread合并单元格后，按tab键

收藏

如附件，合并的单元格获得焦点后，按tab键，为什么不是2D获得焦点，
而是3D获得焦点，如果想要2D获得焦点，应该怎么对应。

以上，求解答，非常感谢！

frank.zhang · frank.zhang

您好，
可以通过自定义快捷键的方式实现：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim im As New FarPoint.Win.Spread.InputMap
im = FpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused)
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Tab, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextColumn)
End Sub

复制代码

希望能够帮助到您。

rbgongming · rbgongming

回复 2楼frank.zhang的帖子

这样的话，当光标移动到最后一列，就不能跳到下一行了。
这个怎么解决。

frank.zhang · frank.zhang

您好，
这个问题我们正在调查，目前的进度是，默认的情况下，Tab触发的是MoveToNextColumnWrap事件。
但是，在合并的单元格会掉到下面的格子。MoveToNextColumn会移动到右边的格子，但是不能移到下一行。
由于验证需要时间，这个问题，我们下周一会继续为您调查。

frank.zhang · frank.zhang

您好，
非常抱歉，让您久等了。实现的思路的通过自定义的Action来实现。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.FpSpread1.ActiveSheet.ColumnCount = 6
Me.FpSpread1.ActiveSheet.RowCount = 5
Dim im As New FarPoint.Win.Spread.InputMap
Dim am As New FarPoint.Win.Spread.ActionMap
im = FpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused)
am = FpSpread1.GetActionMap()
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Tab, Keys.None), "HideRow")
am.Put("HideRow", New HideRowAction())
End Sub
Private Class HideRowAction
Inherits FarPoint.Win.Spread.Action
Public Overrides Sub PerformAction([source] As Object)
If TypeOf [source] Is SpreadView Then
Dim spread As SpreadView = CType([source], SpreadView)
Dim sheet As SheetView = spread.Sheets(spread.ActiveSheetIndex)
Dim rang As CellRange = sheet.GetSpanCell(sheet.ActiveRowIndex, sheet.ActiveColumnIndex)
Dim i As Integer
If (rang Is Nothing) Then
i = 1
Else
i = rang.ColumnCount
End If
If sheet.ActiveColumnIndex = (sheet.ColumnCount - i) Then
sheet.SetActiveCell(sheet.ActiveRowIndex + 1, 0)
Else
sheet.SetActiveCell(sheet.ActiveRowIndex, sheet.ActiveColumnIndex + i)
End If
End If
End Sub 'PerformAction
End Class 'HideRowAction

复制代码

希望能够帮助到您。

rbgongming · rbgongming

回复 5楼frank.zhang的帖子

感谢你的回复，这种思路最初想过，但是一旦把Tab放出来安全度很低，
项目中很多写的都是共同，不是很安全，在和客户商谈，等客户答复吧！

希望开发团队放出来一个属性，能实现这个功能，这样很方便。

frank.zhang · frank.zhang

您好，
感谢您的宝贵意见。我会将您的反馈提交给产品组，在对产品是否会增加这个需求进行评估，如果有进一步的反馈，我会第一时间通知您。

		自动登录	找回密码
密码			立即注册

[已处理] Spread合并单元格后，按tab键