如何用VB实现双缓冲处理图片的闪烁问题？

[xuelang24531]

有没大虾知道如何在VB中实现双缓冲处理啊，例如在PICTURE画图时防止闪烁问题。。。在线等

[Tiger_Zhao]

设置 AutoRedraw 就会自动实现双缓冲。
不同通常的闪烁问题是由于太频繁地进行刷新引起的。

[xuelang24531]

那如何新建一缓冲区，然后在里面绘图，最后再复制到picture上了，这样就不会出现按顺序出现图像的情况了。现在我把图片进行一个一个像素点绘出来后图片出现从上到下出现的情况，我想用双缓冲在缓存中画好再贴出来，请问改怎样做了？

[Tiger_Zhao]

Option Explicit

Private Sub DrawPicture()
    Dim x As Long, y As Long

    Randomize
    Picture1.Cls
    For x = 0 To Picture1.ScaleWidth - 1
        For y = 0 To Picture1.ScaleHeight - 1
            If Rnd() < 0.5 Then
                Picture1.PSet (x, y)
            End If
        Next
    Next
End Sub

'无缓冲的方式，图像逐渐显示'
Private Sub Command1_Click()
    Picture1.AutoRedraw = False
    DrawPicture
End Sub

'无缓冲的方式，图像一次显示'
Private Sub Command2_Click()
    Picture1.AutoRedraw = True
    DrawPicture
    Picture1.Refresh
End Sub

Private Sub Form_Load()
    Picture1.BackColor = vbWhite
    Picture1.ForeColor = vbBlack
    Picture1.ScaleMode = vbPixels
End Sub

[Cauly123]

用几个api函数解决
具体方法

public function CreateBitmap(pic as picturebox) as long
dim mDc as long, mBitmap as long
mdc=CreateCompatibleDc(pic.hdc)
mBitmap=CreateCampatibleBitmap(pic.hdc,pic.scaleWidth,pic.scaleHeight)'假设pic.scalemode为pixel
selectObject mdc,mbitmap

CreateBitmap=mdc
end function

'此时mdc就是内存画布的dc，可以对他进行绘图操作
'需要时bitblt到图片的hdc上就ok了

[starwork]

楼上正解！，但楼主是不理解！

[ZOUYONG0929]

楼上正解！

[xuelang24531]

多谢各位了