以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ShowInTaskBar用法请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125906)
--  作者：y2287958
--  发布时间：2018/10/9 16:07:00
--  ShowInTaskBar用法请教
basemainform.ShowInTaskBar = not basemainform.ShowInTaskBar

用以上代码时，项目总是闪烁一下（就像是项目最小化后再打开的情况），如何避免这种闪烁的情况出现或者如何消除之？
[此贴子已经被作者于2018/10/9 16:07:00编辑过]
--  作者：有点甜
--  发布时间：2018/10/9 16:24:00
--  
basemainform.opacity = 0
basemainform.ShowInTaskBar = not basemainform.ShowInTaskBar
Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(0.5)
    Application.DoEvents
End While
basemainform.opacity = 1
--  作者：y2287958
--  发布时间：2018/10/9 17:28:00
--  
谢谢，可以解决闪烁问题，但新问题又出现了：如果当前表有停靠窗口和备注列时，项目最大化后窗口和备注列均处于未加载状态，如何解决？
--  作者：有点甜
--  发布时间：2018/10/9 17:42:00
--  

basemainform.opacity = 0
basemainform.windowstate = 1
basemainform.ShowInTaskBar = not basemainform.ShowInTaskBar
Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(0.5)
    Application.DoEvents
End While
basemainform.windowstate = 2
basemainform.opacity = 1
--  作者：y2287958
--  发布时间：2018/10/9 18:45:00
--  
完美图片点击可在新窗口打开查看图片点击可在新窗口打开查看
--  作者：漂亮美眉vszh
--  发布时间：2020/10/12 10:24:00
--  
以下是引用y2287958在2018/10/9 16:07:00的发言：
basemainform.ShowInTaskBar = not basemainform.ShowInTaskBar

用以上代码时，项目总是闪烁一下（就像是项目最小化后再打开的情况），如何避免这种闪烁的情况出现或者如何消除之？
[此贴子已经被作者于2018/10/9 16:07:00编辑过]

请问下：

目最小化后再打开闪烁情况====我也一直存在这种闪烁，项目越大、闪的时间越久，请问要如何才能解决？

刚尝试着把代码放到打开项目事件内执行，发现项目会自动关闭~~
--  作者：有点蓝
--  发布时间：2020/10/12 10:43:00
--  
试试把时间设置长一点，不行就没有办法了

While Date.Now < sdt.AddSeconds(1)