Question

大神！VB中怎么设计点击按钮实现返回（即撤销）的操作、同时前进（即不撤销）的操作。谢谢

菜鸟，求完整的程序，谢谢咯

Answer 1

控件都有.tag属性
你可以通过在.tag属性里保存值来确定当前按钮进行到哪一步
窗口内容的变化无非是对象的visible属性true 和false 的变化。
11个类似的窗口可以用11个放到窗口上frame来实现，frame里放上你的textbox等对象，一个前进（下一个）按钮的代码类似于：

with command1
select case .tag
case "1" '第一个窗口
frame1.visible=false
frame2.visible=true
.tag=2
case "2" '第2个窗口
frame2.visible=false
frame3.visible=true
.tag=3
....
case "n" '第n个窗口
end select

如果是用控件数组则代码可以写的非常精简
请采纳答案，支持我一下。

Answer 2

'对text1进行undo操作，再次执行，是redo
Const EM_UNDO As Long = &HC7 '执行UNDO
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
SendMessage Text1.hwnd, EM_UNDO, 0, 0
End Sub

追问

运行了下，不起作用，能具体讲下代码的工作原理吗，谢了

追答

SendMessage Text1.hwnd, EM_UNDO, 0, 0

给text1发送一个undo消息，执行返回操作
SendMessage 是api函数，发送消息
EM_UNDO 是常量

窗体中放一个textbox，名称为text1,再放一个commandbutton，名称为command1
复制以上代码，执行，修改下text1的内容，再按command1

追问

哦，你这个是用了一个备用储存空间，实现输入前后的值切换，对吧，不能像word那样一直返回吗，就是类似加一个循环进去，而不是这样两步循环，而且我的text是数组，我是新手，不会改，劳驾大神赐教

追答

用SendMessage 撤消，只能一次，如果你想多次，需要在程序中保存没次变化的数据。

在textbox的change事件中，将当前的值保存到数组里
redim preserve mytxt(ubound(mytxt)+1)
mytxt(ubound(mytxt)=text1.text
这样就可以向前向后了
以下简单写了个，没时间调试，你看看
Dim mytxt() As String, num As Long
Dim f As Boolean

Private Sub Command1_Click()
f = True
num = num - 1
If num UBound(mytxt) Then num = UBound(mytxt)
Text1.Text = mytxt(num)
End Sub

Private Sub Form_GotFocus()
f = False
End Sub

Private Sub Form_Load()
ReDim mytxt(num)
mytxt(num) = Text1.Text
End Sub

Private Sub Text1_Change()
If Not f Then
num = num + 1
ReDim Preserve mytxt(num)
mytxt(num) = Text1.Text

End If
End Sub

追问

嗯，能正常运行，问题是我不只有一个text，所以如果不是撤销text1的操作时就不管用。我试着改了下，不过失败了，所以烦请再赐几招，，，叩谢

追答

你可以对不同的textbox各用一个数组来保存，或者，使用自定义类型数组：
private type mytype
data as string'保存数据

name as string'保存控件名

end type
Dim mytxt() As mytype

这样做以后，给mytxt赋值时，同时保存了文本和控件名，撤消时，只需要判断不同的控件，执行相应操作就可以了

追问

有两个数组，text1(i) text2(j)，这一块实在是一点不懂，能不能写一个完整的程序代码，或者，。。。解释下上面的步骤。没别的意思，真的是一点不会啊，太高大上了，谢谢

追答

追问

这个也是能运行了，但是由于我的是数组我改了下，出现下标越界，你能帮我看看哪里出问题了？谢谢