我在屏幕上画一些图形，怎么擦除，把原来的屏幕还原？

我用API函数CreatePen在屏幕画一些图形，想过一些时间让其自动擦除，把原来的屏幕还原？要用到那些API，最好给些源码！
顶者有分!!!，解决问题立即结帖给分！分不够在加！谢谢！

解决方案 »

  1.   

    WC = InvalidateRect(0, 0, 1)
      

  2.   

    to lsftest 能给多点提示吗？用这个API函数，整个屏幕没反映！
    to NewViewStudio 我要把画的所有图形擦去，恢复屏幕
      

  3.   

    InvalidateRect的用途是要求窗口从新描绘某一块区域或整个窗口区域
    第一个参数是被重新描绘的窗口句柄，设为0则重绘所有窗口
    第二个参数指从新描绘的区域，设为0则指重绘整个窗口区域
    屏幕没反应，可能是因为你直接从api viwer里复制的声明，里面对第二个参数的定义为lpRect As RECT，所以不能传入0。可以自己定义一个类似的函数：
    Declare Function InvalidateRectAsAny Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long使用时就：
    InvalidateRectAsAny 0, ByVal 0&, True
      

  4.   

    测试成功谢谢lsftest()！！给分
      

  5.   

    测试成功谢谢lsftest()！！给分