删除撤销问题

收藏

private void Form1_Load(object sender, EventArgs e)

{

      fpSpread1.ActiveSheet.Cells[0, 0].Locked = true;

      fpSpread1.ActiveSheet.Cells[0, 0].Value = 1;

      fpSpread1.ActiveSheet.Cells[1, 0].Locked = true;

      fpSpread1.ActiveSheet.Cells[1, 0].Value = 2;

      FarPoint.Win.Spread.InputMap im = new FarPoint.Win.Spread.InputMap();

      im = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused);

      im.Put(new FarPoint.Win.Spread.Keystroke(Keys.Delete, Keys.None), FarPoint.Win.Spread.SpreadActions.ClearSelectedCells);

      im = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused);

      im.Put(new FarPoint.Win.Spread.Keystroke(Keys.Delete, Keys.None), FarPoint.Win.Spread.SpreadActions.ClearSelectedCells);

}

dof，我用上面的方式实现按del键删除数据后，怎么实现撤销功能呢？能不能只是删除选中区域的数据，而不删除背景色等，我搞了很久还是搞不出来。
参考了http://gcdn.grapecity.com/showto ... ;postid=27711#27711还是做不出来！用vb代码的那个demo做的话，又将锁定的单元格给删除了。头大，能不能帮我做个demo啊！万分感谢！

ZenosZeng · ZenosZeng

lh8350 你好

这个功能确实实现起来不是那么容易，我这边也正在调试，明天继续和你沟通。

jplzj · jplzj

将 Public Overrides Function PerformUndoAction(ByVal sender As Object) As Boolean
      Dim spreadView As FarPoint.Win.Spread.SpreadView = Nothing
      If TypeOf sender Is FarPoint.Win.Spread.SpreadView Then
         spreadView = CType(sender, FarPoint.Win.Spread.SpreadView)
      Else
         Return False
      End If

      If sheetView Is Nothing Then
         sheetView = spreadView.GetSheetView
      End If
      If (SaveUndoState()) And Not (sheetView Is Nothing) Then
         sheetView.ClearRange(cellRange.Row, cellRange.Column, cellRange.RowCount, cellRange.ColumnCount, False)
         Return True
      End If
      Return False
End Function
将这个函数中“ sheetView.ClearRange(cellRange.Row, cellRange.Column, cellRange.RowCount, cellRange.ColumnCount, False)
”改为循环设置Cell.text=""就可以了

lh8350 · lh8350

这样不可以哦！dof，你调试的有结果了吗？

ZenosZeng · ZenosZeng

lh8350 你好

请参考这个帖子中，我最新的回帖，如有问题可以继续沟通：http://gcdn.grapecity.com/showtopic-5806.html

lh8350 · lh8350

我参考了还是不会写，感觉问题比较难判断，因为我是先锁定的列，然后解除这些列中的某些单元格区域，对这些区域进行删除编辑等操作，撤销的时候不会写。

ZenosZeng · ZenosZeng

lh8350 你好

你以上帖子中涉及到两个问题，1、按Delete键只清除单元格的内容，不清除单元格格式；2、Delete之后的撤销操作

第一个功能在http://gcdn.grapecity.com/showtopic-5806.html中给出了源码，不知该源码适合能够解决你的第一个需求。如果该功能没有问题，我可以在该功能基础上实现撤消操作。

lh8350 · lh8350

http://gcdn.grapecity.com/showtopic-5806.html中给出的源码不能分辨单元格的锁定状态，一律删除，所以也不符合我的要求。我需要的是，如果有单元格锁定的区域就不能删除。
我觉得用下面的代码可以实现删除可编辑单元格的功能，但是撤销又做不出来。而且删除的时候将单元格的背景色和锁定状态都给清除了。
FarPoint.Win.Spread.InputMap im = new FarPoint.Win.Spread.InputMap();
                  im = spread.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused);

                  im.Put(new FarPoint.Win.Spread.Keystroke(Keys.Delete, Keys.None), FarPoint.Win.Spread.SpreadActions.ClearSelectedCells);

                  im = spread.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused);

                  im.Put(new FarPoint.Win.Spread.Keystroke(Keys.Delete, Keys.None), FarPoint.Win.Spread.SpreadActions.ClearSelectedCells);

ZenosZeng · ZenosZeng

我修改了ClearValueAction增加Locked的判断，你再试一试：

public class ClearValueAction : FarPoint.Win.Spread.Action
{
public override void PerformAction(object source)
{
if (source is SpreadView)
{
SpreadView spread = (SpreadView)source;
SheetView sheet = spread.Sheets[spread.ActiveSheetIndex];
CellRange cr = sheet.GetSelection(0);
StyleInfo si = new StyleInfo();
for (int r = 0; r < cr.RowCount; r++)
{
for (int c = 0; c < cr.ColumnCount; c++)
{
sheet.Models.Style.GetCompositeInfo(cr.Row + r, cr.Column + c, -1, si);
if (!si.Locked)
{
sheet.Cells[cr.Row + r, cr.Column + c].ResetValue();
}
}
}
}
}
}

复制代码

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

[已处理] 删除撤销问题

8 个回复

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人