复制图片的问题,请帮忙看一下呗送50分

Question

程序内容如下
Dim Bru As Long '刷子句柄
Dim WDC As Long 'pic1句柄
Dim picBits() As Byte
Dim picInfoD As BITMAP
Dim bytesperpixel As IntegerPrivate Sub Form_Load()
    Pic2.Width = Pic1.Width
    Pic2.Height = Pic1.Height
End Sub
'注: 图片框scalemode设置为pixel
Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Pic1.DrawMode = 13
    If SPN = 0 Then
        SPN = 1
        ReDim Preserve PTS(1 To 2)
        PTS(1).X = X
        PTS(1).Y = Y
    ElseIf SPN = 1 Then
        SPN = 2
        PTS(2).X = X
        PTS(2).Y = Y
    Else
        SPN = 3
        Pic1.DrawMode = 13
        WDC = GetDC(Pic1.hwnd)
        Bru = CreateSolidBrush(vbBlack)
        ReDim Preserve PTS(1 To 3)
        PTS(3).X = X
        PTS(3).Y = Y
        hRgn = CreatePolygonRgn(PTS(1), 3, 1)
        FillRgn WDC, hRgn, Bru
        DeleteObject hRgn
        DeleteObject Bru
        
        With Pic1
            GetObject .Image, Len(picInfoD), picInfoD
            bytesperpixel = picInfoD.bmBitsPixel \ 8
            ReDim picBits(1 To picInfoD.bmWidth * picInfoD.bmHeight * bytesperpixel)            GetBitmapBits .Image, UBound(picBits), picBits(1)
        End With
        
        GetBitmapBits Pic1.Image, UBound(picBits), picBits(1)
        SetBitmapBits Pic2.Image, UBound(picBits), picBits(1)
    End If
End Sub可是最终pic2里啥都没有

Answer 1

我试过了成功，注意
pic1.AutoRedraw=True 
pic2.AutoRedraw=True

Answer 2

不可能成功,我设置的也是autoredraw=true,我是想在pic2里可以得到pic1里的图像

Answer 3

我不懂刷子，我是这样做的在Pic1_MouseDown中我不知spn是什么意思，我直接设spn＝2
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As LongPrivate Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Type BITMAP '14 bytes
        bmType As Long
        bmWidth As Long
        bmHeight As Long
        bmWidthBytes As Long
        bmPlanes As Integer
        bmBitsPixel As Integer
        bmBits As Long
End Type
Dim Bru As Long '刷子句柄
Dim WDC As Long 'pic1句柄
Dim picBits() As Byte
Dim picInfoD As BITMAP
Dim bytesperpixel As Integer
Dim PTS() As POINTAPI
Private Declare Function FillRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Sub Form_Load()
    Pic2.Width = Pic1.Width
    Pic2.Height = Pic1.Height
    Pic1.AutoRedraw = True
    Pic2.AutoRedraw = True
End Sub
'注: 图片框scalemode设置为pixel
Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  spn = 2
    Pic1.DrawMode = 13
    If spn = 0 Then
        spn = 1
        ReDim Preserve PTS(1 To 2)
        PTS(1).x = x
        PTS(1).y = y
    ElseIf spn = 1 Then
        spn = 2
        PTS(2).x = x
        PTS(2).y = y
    Else
        Pic1.Print "sdfsdfa"
        spn = 3
        Pic1.DrawMode = 13
        WDC = GetDC(Pic1.hwnd)
        Bru = CreateSolidBrush(vbBlack)
        ReDim Preserve PTS(1 To 3)
        PTS(3).x = x
        PTS(3).y = y
        hRgn = CreatePolygonRgn(PTS(1), 3, 1)
        FillRgn WDC, hRgn, Bru
        DeleteObject hRgn
        DeleteObject Bru
        
        With Pic1
            GetObject .Image, Len(picInfoD), picInfoD
            bytesperpixel = picInfoD.bmBitsPixel \ 8
            ReDim picBits(1 To picInfoD.bmWidth * picInfoD.bmHeight * bytesperpixel)            GetBitmapBits .Image, UBound(picBits), picBits(1)
        End With
        
        GetBitmapBits Pic1.Image, UBound(picBits), picBits(1)
        SetBitmapBits Pic2.Image, UBound(picBits), picBits(1)        'Pic2.Refresh
    End If
End Sub

Answer 4

首先，你需要设置一个模块级的SPN变量，否则在Pic1_MouseDown过程中，这个值永远等于0，下面的绘图过程永远不会被执行
其次，如果你执意要使用.Image属性，那么再将autoredraw=true的同时，还需要在Pict1中载入一幅图像。
最后，如果Pic2的Autoredraw=false，那么你需要pic2.refresh另外，倒数第二条语句GetBitmapBits Pic1.Image, UBound(picBits), picBits(1)纯属多余。修改代码后，在Pic1中点击鼠标三次，使其围成一个三角形，你可以看到一个三角形，并将Pic1中的图像复制到pic2中。如果你不明白为什么要在Pic1中加入图像，那么你去找些相关的资料看一下，了解一下PictureBox控件在Autoredraw不同值时，Image、hdc等属性的关系和不同你就会理解了。

Answer 5

你聪明吗?
首先,我告诉你我已经设置了一个模块级变量,不设置我也不可能把源码发上来,我发的只是部分源码!
其次,我想要的是我用当前画刷画出来的三角形,而不是一幅图片而已
最后,我的pic2已经设置了artoredraw=false
另外,我想知道你是怎么判断倒数第二条语句是多余的,我用GetBitmapBits Pic1.Image, UBound(picBits), picBits(1)不仅仅是想复制图片而已,而是后续有相应的位图操作,至于是什么操作,不好意思,不告诉你!
修改代码后,在pic1中点击三次,麻烦你试一下,我可以告诉你,执行到GetBitmapBits .Image, UBound(picBits), picBits(1)时pic1里已经没有三角形了,麻烦你敬业一些亲自试试.
如果你不明白我的用意,请给我email
最后还是要谢谢你

Answer 6

1、请将 WDC = GetDC(pic1.hwnd) 更改为 WDC=pic1.hdc
2、请设 pic1.AutoRedraw=True

Answer 7

WDC = GetDC(Pic1.hwnd)换成WDC = Pic1.hdc就可以了！！！！！

Answer 8

因为当PIC1的AUTOREDRAW为TRUE时，其HDC与GETDC得到的结果是不同的，是FALSE的时候是一致的。

Answer 9

原因大概是FALSE时整个PIC1子窗体全部都可以看作能供用户使用的所谓客户区，而TRUE时GETDC得到的客户区可能位于其他地方。而HDC是指整个窗体而不是客户区。

Answer 10

当pic1.autoredraw=true时pic1.hdc是和内存中实际HDC保持一致的，而当pic1.autoredraw=false时则不是这样，所以当pic1.autoredraw=false时对pic1.hdc的操作并未对内存中的图像造成改变