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


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

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

帅哥哟,离线,有人找我吗?
大红袍
  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

 回到顶部