Spread快捷键

收藏

Spread中按Shift-Tab和Shift-Up,Shift-Down，Tab，Up，Down等
想要没有任何反应
尝试过以下代码也无效果
Dim whenAncestorOfFocused As InputMap =
_vas_Sheet_0.GetInputMap(InputMapMode.WhenAncestorOfFocused)
Dim whenFocused As InputMap =
_vas_Sheet_0.GetInputMap(InputMapMode.WhenFocused)

whenAncestorOfFocused.Put(New Keystroke(Keys.Up, Keys.None),
SpreadActions.None)
whenFocused.Put(New Keystroke(Keys.Up, Keys.None), SpreadActions.None)

需要设置什么属性吗？还是7.0的版本写法不同？

以上，谢谢！！！！！！

iceman · iceman

回复 1楼miyaminn的帖子

请问 _vas_Sheet_0这个类是 FpSpread还是？

Spread 7.0 没有特殊写法，并且我通过您的代码在 8.0 中测试也没有问题，这段代码是禁止 Up 键动作的：

Dim whenAncestorOfFocused As InputMap = FpSpread1.GetInputMap(InputMapMode.WhenAncestorOfFocused)
Dim whenFocused As InputMap = FpSpread1.GetInputMap(InputMapMode.WhenFocused)
whenAncestorOfFocused.Put(New Keystroke(Keys.Up, Keys.None), SpreadActions.None)
whenFocused.Put(New Keystroke(Keys.Up, Keys.None), SpreadActions.None)

复制代码

以下这段代码用于控制 Shift+Up 键盘动作：

Dim im As New FarPoint.Win.Spread.InputMap
im = FpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused)
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Up, Keys.Shift), FarPoint.Win.Spread.SpreadActions.None)
im = FpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused)
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Up, Keys.Shift), FarPoint.Win.Spread.SpreadActions.None)

复制代码

谢谢

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

[已处理] Spread快捷键

1 个回复

活字格认证

微信认证勋章

元老葡萄