可以代替窗体Refresh方法的函数

VB中打开AutoRedraw可方便的建立双缓冲，利用API在后台绘图，最后一次性整体更新到前台，实现稳定无闪烁的动画效果，一般情况下，VB会自动进行后台到前台的刷新，这主要有两种情况：
1、收到WM_PAIT消息
2、代码调用Refresh方法

能让VB收到WM_PAIT消息的情况主要有
1、窗体被遮盖或隐藏后重现
2、调用任何VB内部的图形方法，包括PaintPicture、Print、Cls、Line、Circle、Pset
3、调用一些与图形方法有关的特殊方法，如：Point、TextWidth、TextHeight

可见让VB自动更新的机会是很多的，也许我们可以不必关心前台更新的问题，但有此类设计经验的朋友，一定注意到了：如果绘图中没有用到任何VB自己的图形方法，采用纯API绘图，或者做一个连续动画，又不便插入Doevents时，前台会得不到更新。这样我们绘了半天，却没看到内容。
Form及PictureBox都有Refresh方法就是为了解决这种情况而设计的，不过，Refresh方法有时会觉得比较浪费，例如，做一个物体移动动画时，只是不断绘制物体相关的一小块区域，可Refresh方法不管你在后台改写了多少内容，哪怕只是很小一块区域，它也是整个客户区的整体重绘，这种速度自然会慢下来。

下面这个函数就是为代替Refresh方法而写的，在全区刷新时，它比Refresh方法略快一点，但若用于局部刷新，它就会快很多很多了。
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Public Sub BoxRefresh(dhwd As Long, dHdc As Long, X As Long, y As Long, w As Long, h As Long)
    Dim fdc As Long
    fdc = GetDC(dhwd)
    BitBlt fdc, X, y, w, h, dHdc, X, y, vbSrcCopy
    ReleaseDC dhwd, fdc
End Sub

我的机器上1024*768*32时窗体最大化，用Refresh方法3000次，用时需8秒多，但若只更新100X100的区域，Refresh方法能做的还是全屏更新，用上面的BoxRefresh，只需78毫秒。

本文地址：http://com.8s8s.com/it/it41200.htm