在VB.Net中实现文本框Undo/Redo撤销重做功能的问题咨询

原有代码问题分析 #

• 字符串比较错误：IsNot是对象引用比较逻辑，不适用字符串值对比，相同内容的字符串可能被判定为不相等
• 撤销逻辑错误：无状态指针/栈结构，遍历列表的逻辑会一次性回退所有历史，不符合逐次撤销需求
• 未区分修改来源：撤销时程序主动给文本框赋值会触发文本变更事件，导致状态被重复存入历史，逻辑混乱
• 缺少重做缓存：撤销后的状态没有存储位置，无法实现重做功能

正确实现步骤 #

1. 调整全局存储结构 #

使用Stack(Of T)（栈结构，后进先出）更适配撤销重做的使用逻辑，同时增加标记位区分用户修改和程序修改：

Public Module Globals
    ' 撤销栈：存储所有历史状态，最新状态在栈顶
    Public UndoStack As New Stack(Of String)
    ' 重做栈：存储被撤销的状态，最新撤销内容在栈顶
    Public RedoStack As New Stack(Of String)
    ' 标记是否为程序主动修改文本，避免重复存入历史
    Public IsProgrammaticChange As Boolean = False
End Module

2. 初始化历史状态 #

窗体加载时把文本框的初始值存入撤销栈：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    UndoStack.Push(TextBox1.Text)
End Sub

3. 存储用户修改的新状态 #

如果是用户手动修改文本（或点击提交按钮确认修改），将新状态存入撤销栈，同时清空重做栈：

' 如果是文本框输入实时存历史，用TextChanged事件
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    If IsProgrammaticChange Then Exit Sub

    UndoStack.Push(TextBox1.Text)
    RedoStack.Clear()
End Sub

' 如果是点击按钮提交后才存历史，用按钮点击事件
Private Sub SubmitBtn_Click(sender As Object, e As EventArgs) Handles SubmitBtn.Click
    If IsProgrammaticChange Then Exit Sub

    ' 新增状态和栈顶状态相同就不重复存储
    If UndoStack.Peek().Equals(TextBox1.Text) Then Exit Sub

    UndoStack.Push(TextBox1.Text)
    RedoStack.Clear()
End Sub

4. 撤销按钮逻辑 #

逐次回退到上一个状态：

Private Sub UndoBtn_Click(sender As Object, e As EventArgs) Handles UndoBtn.Click
    ' 撤销栈至少保留1个初始状态，小于等于1时无法继续撤销
    If UndoStack.Count <= 1 Then Exit Sub

    IsProgrammaticChange = True
    Try
        ' 弹出当前状态存入重做栈
        Dim currentState = UndoStack.Pop()
        RedoStack.Push(currentState)
        ' 取栈顶的上一个状态赋值给文本框
        TextBox1.Text = UndoStack.Peek()
    Finally
        ' 重置标记位
        IsProgrammaticChange = False
    End Try
End Sub

5. 重做按钮逻辑（可选） #

逐次恢复被撤销的状态：

Private Sub RedoBtn_Click(sender As Object, e As EventArgs) Handles RedoBtn.Click
    If RedoStack.Count = 0 Then Exit Sub

    IsProgrammaticChange = True
    Try
        ' 弹出重做栈顶状态存入撤销栈
        Dim redoState = RedoStack.Pop()
        UndoStack.Push(redoState)
        ' 赋值给文本框
        TextBox1.Text = redoState
    Finally
        ' 重置标记位
        IsProgrammaticChange = False
    End Try
End Sub

效果验证 #

按照你给出的示例场景：

1. 初始状态a,b,c存入撤销栈
2. 第一次修改为a,b,c,e，入撤销栈
3. 第二次修改为a,b,c,f，入撤销栈
4. 第一次点撤销：弹出a,b,c,f到重做栈，文本框显示栈顶的a,b,c,e
5. 第二次点撤销：弹出a,b,c,e到重做栈，文本框显示栈顶的a,b,c
   完全符合预期需求。

内容的提问来源于stack exchange，提问作者Bianca Mada