用VisualBasic實現(xiàn)undo功能

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