在picture box控件中有没有调整图片大小的方法

51flyou 2004-08-11 03:41:29
在picture box控件中有没有调整图片大小的方法

Picture1.Picture = LoadPicture("D:\Project\平面相间\ver4\e.bmp")
Picture2.Picture = LoadPicture("D:\Project\平面相间\ver4\f.bmp")

Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels

Picture1.Width = 1063
Picture1.Height = 1299

Picture2.Width = 1063
Picture2.Height = 1299
'如果1.bmp与2.bmp的大小只有200*300pixel用下面的方法不能把它调整到所希望的大小。
保存时还是200*300pixel.
Picture1.ScaleWidth = 1063
Picture1.ScaleHeight = 1299

Picture2.ScaleWidth = 1063
Picture2.ScaleHeight = 1299

有其它的方法吗
...全文
152 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
of123 2004-08-11
  • 打赏
  • 举报
回复
试试:
另建一个 Picture3,Visible = False.

将 Picture1 图片复制到 Picture3:
Picture1.PaintPicture Picture3.Image, 0, 0, Picture1.Width, Picture1.Height, Picture1.Left, Picture1.Top, Picture1.Width, Picture1.Height

再用 Picture3 保存文件。
cpio 2004-08-11
  • 打赏
  • 举报
回复
.PaintPicture

1,451

社区成员

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

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