Foxtable(狐表)用户栏目专家坐堂 → [求助]截图后粘贴插入图片到扩展列


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

主题:[求助]截图后粘贴插入图片到扩展列

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/30 15:09:00 [显示全部帖子]

建议在foxtable做一个按钮处理,如

 

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save(projectPath & "attachments/test.jpg")
    msgbox("保存到了")

    Tables("表A").current("第一列") = "test.jpg"
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/3 9:05:00 [显示全部帖子]

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save(projectPath & "attachments/test.jpg")
    msgbox("保存到了")
    Dim ls = Tables("表A").current.DataRow.lines("第一列")
    ls.add("test.jpg")
    Tables("表A").current.DataRow.lines("第一列") = ls
End If

 回到顶部