東坡下載：內容最豐富最安全的下載站！

首頁 → 編程開發(fā) → VB/asp → 用Visual Basic實現undo功能

用Visual Basic實現undo功能

相關文章發(fā)表評論 來源：本站時間：2010/10/14 13:45:42字體大�。�A-A+

更多

作者：東坡下載點擊：2634次評論：0次標簽：

一、設計思路
　　一般的字處理軟件，如WPS Office、Word都有撤銷功能，極大地方便了用戶，可是這項功能用VB該如何實現呢？這就要用到SendMessage函數，該函數的功能就是向指定的窗口發(fā)送一條消息，它有4個參數，含義如下：
　　.hWnd：用來指定要接受消息的窗口的句柄；
　　.wMsg：用來指定要發(fā)送的消息的編號；
　　.wParam：用來指定消息的第一參數；
　　.1Param：用來消息的第二參數。
　　二、實戰(zhàn)
　　新建一個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

　　在這個程序中，我們向文本框發(fā)送了一個EM_UNDO消息，該消息的功能是取消文本框的最后一個編輯操作。對于該消息，wParam和1Param均無用，故都設為0。
　　按F5看看效果吧，是不是有一種成就感。以上代碼在windowsXP家庭版和VB6中文企業(yè)版下運行通過。
更多精彩內容請點擊

visual studio

專題

相關文章

相關評論

閱讀本文后您有什么感想? 已有 人給出評價!

  • 2791 喜歡喜歡
  • 2101 頂頂
  • 800 難過難過
  • 1219 囧囧
  • 4049 圍觀圍觀
  • 5602 無聊無聊
熱門評論
最新評論
發(fā)表評論 查看所有評論(0)
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數: 0/500 (您的評論需要經過審核才能顯示)