7,785
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
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)
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的应用程序向导，则也会生成这样的代码。
