用Visual Basic實(shí)現(xiàn)undo功能
一、設(shè)計(jì)思路
一般的字處理軟件，如WPS Office、Word都有撤銷功能，極大地方便了用戶，可是這項(xiàng)功能用VB該如何實(shí)現(xiàn)呢？這就要用到SendMessage函數(shù)，該函數(shù)的功能就是向指定的窗口發(fā)送一條消息，它有4個(gè)參數(shù)，含義如下：
.hWnd：用來(lái)指定要接受消息的窗口的句柄；
.wMsg：用來(lái)指定要發(fā)送的消息的編號(hào)；
.wParam：用來(lái)指定消息的第一參數(shù)；
.1Param：用來(lái)消息的第二參數(shù)。
二、實(shí)戰(zhàn)
新建一個(gè)EXE窗體，上面放置一個(gè)textbox、兩個(gè) commndbotton控件，名稱分別為text1、command1、command2，caption分別為text1、撤銷、退出，其它設(shè)置取默認(rèn)值。
打開(kāi)API閱覽器，將函數(shù)SendMessage復(fù)制到窗體代碼中。所有源代碼如下：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
在這個(gè)程序中，我們向文本框發(fā)送了一個(gè)EM_UNDO消息，該消息的功能是取消文本框的最后一個(gè)編輯操作。對(duì)于該消息，wParam和1Param均無(wú)用，故都設(shè)為0。
按F5看看效果吧，是不是有一種成就感。以上代碼在windowsXP家庭版和VB6中文企業(yè)版下運(yùn)行通過(guò)。
