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


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

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


加好友 发短信
等级：九尾狐 帖子：2483 积分：22965 威望：0 精华：0 注册：2011/3/29 17:14:00 		双击截图保存  发帖心情 Post By：2020/11/11 15:33:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113751 积分：579316 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2483 积分：22965 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2020/11/11 16:11:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113751 积分：579316 威望：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)
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2483 积分：22965 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2020/11/11 16:40:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113751 积分：579316 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/11 16:50:00 [只看该作者]

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

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


加好友 发短信
等级：九尾狐 帖子：2483 积分：22965 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2020/11/11 17:10:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113751 积分：579316 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/11 17:12:00 [只看该作者]

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

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


加好友 发短信
等级：九尾狐 帖子：2483 积分：22965 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2020/11/11 19:00:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113751 积分：579316 威望：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
……
 回到顶部
总数 14 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.04297 秒, 4 次数据查询