| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 917 人关注过本帖
标题:Win7使用VB2010如何实现隐藏桌面
只看楼主 加入收藏
闫温学
Rank: 1
等 级:新手上路
帖 子:189
专家分:1
注 册:2008-3-30
结帖率:100%
收藏
 问题点数:0 回复次数:2 
Win7使用VB2010如何实现隐藏桌面
使用winxp系统可以使用aPI函数实现,但是在win7中却不好用,请问,在win7下,如何变成实现呢
搜索更多相关主题的帖子: 桌面 
2011-09-12 13:27
闫温学
Rank: 1
等 级:新手上路
帖 子:189
专家分:1
注 册:2008-3-30
收藏
得分:0 
问题已经解决,费了好大劲,拿出来共享吧:QQ:393173607

 '隐藏桌面图标(WorkerW->SHELLDLL_DefView->SysListView32这个是Win7桌面类的位置)
  Public Sub HideDeskIcon()
    Dim intParentWindows As Integer '保存父窗体句柄
    Dim intBoyWindows As Integer '保存子窗体句柄
    intParentWindows = FindWindowEx(0, 0, "WorkerW", vbNullString) '查找WorkerW类,Win7中有很多个这样的类,需要进行遍历
    Do
      intBoyWindows = FindWindowEx(intParentWindows, 0, "SHELLDLL_DefView", vbNullString) '找子类
      intParentWindows = FindWindowEx(0, intParentWindows, "WorkerW", vbNullString)
    Loop While intParentWindows <> 0 And intBoyWindows = 0 '有父类时同时没有找到子类循环查找
    intBoyWindows = FindWindowEx(intBoyWindows, 0, "SysListView32", vbNullString) '查找下一个子类
    ShowWindow(intBoyWindows, SW_HIDE) '隐藏类
  End Sub

16446604 VB2010(Win7)技术交流群
2011-09-12 16:13
闫温学
Rank: 1
等 级:新手上路
帖 子:189
专家分:1
注 册:2008-3-30
收藏
得分:0 
有谁知道win7下如何屏蔽ctrl+alt+del键

16446604 VB2010(Win7)技术交流群
2011-09-12 16:15
快速回复:Win7使用VB2010如何实现隐藏桌面
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016630 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved