CellDragFillUndoAction不执行

收藏

我想在用户DragFillBlock时执行我定义的CellDragFillUndoAction代码如下，经测试为何其不执行？？
Private Sub FpSpread_DragFillBlock(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockEventArgs) Handles FpSpread.DragFillBlock
      Select Case e.Direction
         Case FarPoint.Win.Spread.FillDirection.Left
            '  FpSpread.UndoManager.Undo()


         Case FarPoint.Win.Spread.FillDirection.Right


         Case FarPoint.Win.Spread.FillDirection.Down


                  e.Cancel = True

                                          FpSpread.UndoManager.PerformUndoAction(New FarPoint.Win.Spread.UndoRedo.CellDragFillUndoAction(FpSpread.ActiveSheet, 0, 19, 2, 2, 4, FarPoint.Win.Spread.FillDirection.Down, False))
         Case FarPoint.Win.Spread.FillDirection.Up


      End Select

End Sub

gw0506 · gw0506

有没有打开AllowUndo开关？

jplzj · jplzj

打开了，这段红色代码不放在这个事件里面都能执行！

gerry · gerry

Select Case e.Direction
Case FarPoint.Win.Spread.FillDirection.Left
' FpSpread.UndoManager.Undo()
Case FarPoint.Win.Spread.FillDirection.Right
Case FarPoint.Win.Spread.FillDirection.Down
e.Cancel = True
'修改了这里
Dim ap = FpSpread.UndoManager.GetActionPending()
FpSpread.UndoManager.PerformUndoAction(ap)
'.PerformUndoAction(new FarPoint.Win.Spread.UndoRedo.CellDragFillUndoAction(fpSpread1.ActiveSheet, 0, 19, 2, 2, '4, FarPoint.Win.Spread.FillDirection.Down, false));)
Case FarPoint.Win.Spread.FillDirection.Up
End Select

复制代码

gerry · gerry

PerformUndoAction时所传参数应该从已有的UndoList中得到.如上面修改的代码应该可以达到您的要求

jplzj · jplzj

谢谢，又学到了新东西
但是，我是用 e.Cancel = True 取消DragFillBlock操作，然后用这段代码FpSpread.UndoManager.PerformUndoAction(New FarPoint.Win.Spread.UndoRedo.CellDragFillUndoAction(FpSpread.ActiveSheet, 0, 19, 2, 2, 4, FarPoint.Win.Spread.FillDirection.Down, False))
实现一个新的DragFillBlock操作，并加入FpSpread.UndoManager中

gerry · gerry

Dim action As Action = New FarPoint.Win.Spread.UndoRedo.CellEditUndoAction(fpSpread1_Sheet1, 0, 0, "hello", False)
action.PerformAction(fpSpread1_Sheet1.ContainingViews(0))
action = New CellDragFillUndoAction(fpSpread1.ActiveSheet, 0, 0, 1, 1, 2, _
FillDirection.Right, True)
action.PerformAction(fpSpread1_Sheet1.ContainingViews(0))

我明白你的意思了请参考如上实现直接使用action下的PerformAction方法
其中参数为SpreadView类型填sheet下的ContainingViews(0)就可以了

jplzj · jplzj

谢谢！

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

CellDragFillUndoAction不执行

7 个回复

活字格认证

微信认证勋章