Foxtable(狐表) → 用户栏目 → 专家坐堂 → 双击截图保存


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

主题：双击截图保存
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110655 积分：563189 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/11 15:47:00 [显示全部帖子]

……
        proc.WaitForClose = True
        proc.Start()
        If ClipBoard.ContainsImage Then
    Dim img As Image
    img = ClipBoard.GetImage()
Dim f As String =   e.Row("区域名称") & "\" & e.Row("立面编号") &"\" & e.Row("类别")&"\" & e.Row("施工项目")&".png"
img.save(projectpath & "Attachments\" & f)
e.row("图片") = f
End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110655 积分：563189 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/11 16:13:00 [显示全部帖子]

路径不正确，
msgbox(projectpath  &"\\Vce\toda$\数据文件\"& f)

如果是共享目录，应该这样：img.save("\\Vce\toda$\数据文件\"& f)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110655 积分：563189 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/11 16:50:00 [显示全部帖子]

路径还是不正确，注意路径中的每个目录都必须预先创建好
msgbox("\\Vce\toda$\数据文件\"& f)

或者没有权限写入共享目录
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110655 积分：563189 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/11 17:12:00 [显示全部帖子]

试试保存到本机一个简单的路径

img.save("c:\abc.jpg")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110655 积分：563189 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/12 9:17:00 [显示全部帖子]

我在命令窗口这样测试没有问题

baseMainForm.WindowState= system.Windows.forms.FormWindowState.Minimized
ClipBoard.Clear
Dim proc As new Process
proc.File = ApplicationPath & "/capture.exe"
proc.WaitForClose = True
proc.Start()
If ClipBoard.ContainsImage Then
    Dim img As Image
    img = ClipBoard.GetImage()
    img.save("c:\abc.jpg")
End If

e.cancel = True换个位置试试，如：

If e.Col.name = "图片" Then
        e.cancel = True
    Dim dr As DataRow = e.Row.DataRow
    If dr.IsNull ("区域名称") Or Dr.IsNull("立面编号")  Or Dr.IsNull("类别") Or Dr.IsNull("施工项目")  Then
        MessageBox.show("带 * 为必填","提示")
    Else
        baseMainForm.WindowState= system.Windows.forms.FormWindowState.Minimized
        ClipBoard.Clear
……
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110655 积分：563189 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/15 20:32:00 [显示全部帖子]

这个“确认”按钮是capture.exe这个程序自己的功能，capture.exe好像是从什么搜狗输入法里面提取的一个程序，如果是这个小程序本身和系统的兼容的问题，我们是没有办法的。

或者试试换其它的方法截图
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110655 积分：563189 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/25 20:55:00 [显示全部帖子]

foxtable提供的很多组件都是第三方的，并非自己开发。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询