Question

VB，bitblt函数

我想让picture1的图片复制到picture2里，并且picture2里有一张图片，但是我复制过去后，picture2里的图片会像是主动给picture1的图片让出了位置一样。怎么样才能让picture1的图片在不影响picture2的情况复制在picture2上？

Answer 1

BitBlt Picture2.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hDC, 0, 0, vbSrcCopy

追问

我就是这样弄的，但是不成，我把宽度和高度改成280之后，才得到了想要的，相当于图片叠加的样子。Picture1.ScaleWidth, Picture1.ScaleHeight这样设置出来，他截图却是picture2的高度和宽度，我也看过picture1和picture2是否弄反了，但是不是。十分十分郁闷···

追答

不是主动给picture1的图片让出了位置，而是把picture1+picture2一同复制贴进picture2了，因为单位不对，呵呵，这样试试：
BitBlt Picture2.hDC, 0, 0, Picture1.ScaleWidth / Screen.TwipsPerPixelX, Picture1.ScaleHeight / Screen.TwipsPerPixelY, Picture1.hDC, 0, 0, vbSrcCopy