picture中有若干个label标签,这样用BitBlt却不能将图片+标签一起保存下来,错在哪里?
pic2为目标,pichx为源目标(待拷贝的图像+标签):
Dim iWd As Long, iHt As Long
iWd = PicHX.Width
iHt = PicHX.Height
Pic2.Cls
BitBlt Pic2.hDc, 0, 0, iWd, iHt, PicHX.hDc, 0, 0, vbSrcCopy
SavePicture Pic2.Image, App.Path & "\test.bmp "
这时打开test.bmp,发现保存的图像为Pic2中空图的样子
[解决办法]
可以采取屏幕抓图的办法解决。祥见我的一个回复(里面有个抓图程序),凡是屏幕上可见的区域都可以抓,哪怕是pichx被其他窗口遮住一部份了,这个窗口也会被抓住:
http://community.csdn.net/Expert/topic/5765/5765132.xml?temp=.6149256