Question

VB用什么API实现Picture1.Cls这个方法同样的功能？

如上图，在UserControl里面的代码，放大、缩小图像我直接用Pic.Cls，然后用StretchBlt画，都正常没问题。

但是在模块里的回调函数PhotoCtrlProc里面，我直接用StretchBlt画，放大图像没问题，缩小图像问题就来了，没Cls就会出现残影（在UserControl里面缩小图像，先Pic.Cls，然后再用StretchBlt画就不会有残影）。
所以请教在模块中用什么API，可以实现Cls这个方法同样的功能呢？
因字数超出限制，我只能截图了。
pic不是form中的，是UserControl中的。Cls的问题已用rectangle 函数解决，现在的问题是用StretchBlt绘制了后，wm_paint后图像又恢复成没绘制前的状态（尺寸和大小）
现在想问的是：用StretchBlt绘制了后，怎样让它绘制的图像保持下来（持续输出？）





Answer 1

你可以将PictureBox作为参数传到模块里，这样就可以在模块里使用Cls方法了。

追问

试过了，不行。比如Public pBox as PictureBox，然后Set pBox=Pic
在模块里pBox.Cls然后用StretchBlt画
结果是放大、缩小图像，图像闪了一下就没了

追答

模块中代码改成这样试试：

Public Function PhotoCtrlProc(ByVal pic As PictureBox, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
............
............
pic.Cls
StretchBlt pic.hDC, xx, yy, rW, rH, memDC, 0, 0, w, h, vbSrcCopy
End Function

调用的时候：
PhotoCtrlProc Picture1, Msg, wParam, lParam

追问

回调函数我怎么可能这么来调用？
Private Sub UserControl_Initialize()

prePhotoWnd = GetWindowLong(pic.hwnd, -4)
ret = SetWindowLong(pic.hwnd, -4, AddressOf PhotoCtrlProc)
imgHDC = pic.hdc
End Sub

追答

用FillRect来填充Picture1的背景色，参考：

Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Private Sub Command1_Click()
    
    '创建刷子
    Dim newBru As Long, re As RECT
    newBru = CreateSolidBrush(vbWhite)  '刷子颜色即为填充颜色
    With re '创建填充区域
      .Left = 0
      .Top = 0
      .Right = Picture1.ScaleWidth
      .Bottom = Picture1.ScaleHeight
    End With
    FillRect Picture1.hdc, re, newBru '填充色彩
    DeleteObject newBru

End Sub

追问

首先感谢这位师兄的回答。 这次的方法消除了残影，但是这次又出现了两个问题：
1、屏闪得厉害（我那截图里，在后面UserControl里面的代码都是不闪的）
2、最小化窗口、然后恢复窗口，所绘的图又会返回到模块代码重绘图像之前的大小比例（同样的UserControl里的代码就不恢复，会一直保持窗口最小化时图像的大小比例）也就是说，在模块里重绘了图像之后，要求还要能保持住！

Answer 2

在模块里你可以这样：
Form1.pic.Cls
也就是加上窗体名即可调用

追问

现在有个新问题，请问：用 StretchBlt(imgHDC,x,y,rw,rh,memDC,0,0,w,h,vbSrcCopy) 绘制在imgHDC上的图像，怎样imgHDC上的图像保持持续输出？

Answer 3

有没有打开双缓冲绘制；
或者用 rectangle 函数 用白色在整个绘图区屏成白色， 实现清屏。
再不行，就手动实现双缓冲，在内存中定义一个相同大小的绘图区，并绘制图形，最后把内存图 整个复制到 窗体图区。

追问

请问，用 StretchBlt(imgHDC,x,y,rw,rh,memDC,0,0,w,h,vbSrcCopy) 绘制在imgHDC上的图像，怎样imgHDC上的图像保持持续输出？

追答

 

usercontrol自定义控件的autoredraw属性改为true,即打开双缓冲绘图机制

追问

我知道AutoRedraw就是持续输出图像。但是我这程序里，只要一设置它为True，加载到PictureBox里的图像就永不改变，模块里的StretchBlt就根本不起作用了啊？！

追答

你这个是VB6还是vb.net呀， 如果autoredraw设定成true，stretchblt不放大，那可能是你的程序中有些地方在不停的用原图刷新 绘图区域，而不是stretchblt不起作用。