为VB的文本框增加Undo功能

在Visual Basic中,Text Edit控件是一个很常用的控件,但是,VB中的Text Edit缺乏一个较为常见的基本功能,即Undo功能,这样可以允许用户取消最近一次的操作。如何在VB中实现这一点呢?下面的程序可供参考,并且利用Undo的本身性质,很容易地实现了Redo功能(其实就是Undo的Undo)。本程序适用于Visual Basic 3.0和4.0版本。 按照说明,将以下控件画在窗口内,并设置好相应的属性。窗口,Caption:“Undo Example”;命令按钮,Caption:“Undo”,Name:cmdUndo;文本框,MultiLine:-1(True)。 将以下程序分别输入到相应的控件的事件中。