VB实现TextBox撤销功能[后退-前进]

'在窗体中添加一个TextBox,属性默认，两个CommandButton按钮,Command1.Caption=“后退”,Command2.Caption=“前进”；
'代码如下：

Option Explicit

Private Type Bytes
arr() As Byte
End Type
Dim txtInput As Boolean '控制文本框的输入

'ReadP函数：存储文本、重做
'lnA参数
'0：存储文本
'1：后退
'2：前进
'Text:向数组变量存储的文本
Private Function ReadP(Optional lnA As Integer = 0, Optional Text As String = “”) As String
Dim pbagb As New PropertyBag
Static Byt() As Bytes, Indexs As Long, iCount As Long
If lnA <> 0 Then
txtInput = True
Indexs = IIf(lnA <> 0 And lnA = 2, IIf(Indexs >= iCount, iCount, Indexs + 1), IIf(Indexs > 0, Indexs - IIf(Indexs > 1, 1, 0), 1))
pbagb.Contents = Byt(Indexs).arr()
ReadP = pbagb.ReadProperty(“Text”)
Else
If txtInput Then Exit Function
Indexs = Indexs + 1
iCount = Indexs
ReDim Preserve Byt(Indexs)
pbagb.WriteProperty “Text”, Text
Byt(Indexs).arr() = pbagb.Contents
ReadP = iCount
End If
End Function

'后退
Private Sub Command1_Click()
Text1.Text = ReadP(1)
End Sub

'前进
Private Sub Command2_Click()
Text1.Text = ReadP(2)
End Sub

'启动窗体获得文本框文本
Private Sub Form_Load()
Call ReadP(0, Text1.Text)
End Sub

'文本框输入
Private Sub Text1_Change()
Me.Caption = ReadP(0, Text1.Text)
End Sub

'恢复文本框输入
Private Sub Text1_Click()
txtInput = False
End Sub

附加工程包：VB实现文本框[向后、向前、剪切、复制、粘贴、删除、清空、全选]的功能
工程包下载地址：https://download.csdn.net/download/ty5858/85214332

VB实现TextBox撤销功能[后退-前进]相关推荐

VB取得TextBox、RichTextBox光标所在的行和列（支持汉字）
代码如下: Option Explicit Public Const WM_USER = &H400 Public Const EM_EXGETSEL = WM_USER + 52 Publi ...
【搬家】VB.NET开发全功能串口调试助手
VB.NET开发全功能串口调试助手 By Nightmare 2011-07-16 @Xinxiang 小记:VB.NET的串口通信用了很长时间了,也只用Write和Read这样的方法,以前都是用这种 ...
使用 x32dbg 分析 PC 上 QQ 撤销功能（好友消息和群消息）
标题:使用 x32dbg 分析 PC 上 QQ 撤销功能(好友消息和群消息) 作者:猫猫.有点乖文章目录 0x00 前述 0x01 收集信息 0x02 初窥门径 0x03 略有小成 0x04 驾轻就 ...
VB.NET完成一个功能增强的记事本
VB.NET完成一个功能增强的记事本分类: DotNet 2011-07-02 16:05 153人阅读评论(0)收藏举报想必大家都听说过Notepad2,Notepad++一类的记事本增强软 ...
用vb.net实现拖放功能
任务:用vb.net实现,拖放功能. 转载于:https://www.cnblogs.com/wangxiang/archive/2006/06/05/417449.html
VB案例：多功能文本处理器
VB案例:多功能文本处理器一.功能概述 1.删除文本中全部空白行 2.删除文本种全部目标字符 3.删除包含特定字符串(一个或两个)的行 4.删除指定两个字符间的内容 5.实现英汉折行.汉英折行,以及 ...
VB 提取TextBox 文本框中指定一行字符串
这是使用EM_GETLINE message来做,比较奇特的是lParam是指向一个字串所在的位置, 但是该字串传入时,前两个Byte要存该字串允许的最大长度. '以下在Form需一个TextBox, ...
word Ctrl Z 撤销功能无法使用怎么办？
欢迎技术交流和帮助,提供IT相关服务,索要源码请联系博主QQ: 21497936,若该文为原创文章,未经允许不得转载原博主博客地址:http://blog.csdn.net/qq21497936 本 ...
通过摇一摇功能取消撤销键导致的限制内容输入的崩溃问题（关闭撤销功能）
#pragma mark - 取消摇一摇撤销功能 /** 开始摇一摇 */ - (void)motionBegan:(UIEventSubtype)motion withEvent:(UIEvent ...

VB实现TextBox撤销功能[后退-前进]

VB实现TextBox撤销功能[后退-前进]相关推荐

最新文章

热门文章