半岛权威十大直营(官方)网站

    FlowChart.NET中对于撤销项目属性的更改不会自动记录，要启用撤消属性更改，您必须明确创建一个ChangeItemCmd实例，并把它添加到历史队列。

    ChangeItemCmd构造函数需要一个作为参数的项目引用，保存项目初始状态用以再通过稍后撤销恢复。在一个或多个项目的属性分配后调用Execute方法，记录项目最终的状态再通过稍后的重做恢复。这样的话，就可以用一个单一的记录来保存项目的属性更改，这个单一的记录也可以作为单一的操作被撤销或是重做。

C#

// Save item state
ChangeItemCmd propChange = new ChangeItemCmd(diagram.Nodes[0], "Change");

// Change properties
ShapeNode shape = (ShapeNode)diagram.Nodes[0];
shape.Text = "new text";
shape.Brush = new SolidBrush(Color.Blue);
shape.Shape = Shape.FromId("Ellipse");

// Add to history
propChange.Execute();

Visual Basic

' Save item state
Dim propChange = New ChangeItemCmd(Diagram.Nodes(0), "Change")

' Change properties
Dim shape As ShapeNode = Diagram.Nodes(0)
shape.Text = "new text"
shape.Brush = New SolidBrush(Color.Blue)
shape.Shape = MindFusion.Diagramming.Shape.FromId("Ellipse")

' Add to history
propChange.Execute()

    如果说想要把几个项目作为一个操作，需要创建一个CompositeCmd实例，以及通过调用AddSubCmd方法来添加ChangeItemCmd命令到这个复合操作上。

C#

if (diagram.Selection.Nodes.Count == 0)
    return;
 
// Make all changes seem like a single operation by
// putting them in composite Command
CompositeCmd composite = new CompositeCmd(
    diagram, "Change selection");
 
foreach (DiagramNode node in diagram.Selection.Nodes)
{
    ShapeNode shape = node as ShapeNode;
    if (shape == null)
        continue;

 
    // Save item state
    ChangeItemCmd propChange = new ChangeItemCmd(shape, "Change");
 
    // Change properties
    shape.Text = "new text";
    shape.Brush = new SolidBrush(Color.Blue);
 
    // Add to the composite
    composite.AddSubCmd(propChange);
}

// Store final state of all contained commands
composite.Execute();

Visual Basic

If diagram.Selection.Nodes.Count = 0 Then
    Return
End If

' Make all changes seem like a single operation by
' putting them in composite Command
Dim composite As CompositeCmd = New CompositeCmd( _
    diagram, "Change selection")

Dim node As DiagramNode
For Each node In diagram.Selection.Nodes

    Dim shape As ShapeNode = CType(node, ShapeNode)
    If Not shape Is Nothing Then

        ' Save item state
        Dim propChange As ChangeItemCmd = New ChangeItemCmd(shape, "Change")

        ' Change properties
        shape.Text = "new text"
        shape.Brush = New SolidBrush(Color.Blue)

        ' Add to the composite
        composite.AddSubCmd(propChange)

    End If

Next

' Store final state of all contained commands
composite.Execute()