2个问题求解答谢谢

收藏

问题1，spdread的keypress事件在spd.EditModePermanent = True的时候就不触发了，求单元格内如何触发keypress事件？

问题2，例如第一列只能全角汉字输入，第二列只能半角数字输入，那么我光标从第一列移动至第二列的时候输入法并没有改变成半角这个时候是输入无效的，如何能不让用户去自己手动改变输入法而自行变更为半角输入法呢？

aladdin · aladdin

问题2已经解决是在每列的属性里可以设置ImeMode

iceman · iceman

回复 1楼aladdin的帖子

问题一的原因如下，KeyPress 是挂在 Spread 控件级别上的。如果单元格进入了编辑状态，那现在的焦点处于单元格的编辑器上。
所以，还是建议您通过 http://gcdn.grapecity.com/showtopic-10646.html 3# 中的方法去做。

aladdin · aladdin

回复 3楼iceman的帖子

我要做的操作是在spread的最后一个单元格上点回车，光标能跳到下一个控件上，EditModePermanent = True的时候，点回车既不出发spread的keypress事件也不触发EditorValueChanged 事件。。。

iceman · iceman

回复 4楼aladdin的帖子

aladdin 你好，
可以通过 TextCellType 的 txtType_EditingStopped 事件接受回车事件，判断活跃单元格（有可能是通过鼠标点击切换编辑状态）为编辑单元格。如果是，则切换焦点：

WithEvents txtType As New FarPoint.Win.Spread.CellType.TextCellType
Dim isCur As Boolean
Dim activeRow As Int32
Dim activeCol As Int32
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Dim rowCount As Int32
Dim colCount As Int32
rowCount = Me.FpSpread1.Sheets.Item(0).RowCount
colCount = Me.FpSpread1.Sheets.Item(0).ColumnCount
Me.FpSpread1.Sheets.Item(0).Cells(rowCount - 1, colCount - 1).CellType = txtType
activeRow = 0
activeCol = 0
isCur = True
End Sub
Private Sub txtType_EditingStopped(sender As Object, e As System.EventArgs) Handles txtType.EditingStopped
Dim curActiveRow As New Int32
curActiveRow = Me.FpSpread1.Sheets(0).ActiveRowIndex
Dim curActiveCol As New Int32
curActiveCol = Me.FpSpread1.Sheets(0).ActiveColumnIndex
If ((curActiveCol <> Me.activeCol) OrElse (curActiveRow <> Me.activeRow)) Then
Me.isCur = False
Me.activeCol = curActiveCol
Me.activeRow = curActiveRow
Else
Me.isCur = True
End If
If Me.isCur Then
Me.FpSpread2.Focus()
End If
End Sub
Private Sub txtType_EditorValueChanged(sender As Object, e As System.EventArgs) Handles txtType.EditorValueChanged
activeRow = Me.FpSpread1.Sheets.Item(0).ActiveRowIndex
activeCol = Me.FpSpread1.Sheets.Item(0).ActiveColumnIndex
End Sub

复制代码

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

[已处理] 2个问题求解答谢谢

4 个回复

活字格认证

微信认证勋章

元老葡萄