以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何用代码返回桌面，不是打开桌面地址  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134245)
--  作者：漂亮美眉vszh
--  发布时间：2019/4/30 18:13:00
--  如何用代码返回桌面，不是打开桌面地址
请问老师，如何用代码返回用户电脑桌面，不是打开用户的桌面地址。
--  作者：有点蓝
--  发布时间：2019/4/30 20:14:00
--  
Dim oleType = Type.GetTypeFromProgID("Shell.Application")
Dim oleObject = System.Activator.CreateInstance(oleType)
oleType.InvokeMember("ToggleDesktop", Reflection.BindingFlags.InvokeMethod, Nothing, oleObject, Nothing)
--  作者：漂亮美眉vszh
--  发布时间：2019/5/10 12:03:00
--  
老师，我能把这个代码写在软件最小化时执行吗？没找到这个事件~~
--  作者：有点甜
--  发布时间：2019/5/10 12:24:00
--  
以下是引用漂亮美眉vszh在2019/5/10 12:03:00的发言：
老师，我能把这个代码写在软件最小化时执行吗？没找到这个事件~~

 

全局代码

 

Public  Sub Form2_SizeChanged(sender As Object, e As EventArgs)
    If sender.windowstate = 1 then
        msgbox(123)
    End If
End Sub

afteropenproject事件

AddHandler basemainform.SizeChanged, AddressOf Form2_SizeChanged
--  作者：漂亮美眉vszh
--  发布时间：2019/5/11 11:28:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：22.png
图片点击可在新窗口打开查看
老师，前几天将软件内不显示最小化，可今天重设，将最小化调出来，但发现将属性设置为TRUE时，也不出现
--  作者：有点蓝
--  发布时间：2019/5/11 11:35:00
--  
删除bin目录，重启测试

检查是不是有其它代码影响了
--  作者：漂亮美眉vszh
--  发布时间：2019/5/12 15:47:00
--  
1.删除重启试过，没用；2.也没有。在没取消最小化之前到现在，项目内的代码没变过~~~
--  作者：有点甜
--  发布时间：2019/5/12 21:23:00
--  

检测是否写了下面的禁用代码

 

basemainform.minimizebox = False

 

 
--  作者：漂亮美眉vszh
--  发布时间：2019/5/13 17:39:00
--  
嗯，是写了这句造成了；
老师，最上面打开桌面的代码，有时会打不开桌面，有时能打开；经过反复测试，发现程序开多了就打不开，有没啥办法优化下~~~
--  作者：有点甜
--  发布时间：2019/5/13 17:42:00
--  
以下是引用漂亮美眉vszh在2019/5/13 17:39:00的发言：
嗯，是写了这句造成了；
老师，最上面打开桌面的代码，有时会打不开桌面，有时能打开；经过反复测试，发现程序开多了就打不开，有没啥办法优化下~~~

 

在打开程序多的时候(功能无效的时候)，单独执行这个代码，是否正常？

 

Dim oleType = Type.GetTypeFromProgID("Shell.Application")
Dim oleObject = System.Activator.CreateInstance(oleType)
oleType.InvokeMember("ToggleDesktop", Reflection.BindingFlags.InvokeMethod, Nothing, oleObject, Nothing)