• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

用visual basic实现undo功能

一、设计思路

　　一般的字处理软件，如wps office、word都有撤销功能，极大地方便了用户，可是这项功能用vb该如何实现呢？这就要用到sendmessage函数，该函数的功能就是向指定的窗口发送一条消息，它有4个参数，含义如下：

　　.hwnd：用来指定要接受消息的窗口的句柄；

　　.wmsg：用来指定要发送的消息的编号；

　　.wparam：用来指定消息的第一参数；

　　.1param：用来消息的第二参数。

　　二、实战

　　新建一个exe窗体，上面放置一个textbox、两个 commndbotton控件，名称分别为text1、command1、command2，caption分别为text1、撤销、退出，其它设置取默认值。

　　打开api阅览器，将函数sendmessage复制到窗体代码中。所有源代码如下：

option explicit 　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 const em_canundo = &hc6 　private const em_undo = &hc7 private sub command1_click() 　dim i as integer 　i = sendmessage(text1.hwnd, em_undo, 0, 0) end sub private sub command2_click() 　end end sub

　　在这个程序中，我们向文本框发送了一个em_undo消息，该消息的功能是取消文本框的最后一个编辑操作。对于该消息，wparam和1param均无用，故都设为0。

　　按f5看看效果吧，是不是有一种成就感。以上代码在windowsxp家庭版和vb6中文企业版下运行通过。
  

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范