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

flyingghost 2003-11-07 02:23:06
就像VC中CEdit.UnDo()一样?^_^
...全文
87 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
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

=======
不过只能撤消一次~~

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧