【已解决】[求助]想问问，如何做到截图截取狐表后面的，隐藏掉狐表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【已解决】[求助]想问问，如何做到截图截取狐表后面的，隐藏掉狐表

共有2207人关注过本帖树形打印复制链接主题：【已解决】[求助]想问问，如何做到截图截取狐表后面的，隐藏掉狐表

zto001

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

加好友

发短信

等级：六尾狐帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00

【已解决】[求助]想问问，如何做到截图截取狐表后面的，隐藏掉狐表 发帖心情

Post By：2019/4/30 14:58:00 [只看该作者]

[求助]想问问，如何做到截图截取狐表后面的，隐藏掉狐表。

[此贴子已经被作者于2019/5/4 10:15:15编辑过]

有点甜

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

加好友

发短信

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

Post By：2019/4/30 15:07:00 [只看该作者]

先隐藏foxtable主界面，再截图，如

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")
End If

basemainform.visible = True

zto001

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

加好友

发短信

等级：六尾狐帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2019/5/4 10:15:00 [只看该作者]

'隐藏狐表

basemainform.visible = False

'延迟0.2秒确保完全隐藏

Dim sdt As Date = Date.Now

While Date.Now < sdt.AddSeconds(0.2)

Application.DoEvents

End While

'打开截图

Dim proc As new Process

proc.File = ApplicationPath & "capture.exe"

proc.WaitForClose = True

proc.Start

If ClipBoard.GetImage IsNot Nothing Then

MessageBox.Show("截图成功")

End If

'显示狐表

basemainform.visible = True

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

主题：【已解决】[求助]想问问，如何做到截图截取狐表后面的，隐藏掉狐表