[分享][原创]列截图功能（解决）谢谢老师们最后的代码有效 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享][原创]列截图功能（解决）谢谢老师们最后的代码有效

共有1997人关注过本帖树形打印复制链接主题：[分享][原创]列截图功能（解决）谢谢老师们最后的代码有效

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/5 10:06:00 [显示全部帖子]

CellButtonClick事件

If e.Col.name = "截图功能" Then
    ClipBoard.Clear
    Dim proc As new Process
    proc.File = ApplicationPath & "/capture.exe"
    proc.WaitForClose = True
    proc.Start
    If ClipBoard.GetImage IsNot Nothing Then
        Dim f As String = ProjectPath & format(Date.now, "yyyyMMddHHmmss") & ".jpg"
        ClipBoard.GetImage.save(ProjectPath & format(Date.now, "yyyyMMddHHmmss") & ".jpg")
        e.Row(e.Col.name) = f
    End If
    e.cancel = True
End If

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/5 14:57:00 [显示全部帖子]

If e.Col.name = "图片" Then
    ClipBoard.Clear
    Dim proc As new Process
    proc.File = ApplicationPath & "/capture.exe"
    proc.WaitForClose = True
    proc.Start
    If ClipBoard.GetImage IsNot Nothing Then
        Dim f As String = e.row("项目") & "\" & "报价配图" & "\"& Format( date.Today,"yyyy-MM-dd") & "/" & e.Row("产品名") & e.Row("工艺用材说明") & ".jpg"
        Dim path As String = e.Col.DataCol.DefaultFolder
        If path = "" Then
            path = ProjectPath & "Attachments/"
        End If
        Dim dir As String = FileSys.GetParentPath(path & "/" & f)
        If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)
        ClipBoard.GetImage.save(path & "/" & f)
        e.Row(e.Col.name) = f
    End If
    e.cancel = True
End If

下一主题 >> << 上一主题

主题：[分享][原创]列截图功能（解决）谢谢老师们 最后的代码有效

主题：[分享][原创]列截图功能（解决）谢谢老师们最后的代码有效