743
社区成员
发帖
与我相关
我的任务
分享急问! 怎样把image中的图片缩小并保存?~ 不是改变image控件的大小!
急问! 怎样把image中的图片缩小并保存?~ 不是改变image控件的大小!
感谢!
感谢!
...全文
请发表友善的回复…
发表回复
lickcode 2004-12-20
- 打赏
- 举报
Image1.Stretch = True '让图片缩放成Image1的大小
Image1.Stretch = False '让Image1变成图片缩的大小，保持原图无缩放
PictureBox1.PaintPicture Image1,x,y,w,h '可用W、H 让图片变成任意你想要的大小
SavePicture PictureBox1.Image,"c:\1.bmp" '保存上面大小的图片
Image1.Stretch = False '让Image1变成图片缩的大小，保持原图无缩放
PictureBox1.PaintPicture Image1,x,y,w,h '可用W、H 让图片变成任意你想要的大小
SavePicture PictureBox1.Image,"c:\1.bmp" '保存上面大小的图片
laviewpbt 2004-12-18
- 打赏
- 举报
上面的方法保存的图象的大小和原来的是一样的，即使把image的stretch属性设置为true,
我想还是用picturebox。
我想还是用picturebox。
aohan 2004-12-18
- 打赏
- 举报
Private Sub Form_Load()
Image1.Picture = LoadPicture("c:\17attmachine.jpg")
SavePicture Image1.Picture, "c:\test.jpg"
End Sub
Image1.Picture = LoadPicture("c:\17attmachine.jpg")
SavePicture Image1.Picture, "c:\test.jpg"
End Sub
aohan 2004-12-18
- 打赏
- 举报
Image1.Stretch = True '图片将会随着IMAGER一起变动大小
