用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中文企业版下运行通过。
阅读关于 VB 的全部文章

上一篇： Visual Basic中调用MSN API函数
下一篇： VB中用第三方控件制作资源管理器

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有