| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 527 人关注过本帖
标题:VB6裁剪图片问题,求帮忙修改好
取消只看楼主 加入收藏
yuma
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:银河系
等 级:版主
威 望:6
帖 子:1286
专家分:1870
注 册:2009-12-22
结帖率:89.19%
收藏
已结贴  问题点数:20 回复次数:1 
VB6裁剪图片问题,求帮忙修改好
我想把红方框裁剪并保存下来。但保存下来的总是有多余部分。

图片附件: 游客没有浏览图片的权限,请 登录注册


程序代码:
Private Sub Form_Load()
Me.Show
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Picture1.Picture = LoadPicture("1.BMP")
Picture2.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height, 1100, 0, Picture2.Width, Picture2.Height
sFile = "C:\" & Format(Now, "yyyymmddhhmmss") & ".BMP"
SavePicture Picture2.Image, sFile
MsgBox "当前屏幕图像已经保存到" & sFile, 64
End Sub


VB6裁剪图片.zip (29.39 KB)


[此贴子已经被作者于2020-11-4 14:52编辑过]

搜索更多相关主题的帖子: 保存 图片 VB6 裁剪 修改 
2020-11-04 13:02
yuma
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:银河系
等 级:版主
威 望:6
帖 子:1286
专家分:1870
注 册:2009-12-22
收藏
得分:0 
回复 2楼 cwa9958
我想问一下,前面一个3475, 3255,和后面的一个3475, 3255,分别代表什么意思?

前面的3475, 3250是不是必须的?

[此贴子已经被作者于2020-11-5 15:13编辑过]


心生万象,万象皆程序!   敲敲代码更健康!   
2020-11-05 12:06
快速回复:VB6裁剪图片问题,求帮忙修改好
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.109572 second(s), 10 queries.
Copyright©2004-2021, BCCN.NET, All Rights Reserved