[原创]文本编辑中利用栈来实现undo和redo的无限次操作

在设计文本框（如记事本）时，常希望能实现类似word里面的恢复（redo）和撤消（undo）功能，本文利用栈的先进后出原理来实现，以下简单描述其思路。
一 定义栈结构
Public Type stack
    Num As Integer '记录栈的大小
    contents As String '记录内容
    Pos As Long '记录光标位置
End Type
分别需要两个栈，一个栈stackundo来存放撤消内容，一个栈stackredo来存放恢复内容
二 在文本内容改变的同时，将文本内容，以及此时光标位置存入栈stackundo中。
三 进行undo操作后，把undo前的内容和光标位置存入栈stackredo中，同时在栈stackundo中清除该内容。
四 进行redo操作后，把redo前的内容和光标位置存入栈stackundo中，同时在栈stackredo中清除该内容。
通过上述过程就能很简单的实现无限次undo和redo操作。
注：
获取光标位置函数（vb api）
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam
As Long, ByVal lParam As Long) As Long
 i = SendMessage(RchEdit.hwnd, EM_GETSEL, wParam, lParam)
 j = i / 2 ^ 16