VB如何实现Undo(撤消)功能

在许多应用程序中,例如许多编辑软件都有UNDO功能。它给我们带来了方便。
那么在VB中能不能实现UNDO功能呢?答案是肯定的。下面介绍一下对于标准的文本
框或组合框实现UNDO功能的示例代码:

Declare Function SendMessage Lib"user"(ByVal hWnd As Integer,
ByVal wMsg As Integer,wParam As Integer,lparam As Any) As Long
Global Const WM_USER = &H400
Global Const EM_UNDO = WM_USER + 23
UndoResult = SendMessage(myControl.hWnd, EM_UNDO, 0, 0)
 
 

摘自:网络整理


相关参考


VB查找替代字符串的函数

VB换行气泡提示类

VB/VBA通用路径选择对话框

ASCII码表0-255完整版 附详细注释

VBKeyAscii

VB取得TextBoxRichTextBox光标所在的行和列(支持汉字)

VB取得TextBoxRichTextBox光标所在的行和列(支持汉字)

VB如何实现Undo(撤消)功能

VB计算文本文件的行数

VB获取快捷方式原文件路径

微软 Small Basic 简体中文版 已经发布了

VB操作Excel 非常详细 [网摘]

VB如何判断文件正被占用/已被打开

VB添加listbox 的水平卷动轴

VB打开资源管理器并指定文件

VB根据窗体自动调整窗体内控件大小 注:实用,可以直接引用

VB中的指针技术

Visual Basic编程常见问题及解答(1

Visual Basic编程常见问题及解答(2

Visual Basic编程常见问题及解答(3

VisualBasic变量、常数和数据类型及过程概述

VB6的后期绑定和前期绑定

VB用户控件制作讲解与实例

VB制作OCX控件的步骤

VBFSO的调用的两种方法

VB操作EXCEL

VB判断文件及目录的存在性

VB网站(最新、经典源代码、技术文章、基础知识)

VB得到指定文件夹下的文件列表

VB产生随机任意大小文件挤满硬盘

VB文件的读写操作

VB创建超链接 打开指定网站的几种方法

VB 源码 删除重复行程序 函数

VB 计算自己程序段所用时间

VB 获取路径名各部分 (获取文件路径,获取文件名,获取文件扩展名)自编

几行VB代码拿下注册表

VB 在浏览器中打开指定网址

VB窗口置顶

vb ListBox 之中点击右键弹出菜单

VB.NET中,可以使用RichTextBox控件的Undo方法来执行撤销操作。该方法会撤销最近的文本更改。以下是一个示例代码: ```vb.net RichTextBox1.Undo() ``` 另外,你还可以使用SendMessage函数来发送EM_UNDO消息给RichTextBox控件,以执行撤销操作。EM_UNDO消息的值为199。以下是一个示例代码: ```vb.net SendMessage(RichTextBox1.Handle, 199, 0, 0) ``` 请注意,以上代码中的RichTextBox1是指你的RichTextBox控件的名称。你需要将其替换为你实际使用的控件名称。引用\[1\]提供了获取当前被选中文本位置的方法,但在撤销操作中并不需要使用该方法。引用\[2\]提供了一个ReadP函数的示例,但在撤销操作中也不需要使用该函数。引用\[3\]提供了一个SendMessage函数的声明,用于发送消息给窗口。 #### 引用[.reference_title] - *1* *3* [VB取得TextBox、RichTextBox光标所在的行和列(支持汉字)](https://blog.csdn.net/miaozk2006/article/details/82422138)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^control,239^v3^insert_chatgpt"}} ] [.reference_item] - *2* [VB实现TextBox撤销功能[后退-前进]](https://blog.csdn.net/ty5858/article/details/124365370)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^control,239^v3^insert_chatgpt"}} ] [.reference_item] [ .reference_list ]
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值