- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 最小化时的残像 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118749)
-- 发布时间：2018/5/10 10:56:00
-- 最小化时的残像
e.Form.BaseForm.windowstate = 1
ClipBoard.Clear
Dim proc As new Process
proc.File = ApplicationPath & "/capture.exe"
proc.WaitForClose = True
proc.Start
使用这个代码时，会出现缩小当前画面时的残像。怎么处理？
此主题相关图片如下：untitled.png
-- 发布时间：2018/5/10 10:58:00
--
方法一：
e.Form.BaseForm.windowstate = 1
Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(2)
Application.DoEvents
End While
ClipBoard.Clear
Dim proc As new Process
proc.File = ApplicationPath & "/capture.exe"
proc.WaitForClose = True
proc.Start
-- 发布时间：2018/5/10 11:00:00
--
方法二：
e.Form.BaseForm.opacity = 0
ClipBoard.Clear
Dim proc As new Process
proc.File = ApplicationPath & "/capture.exe"
proc.WaitForClose = True
proc.Start
e.Form.BaseForm.opacity = 1