Foxtable(狐表)用户栏目专家坐堂 → 关于截图的代码


  共有1703人关注过本帖平板打印复制链接

主题:关于截图的代码

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


加好友 发短信
等级:幼狐 帖子:149 积分:1295 威望:0 精华:0 注册:2018/12/12 23:23:00
关于截图的代码  发帖心情 Post By:2019/6/5 13:33:00 [只看该作者]

截图时隐藏的主窗口截图后不出来同,直接就关闭程序了
basemainform.visible = False
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 & Tables("报价主表.报价明细").current("模号") & ".jpg")
    msgbox("保存到了")

接下来如何将这个图片放入到表的附图列?下面的代码不行同,请指教

    Dim ls = Tables("报价主表.报价明细").current.DataRow.lines("附图")
    ls.add(projectPath & Tables("报价主表.报价明细").current("模号") & ".jpg")
    Tables("报价主表.报价明细").current.DataRow.lines("附图") = ls
End If

 回到顶部