Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何保持截剪框比例


  共有2361人关注过本帖树形打印复制链接

主题：如何保持截剪框比例
帅哥哟，离线，有人找我吗？
刘林
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		如何保持截剪框比例  发帖心情 Post By：2019/11/15 20:16:00 [显示全部帖子]

Dim t1 As WinForm.TextBox = e.Form.Controls("textbox1")
Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save("d:\test.jpg")
    Dim pbx2 As WinForm.PictureBox
    pbx2= e.Form.Controls("PictureBox2")
    pbx2.Image = GetImage("d:\test.jpg")
    t1.text="d:\test.jpg"
End If

老师，因为有些图片文件的文件为横式，照得不标准，用上面代码是用来裁剪两寸证件照，我想在拉动裁剪框时，宽高比例保持两寸照比例3.4:5.2,请问怎样实现.
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2019/11/15 21:35:00 [显示全部帖子]

老师，我现在的情况是先打开的图片，从哪里裁剪起走是不确定，剪的大小也不确定，要是想剪的比例,还有就是想直接拉动裁剪框时，增减高，宽按比例自动增减，增减宽，高也按比例增减

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2019/11/16 8:44:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:12.rar



老师，上面这个想法不行的话，请你帮看一下之前做的一个过拖动放大缩小的图片的一个窗口例子，我的想法是打开图片文件，在上面放一个正件照比例的固定panl框，不知能不能透明，然后通过拖动或放大缩小图片相对运动，达到要裁剪的图的部分框在panl框内再裁剪成panl框大小的图片，这样估计效果更好，请老师帮研究下如何实现？谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2019/11/16 15:24:00 [显示全部帖子]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2019/11/16 15:28:00 [显示全部帖子]

距想法还差一步，不晓得怎么写，请老师指教


图片点击可在新窗口打开查看此主题相关图片如下：jex8qbw~z{i1y~gyks{{q.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2019/11/17 20:06:00 [显示全部帖子]

老师，我是这样的想法，通过缩放图片、移动图片，将要取图像调到虚框大小再按虚框的坐标位置用代码取图
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:12.rar


昨天都能滚动都能放大缩小,拖动能改变位置，今天不晓得什么可以拖动，但不能缩放大小了呢，是什么地方有问题呢，我没找到请老师帮看下

另外如何用坐标位置来扣出虚框内的这部分图呢
[此贴子已经被作者于2019/11/17 20:09:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2019/11/17 20:41:00 [显示全部帖子]

缩放问题找到了，请问老师现在如何将红虚线内的图用代码截出来，不用下面这个代码去取,因为通过缩放移动到想要的位置，后如双击图片即可取出图来，如图再用剪图代码再沿红线去剪感觉更麻烦，也可能不标准


Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
   
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/11/17 20:42:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2019/11/17 20:59:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


老师，你看一下这个项目文件，
1、我是想加一个panl框来代替红虚框，但背景设置为透明也不能透出图片来，这是什么原因？，没办法就用线段来做的一个。
2、不用项目中的裁剪代码，如何用取图代码来根据红框位置取出图片来？
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2019/11/17 21:02:00 [显示全部帖子]

程老师，这个看不懂，请帮写一个，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2019/11/18 17:33:00 [显示全部帖子]

太谢谢老师了，终于实现了想法，比之前的的裁剪方案好多了，因为之前用户裁剪出来的图比例混乱，现在爽多了
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 8 次数据查询