首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

picture中有若干个label标签,这样用BitBlt却不能将图片+标签一起保存下来,错在哪里?该怎么解决

2012-03-07 
picture中有若干个label标签,这样用BitBlt却不能将图片+标签一起保存下来,错在哪里?pic2为目标,pichx为源

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

热点排行