VBA中的Memento实现

Question

我正在寻找Memento模式(GoF)的VBA实现。我正在考虑转换Java版本的from Wikipedia。它将用于Excel外接程序的撤消/重做功能。

具体地说，我在这行遇到了困难：

return new Memento(state);

或者，更具体地说，是否有人可以在VBA中重写此代码：

public Memento saveToMemento() {
    //System.out.println("Originator: Saving to Memento.");
    return new Memento(state);
}

我正在尝试转换的整个代码都可以在上面的维基百科链接中找到。

谢谢

Answer 1

Java中的return关键字与VBA中的return关键字有很大的不同。在VBA中，return与gosub配合使用，可以改变过程中的执行流程。

在Java语言中，return的意思是“从函数中退出”，它要么返回适当类型的值(如您的示例所示)，要么什么也不返回(对于void函数- Java中的Sub等价物)。

在您的示例中，它将返回一个Memento类型的对象。这必须是函数的返回类型或该返回类型的子类型。通过使用new关键字(类似于VBA中的new关键字)创建一个新对象。名为state的对象将作为参数传递给新对象的构造函数。

在VBA中，你可以这样写：

Function saveToMemento(state As String) As Variant

saveToMemento = createMemento(state)

End Function

其中，createMemento是您编写的一个函数，用于创建适当的结构来保存记忆信息