如何剪裁图片的某一部分?请各位大侠帮帮忙。

wenllon 2004-09-24 09:58:33
我想对一张bmp图片进行剪裁,就是把图片的中间部分裁剪下来作为一张相片,规格为180(宽)*240(高),不知道如何实现????望各位大侠帮帮忙,最好能给出源代码,小弟在此先谢过了。
...全文
141 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
jam021 2004-09-24
  • 打赏
  • 举报
回复
学习,帮你顶一下
laviewpbt 2004-09-24
  • 打赏
  • 举报
回复
侃侃pictureclip控件可不可以
VirtualAlloc 2004-09-24
  • 打赏
  • 举报
回复

Private Sub Command1_Click()
'从 picture1 复制到 picture2
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Set Picture1.Picture = LoadPicture("c:\temp.bmp")

Picture2.PaintPicture Picture1.Picture, 0, 0, 180, 240, 0, 0, 180, 240, vbSrcCopy
Picture2.Refresh

SavePicture Picture2.Picture, "c:\temp.bmp"
End Sub
wenllon 2004-09-24
  • 打赏
  • 举报
回复
TO:langkew(拉倒)

有办法当然想知道了,哈哈。
evancss 2004-09-24
  • 打赏
  • 举报
回复
好啊!需要压JPG吗?我这有一个方法
yijiansong 2004-09-24
  • 打赏
  • 举报
回复
楼上的都说了
laviewpbt 2004-09-24
  • 打赏
  • 举报
回复
SavePicture Picture2.image, "c:\temp.bmp" 就没有问题了
wenllon 2004-09-24
  • 打赏
  • 举报
回复
To:VirtualAlloc(我是一只小小小菜鸟~~)

好像SavePicture Picture2.Picture, "c:\temp.bmp" 这句保存不了啊,说属性错误,不知道是什么原因?望指教。谢谢。

7,763

社区成员

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

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