VB的PaintPicture与StretchBlt的异同比较

不太了解这两个函数的小伙伴可以先看一下下面几篇博客：

PaintPicture函数
http://blog.csdn.net/wf824284257/article/details/53221631
http://blog.csdn.net/wf824284257/article/details/53222996

StretchBlt函数
http://blog.csdn.net/wf824284257/article/details/53353868

1 函数原型

下面是StretchBlt函数声明

Declare Function StretchBlt Lib "gdi32" _
( _
ByVal hdc 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 nSrcWidth As Long, _
ByVal nSrcHeight As Long, _
ByVal dwRop As Long _
) As Long

下面是PaintPicture参数表

对象.PaintPicture picture,x1,y1,[width1],[height1],[x2],[y2],[width2],[height2],[opcode]

这两个函数作用几乎一样的，但它们有什么不同之处呢，博主今天简单的探究了一下。

2 实验过程

窗体上有2个picture控件，我们要做的是把picture1中图片复制到picture2中，下面我们看一下使用这两个函数有什么不同之处

实验窗体如下图

先定义w和h

Dim w As Integer, h As Integer
w = Picture1.ScaleWidth
h = Picture1.ScaleHeight

直接使用StretchBlt函数

Picture2.Cls
StretchBlt Picture2.hdc, 0, 0, w, h, Picture1.hdc, 0, 0, w, h, vbSrcCopy

可以看出，这不是我们想要的结果，在picture2中竟然画出了多余的边框，多余部分是picture1的右边框和picture2的左边框。

这是因为StretchBlt的参数单位是像素Pixels，而picture控件默认单位是缇Twips，1Pixel>1Twips，由于单位不统一导致了w和h远大于picture1的宽和高。

下面是直接使用PaintPicture函数

Picture2.Cls
Picture2.PaintPicture Picture1.Picture, 0, 0, w, h, 0, 0, w, h, vbSrcCopy

这是我们想要的结果

那使用StretchBlt函数达到正确的复制图片效果，应该怎么做呢？

正确做法：

Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels
w = Picture1.ScaleWidth
h = Picture1.ScaleHeightPicture2.Cls
StretchBlt Picture2.hdc, 0, 0, w, h, Picture1.hdc, 0, 0, w, h, vbSrcCopy

这下就正常了，可以看出PaintPicture的参数单位是缇Twips

下面我们测试一下将单位改成像素后的paintpicture函数会出现怎样的结果

Picture1.ScaleMode = vbPixels
w = Picture1.ScaleWidth
h = Picture1.ScaleHeight
Picture2.Cls
Picture2.PaintPicture Picture1.Picture, 0, 0, w, h, 0, 0, w, h, vbSrcCopy

可以看出，picture2上只画了左上角一点点图片，这是因为一个像素=15个缇，所以picture2的图片宽和高只有十五分之一

最后一个测试是测试paintpicture的过度抓图会出现怎样的效果。刚刚的StretchBlt在抓图范围大于picture1的大小时，会抓到窗体上，那PaintPicture会不会呢

Picture2.Cls
Picture2.PaintPicture Picture1.Picture, 0, 0, w, h, 0, 0, 2*w, 2*h, vbSrcCopy

这此我们代码抓图抓的宽和高都是picture1的宽高的两倍。结果如下

可以看出，PaintPicture的抓图会限定在对象内，不会抓到窗体或者其他控件。

结束

希望可以帮到后来的小伙伴们