关于截图的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2663人关注过本帖树形打印复制链接主题：关于截图的代码

禾成

小大 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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/5 13:36:00 [只看该作者]

代码没问题，报什么错？如果直接关闭了你的项目，应该是datacolchanged事件死循环了吧？

禾成

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

加好友

发短信

等级：幼狐帖子：149 积分：1295 威望：0 精华：0 注册：2018/12/12 23:23:00

Post By：2019/6/5 16:48:00 [只看该作者]

.NET Framework 版本：2.0.50727.8800

Foxtable 版本：2019.4.12.1

错误所在事件：窗口,主窗口,截取图样,Click

详细错误信息：

未将对象引用设置到对象的实例。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/5 17:04:00 [只看该作者]

你这个表 Tables("报价主表.报价明细") 是空白的没有数据？

代码加入判断，如

basemainform.visible = False
Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    msgbox("ok")
    Dim r = Tables("报价主表.报价明细").current
    If r Is Nothing Then r = Tables("报价主表.报价明细").addnew
    ClipBoard.GetImage.save(projectPath & r("模号") & ".jpg")
    msgbox("保存到了")
    Dim ls = r.DataRow.lines("附图")
    ls.add(projectPath & r("模号") & ".jpg")
    r.DataRow.lines("附图") = ls
End If

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

主题：关于截图的代码