Foxtable(狐表)用户栏目专家坐堂 → 如何用代码返回桌面,不是打开桌面地址


  共有2197人关注过本帖树形打印复制链接

主题:如何用代码返回桌面,不是打开桌面地址

美女呀,离线,留言给我吧!
漂亮美眉vszh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:869 积分:7860 威望:0 精华:0 注册:2013/5/30 11:27:00
如何用代码返回桌面,不是打开桌面地址  发帖心情 Post By:2019/4/30 18:13:00 [只看该作者]

请问老师,如何用代码返回用户电脑桌面,不是打开用户的桌面地址。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:869 积分:7860 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2019/5/10 12:03:00 [只看该作者]

老师,我能把这个代码写在软件最小化时执行吗?没找到这个事件~~

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:869 积分:7860 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2019/5/11 11:28:00 [只看该作者]


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

图片点击可在新窗口打开查看此主题相关图片如下:22.png
图片点击可在新窗口打开查看
老师,前几天将软件内不显示最小化,可今天重设,将最小化调出来,但发现将属性设置为TRUE时,也不出现



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/5/11 11:35:00 [只看该作者]

删除bin目录,重启测试

检查是不是有其它代码影响了

 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:869 积分:7860 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2019/5/12 15:47:00 [只看该作者]

1.删除重启试过,没用;2.也没有。在没取消最小化之前到现在,项目内的代码没变过~~~

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/12 21:23:00 [只看该作者]

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

 

basemainform.minimizebox = False

 

 


 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:869 积分:7860 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2019/5/13 17:39:00 [只看该作者]

嗯,是写了这句造成了;
老师,最上面打开桌面的代码,有时会打不开桌面,有时能打开;经过反复测试,发现程序开多了就打不开,有没啥办法优化下~~~

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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)


 回到顶部
总数 12 1 2 下一页