VBA 中的备忘录实现

Question

我正在寻找 Memento 模式 (GoF) 的 VBA 实现。我正在考虑转换 来自 Wikipedia 的 Java 版本。它将用于 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 相当于 VBA 中的 Sub）。

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

在 VBA 中，您可以这样写：

Function saveToMemento(state As String) As Variant

saveToMemento = createMemento(state)

End Function

其中 createMemento 是您编写的函数，用于创建适当的结构来保存备忘录信息