使用StretchBlt中的图象保存不住的问题

hotenM 2003-10-16 06:54:59
三控件,picture1,picture2,command2
Private Sub Command2_Click()
Dim w As Integer, h As Integer
Picture1.Picture = LoadPicture("g:\gg-manhuabao.jpg")
w = Picture1.Width
h = Picture1.Height


Picture2.Width = w * 1.2
Picture2.Height = h * 1.2

StretchBlt Picture2.hdc, 0, 0, w * 1.2, h * 1.2, Picture1.hdc, 0, 0, w, h, vbSrcCopy


SavePicture Picture2.Image, "g:\gg-manhuabao41.jpg"

End Sub

'结果就是保存出来的g:\gg-manhuabao41.jpg是一个空白的图,不知道为什么好象并没有把值付到PICTURE2上,只要我调用
picture2.refresh
或者我切换一下窗口,PICTURE2的图象就消失了

...全文
46 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
射天狼 2003-10-17
  • 打赏
  • 举报
回复
同意一楼,或者在PAINT事件里写代码!!
hotenM 2003-10-17
  • 打赏
  • 举报
回复
谢谢
online 2003-10-16
  • 打赏
  • 举报
回复
将picture2的autoredraw设为true
设定一个持久的图形输出

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧