如何在RichTextBox中实现“撤消(Undo)”功能
编号：QA001364
建立日期: 1999年7月18日 最后修改日期：1999年7月18日
所属类别：
daisy:
VB6
NT WorkStation 4.0
如何在RichTextBox中实现“撤消(Undo)”功能？
回答:
下面的办法不但适用于RichTextBox，也适合于TextBox。
先加入以下定义：
Const EM_CANUNDO = &HC6
Private Declare Function SendMessage Lib "User32" Alias _
"SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Const EM_UNDO = &HC7
然后使用
SendMessage RichTextBox1.hWnd, EM_UNDO, 0&, 0&
就可以实现Undo功能。
你也可以使用
lRet = SendMessage(RichTextBox1.hWnd, EM_CANUNDO, 0&, 0&)
来决定是否可以进行Undo操作。如果返回1表示可以。
此问题由李海回答。
| |
|
|
| |
|
|
