以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【已解决】[求助]想问问，如何做到截图截取狐表后面的，隐藏掉狐表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134233)
--  作者：zto001
--  发布时间：2019/4/30 14:58:00
--  【已解决】[求助]想问问，如何做到截图截取狐表后面的，隐藏掉狐表
[求助]想问问，如何做到截图截取狐表后面的，隐藏掉狐表。
[此贴子已经被作者于2019/5/4 10:15:15编辑过]
--  作者：有点甜
--  发布时间：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
--  发布时间：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