如何做多次撤消？

前两天还见过一个源码
就是用类模块实现的，API只用了一个SendMessage
可惜，我不知到给塞到哪里了
不过，他这种做法如果数据量很大会很好内存的

解决方案 »

  1.   

    我正好有这样的例子，就是richtextbox的，需要你的邮箱，38kb。
      

  2.   

    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_UNDO = &H304
    '给RichTextBox发送UnDo 消息
    Private Sub Command1_Click()
     SendMessage Me.RichTextBox1.hwnd, WM_UNDO, 0&, 0&
    End Sub
      

  3.   

    lysong(平)的代码好像只能重复最后一次，怎么常量定义和我的这里的还不一样呢？
      

  4.   

    Public Const EM_UNDO = &HC7
    Public Const WM_UNDO = &H304
    看错了，是两个常量
      

  5.   

    回复人： holydiablo(鱼头) ( ) 信誉：108  2003-02-28 14:55:00  得分:0 
     
     
      你的信誉.....
      
     
    Top 
     
     回复人： wxy_xiaoyu(然也) ( ) 信誉：110  2003-02-28 15:47:00  得分:0 
     
     
      他的信誉......
      
     
    Top 
     
     回复人： nik_Amis(Azrael) ( ) 信誉：110  2003-02-28 15:53:00  得分:0 
     
     
      侬的信誉......
      
     
    信誉高有个屁用！不外乎你在给他们卖命换来的这种就象某人说的MB都不如FEN而已！
    我为我现的这个XY FEN而自豪！！！！！！！因为我是用什么换来的你们是否明白？
      

  6.   

    http://expert.csdn.net/Expert/topic/1448/1448950.xml?temp=.1641199
      

  7.   

    给我一份吧,谢谢
    [email protected]
      

  8.   

    感谢楼上各位，我找到了：
    下面的地址可以下载！
    http://www.easthot.net/dl_info.asp?id=160
    还是谢大家！