我编了一个记事本,但不会实现撤消!最好有源码!谢谢!

old_horse 2001-11-27 05:49:45
...全文
63 6 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
progame 2001-12-03
  • 打赏
  • 举报
回复
网上找源代码,然后抄袭就行了
old_horse 2001-12-03
  • 打赏
  • 举报
回复
能不能详细点,如何使用collection或dictionary?谢谢!
progame 2001-11-30
  • 打赏
  • 举报
回复
多次撤消,使用collection或dictionary
Bardo 2001-11-28
  • 打赏
  • 举报
回复
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Const EM_UNDO = &HC7

Dim cbhWnd As Long
Dim Retval

FrmMdi.ActiveForm.SetFocus
cbhWnd = GetFocus()
Retval = SendMessage(cbhWnd, EM_UNDO, 0, 0)

flashboy 2001-11-27
  • 打赏
  • 举报
回复
使用堆栈可以实现撤消恢复!!
Bardo 2001-11-27
  • 打赏
  • 举报
回复
VB中就有现的的例子,或者,用VB的应用程序向导,则也会生成这样的代码。
相关推荐
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-11-27 05:49
社区公告
暂无公告