[原创]VB6初步实现在WINXP下类似WIN7显示桌面的功能
前段时间使用WIN7,其右下角的显示桌面功能让本人这种懒人觉得十分方便,不用去按WIN + D,或者辛苦的去点击快速开始上的"显示桌面图标"(不小心点歪了,还会启动其他进程=_=!!).只要把鼠标甩到右下角单击一下,就显示桌面了.
后来因为WIN7 X64兼容性问题,使我不得不回到WINXP时代,WINXP没有了右下角的显示桌面,很不习惯了,此时就想着自己写一个右下角显示桌面的功能.
一开始,思路是:
写一个FORM设定其位置刚好掩盖在任务栏的右下角的一个区域,高度与任务栏一样,长度自定义,然后设置为透明(透明度自定),窗口置顶HWND_TOPMOST.然后响应Form的Click事件时,调用显示桌面功能
折腾了1个小时,代码都写得差不多了,结果调试的时候发觉不对,因为任务栏也是HWND_TOPMOST,本人写的显示桌面程式首次运行时是在其上面的,但是一旦任务栏获取了焦点,显示桌面程式就会被任务栏掩盖了,再也点不到了. =_=!!
再次转变思路:
考虑调用API来修改任务栏的宽度(用FindWindow抓出任务栏的窗口句柄),预留自定义的宽度给显示桌面程式,使任务栏获取了焦点,显示桌面程式不会被任务栏掩盖.尝试了API :SetWindowPos,MoveWindow 皆不行.尝试几次後,觉得是否是只修改任务栏窗口是不行的,还需要修其子窗口的宽度,逐一尝试,依然失败.(等待高手/大牛的代码实现修改任务栏宽度),所以,目前该思路对本人而言暂时进行不下去了.
然后再次转变思路:(呵呵,要曲线救国了)
不再尝试写FORM放置到任务栏上,而使用判断任务栏是否获取了焦点,在其获取焦点时,判断鼠标的坐标是否落在设定好的范围,如果是,激活显示桌面功能.这样就初步实现了,把鼠标一甩到任务栏右下角单机即可显示桌面.因为没有FORM的遮盖,所以没法用颜色或其他方式标记这个范围了,这个比较不方便. (^_^)
其中加入了写入注册表,自启动的功能,觉得不需要或者有担忧的,可以将该段代码屏蔽
(部分杀毒软件会监控注册表敏感区域的写入,可能会报警)
实现代码如下:
VERSION 5.00Begin VB.Form frmShow BorderStyle = 0 '没有框线 Caption = "Show" ClientHeight = 90 ClientLeft = 0 ClientTop = 0 ClientWidth = 90 Icon = "frmShow.frx":0000 LinkTopic = "frmShow" MaxButton = 0 'False MinButton = 0 'False Moveable = 0 'False ScaleHeight = 90 ScaleWidth = 90 ShowInTaskbar = 0 'False StartUpPosition = 3 '系统默认值 Visible = 0 'False WindowState = 1 '最小化 Begin VB.Timer Timer1 Left = 0 Top = 0 EndEndAttribute VB_Name = "frmShow"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False'====================================================='说明:模仿WIN7右下角的显示桌面功能'创建信息:Lost_Painting'创建时间:2009/11/28'===================================================== Option Explicit '声明API'查找窗口窗口句柄Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String _ , ByVal lpWindowName As String _) As Long'查找获取焦点的窗口句柄Private Declare Function GetForegroundWindow Lib "user32" () As Long'获取当前鼠标信息Private Declare Function GetCursorPos Lib "user32" ( _lpPoint As POINTAPI _) As Long'查找窗口位置信息Private Declare Function GetWindowRect Lib "user32" ( _ ByVal hwnd As Long _ , lpRect As RECT _) As Long '鼠标X,Y坐标Private Type POINTAPI x As Long y As LongEnd Type '窗口位置信息,以左上角为原点(MinX,MinY),右下为终点(MaxX,MaxY)Private Type RECT x1 As Long y1 As Long x2 As Long y2 As LongEnd Type '查询Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" ( _ ByVal HKey As Long, _ ByVal lpValueName As String, _ ByVal lpReserved As
[解决办法]
顶你了
[解决办法]
这是自己写的代码，怎么写出来的。
[解决办法]
我现在在用Win7 我理解楼主的意思 那个显示桌面确实不错
Win7网上多的是 下载下来 搞个硬盘安装， 在网上找个激活软件搞定
我的OEM版的完美激活 ，建议2G内存 比较不错的系统
[解决办法]
感谢分享
[解决办法]
好的很哦，哈哈哈哈
[解决办法]
mark
[解决办法]
xuexile,xiexie
[解决办法]
不愧是 专家 级别，真是无法比拟 。值得学习
[解决办法]
刷
[解决办法]
marking
[解决办法]
kf dgl; kl; k;lgkfd ;lfk;l;
[解决办法]
高人
[解决办法]
恩，不错
[解决办法]
顶
[解决办法]
帮顶
[解决办法]
值得学习
[解决办法]
dasadsdasdasdasdasdasd
[解决办法]
顶！~~~
[解决办法]
xuexi
[解决办法]
mark，用了vista+windows7，但很少用楼主说的功能，回去试试
[解决办法]
牛X啊、、、
[解决办法]
我对这也比兴趣的，准备做象QQ一样碰到电脑边框，弹出窗体，解发桌面事件，有写好后有兴趣要程序的给我留言
[解决办法]
学习
[解决办法]
试了一下,还行;
[解决办法]
很不错，好好学习
[解决办法]
之前用了一阵win7，但是电脑配置不好，无奈又换回xp了，win7显示桌面这个功能不错呢。
[解决办法]
32位win7使用中的飘过……
64位的系统，兼容性还没那么好吧……
不然就装win server2008 r2了
[解决办法]
学习了
[解决办法]
学习了
[解决办法]
这个东西很不错，学习了。
[解决办法]
学习
[解决办法]
顶
------解决方案--------------------
得不需要或者有担忧的,可以将该段代码屏蔽
[解决办法]
昨天晚上装了个win7,最让我不适应的就是这个现实桌面放到最右边了,我的显示器太长鼠标灵敏度不够,经常甩不到...xp下的现实桌面倒是操作得很娴熟了..
[解决办法]
说了这么半天 也没人发个Win7的图 我发一个吧...
[解决办法]
有必要去看看WIN7右下角一甩是什么概念
[解决办法]
高人啊，顶
[解决办法]
#75楼
看了才明白程序是做什么的。。。
[解决办法]
学习了
[解决办法]
#75楼
看了才明白程序是做什么的。。。
[解决办法]
'不会吧，我觉得这个显示桌面在右边很不方便，很不习惯呃'用windows7 / 08R2已经几个月了~
[解决办法]
路过~~~~
[解决办法]
我也路过！！
[解决办法]
好帖留名.
[解决办法]
我用了一下,太好用了!
向LZ致敬!高手啊!
