以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  最小化更改为显示桌面代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161801)
--  作者：漂亮美眉vszh
--  发布时间：2021/3/30 10:38:00
--  最小化更改为显示桌面代码

老师，我们的最小化改为了显示桌面的代码

但这句代码有时是无效的，

当程序打开多时（例打开两份EXCEL）

Dim oleType = Type.GetTypeFromProgID("Shell.Application")
Dim oleObject = System.Activator.CreateInstance(oleType)
oleType.InvokeMember("ToggleDesktop", Reflection.BindingFlags.InvokeMethod, Nothing, oleObject, Nothing)
--  作者：有点蓝
--  发布时间：2021/3/30 10:41:00
--  
这个是系统api，能用就用，不能用我也没有办法。我经常都会出现，点击系统任务栏显示桌面的时候，要点好几次才有效。
--  作者：漂亮美眉vszh
--  发布时间：2021/4/1 9:28:00
--  

老师：

经过我们在不同电脑上反复测试发现，打开第一个EXCEL最小化是没问题的，打开第二个EXCEL就不能最小化了；

打开其他程序不影响，只有打开第二个EXCEL时才不能使用。

会不会有啥冲突？
--  作者：有点蓝
--  发布时间：2021/4/1 9:47:00
--  
应该是有冲突，具体原因我也不懂