在设计文本框(如记事本)时,常希望能实现类似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