VB中如何实现Text控件的Undo功能?用API?

flyingghost 2003-11-07 02:23:06
就像VC中CEdit.UnDo()一样?^_^
...全文
53 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
flyingghost 2003-11-14
谢谢!
回复
FSoft 2003-11-09
文本框的Ctrl+z就是撤消功能,你只要用SendKeys语句传递这组合键即可,如下:
Private Sub Command1_Click()
Text1.SetFocus
SendKeys ("^Z")
End Sub
回复
rainstormmaster 2003-11-09
//那一般软件里的多次UnDo和ReDo是怎么做?保存在数组里吗?有效率更高的方法吗?

用数组
回复
flyingghost 2003-11-09
有人回答吗?
回复
flyingghost 2003-11-07
自己啊扑
回复
flyingghost 2003-11-07
哦。那一般软件里的多次UnDo和ReDo是怎么做?保存在数组里吗?有效率更高的方法吗?
回复
射天狼 2003-11-07
Private Const WM_UNDO = &H304
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 Sub Command1_Click()
SendMessage Text1.hwnd, WM_UNDO, 1, vbNullString
End Sub

=======
不过只能撤消一次~~
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告