焦点的移动

收藏

现在希望实现
有两个spread控件，在左边的spread最后一行，按下tab键，光标移到第二个spread上，如何处理

ZenosZeng · ZenosZeng

private void fpSpread1_PreviewKeyDown(object sender, PreviewKeyDownEventArgs e)
{
if (e.KeyCode == Keys.Tab)
{
if (fpSpread1.ActiveSheet.ActiveRowIndex == fpSpread1.ActiveSheet.Rows.Count-1 && fpSpread1.ActiveSheet.ActiveColumnIndex == fpSpread1.ActiveSheet.Columns.Count-1)
{
fpSpread2.Focus();
}
}
}

复制代码

sinicom · sinicom

谢谢回答。
但是我试了一下，在vb.net里面，要长按住Tab键一段时间才会触发这个事件。
并不是像普通操作那样，按一下Tab就能触发事件。
这个事件原本就是需要长按住Tab键才行吗？

sinicom · sinicom

还有一个问题，也是焦点迁移，比如光标在第二个spread的第一行，这时按下shift+Enter，如何让光标迁回到第一个spread呢？请指教

ZenosZeng · ZenosZeng

实现方法类似，请参考以下代码：

'FpSpread1和FpSpread2都是 5行 3列
Private Sub FpSpread1_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles FpSpread1.PreviewKeyDown
If e.KeyCode = Keys.Tab AndAlso
FpSpread1.ActiveSheet.ActiveRowIndex = 4 AndAlso
FpSpread1.ActiveSheet.ActiveColumnIndex = 2 Then
FpSpread2.Focus()
FpSpread2.ActiveSheet.ActiveColumnIndex = 0
FpSpread2.ActiveSheet.ActiveRowIndex = 0
End If
End Sub
Private Sub FpSpread2_PreviewKeyDown(sender As System.Object, e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles FpSpread2.PreviewKeyDown
If e.Shift AndAlso e.KeyCode = Keys.Enter AndAlso
FpSpread1.ActiveSheet.ActiveRowIndex = 4 AndAlso
FpSpread1.ActiveSheet.ActiveColumnIndex = 2 Then
FpSpread1.Focus()
FpSpread1.ActiveSheet.ActiveColumnIndex = 2
FpSpread1.ActiveSheet.ActiveRowIndex = 4
End If
End Sub

复制代码

sinicom · sinicom

谢谢回答。
我按照提示写了代码，但是在第一个spread的最后一个cell按下Tab时，
没有触发PreviewKeyDown事件。
必须一直按住Tab一段时间才会触发。
这样是不是有点不正常

ZenosZeng · ZenosZeng

我调试的结果是，只要一按下Tab键就会触发PreviewKeyDown事件，只不过此时刚好从第一个spread的最后一个单元格跳到第二个spread的第一个单元格，而此时第二个spread选中的就是第一个单元格，所以必须再按一次Tab键才能看到第二个Spread选中的单元格在发生变化

sinicom · sinicom

哦？奇怪，我这里在每次按下Tab键都没有触发事件，
难道有什么属性的设置会控制这个事件的触发？

ZenosZeng · ZenosZeng

附件是我的代码，在我的环境中可以正常触发，在你的环境中看是否能正常运行

Spread_Win_Demo_VB.zip (23.84 KB, 下载次数: 207)

sinicom · sinicom

好的，那我去试试。谢谢！

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

9 个回复