VBA版SpyLite，学习窗口类API与类模块的绝佳范例

小fisher

简介：用VBA实现的一个类似于SpyLite的的软件，通过类模块将窗口相关API函数封装成了两个类：window和windows，在此基础上使用UserForm做前台界面，可通过鼠标拖放抓取指定窗口（或双击列出全部桌面窗口）显示在窗口树形列表中，对于选中的窗口，可列它的各种属性，比如窗口标题、文本、类名、所属进程和线程ID、位置、宽度和高度、是否可见、是否可用、是否置顶、窗口样式……，并且可对其中一部分属性进行设置

附件： spyLite2.rar (122.13 KB, 下载次数: 2899)

2009-5-23 18:38 上传

点击文件名下载附件

界面：

注意事项：
1。勾选或去除勾选“任务栏”可能无法按代码中的构思使窗口在任务栏中显示或隐藏；另外，要使这个属性生效，需要先隐藏目标窗口再将它显示出来，因此目标窗口在任务栏中的位置会变到最后；
2。对于有些窗口，无法返回其大图标和小图标图像；对于有些窗口，在退出VBA程序时无法恢复其原来图标；
3。使用“窗口图像”可返回窗口的真实图像，无论窗口是否位于屏幕区域之外还是被其他窗口盖住，但有时会得到一个黑色矩形；另外，对于有些窗口，获取其窗口图像同时会使原窗口区域变为空白，只有当窗口再次重绘时（可在窗口上移动鼠标或使用其他窗口遮盖住该区域后再移开强迫其重绘）方可恢复；
4。在窗体样式列表中选择或去除某些样式后点“应用新样式”可将新样式应用于选中窗口中，如果其中选择了一些不合适的样式，窗口可能会显得比较古怪（比如选中“WS_MINIMIZE(WS_ICONNIC)”会使整个窗口区域都变为标题栏），这种情况下需要点“恢复初始样式”按钮来恢复。注意：程序没有在关闭VBA窗口时恢复窗口初始样式的功能，如果用户对窗口样式作出修改，在必要的情况下，用户须在退出程序或选择其他窗口之前按上面的方法手动恢复原来窗口样式。
5。尽量不要在对您来说很重要的程序窗口中尝试此程序，以免万一出现问题造成数据丢失或其他损失。

[ 本帖最后由 小fisher 于 2009-5-23 19:21 编辑 ]

Simon_Zhu

又是我先发现的，Kevin应该加我技术沙发分，呵呵。

果然是绝佳范例，收了慢慢消化，谢谢小fisher分享如此好的范例。

提个不算问题的问题：

显示窗体内各条条框框的尺寸大小是否能重新安排一下，以达到窗体全部显示的效果。
分辨率1024*768，800*600下，窗体显示不完整，主要是窗体的下半部，图像--屏幕图像部分显示不完整。

此问题无论修正与否都不影响范例的绝佳学习程度，如能完善则更好，仅供参考。

[ 本帖最后由 Simon_Zhu 于 2009-5-23 12:38 编辑 ]

winland

很强的作品，学习学习。

小fisher

原帖由 Simon_Zhu 于 2009-5-23 12:15 发表
又是我先发现的，Kevin应该加我技术沙发分，呵呵。

果然是绝佳范例，收了慢慢消化，谢谢小fisher分享如此好的范例。

提个不算问题的问题：

显示窗体内各条条框框的尺寸大小是否能重新安排一下，以达到窗体全 ...

谢谢您的提醒，因为我的屏幕分辨率是1280*1024，所以没过多考虑其他情况，现在附件已经更新，在800*600屏幕分辨率下显示正合适

Simon_Zhu

修改后的这个好，比第一个更强悍。学习了。
谢谢小fisher，感谢源码公开。

[ 本帖最后由 Simon_Zhu 于 2009-5-23 21:01 编辑 ]

fdd

小fisher又出佳作了，好羡慕哟！您是我的偶像，真正的偶像！

fdd

附件更新了，我之前也觉得窗口尺寸不满意。现在完全好了！谢谢小fisher!

jilijun

VBA真是无所不能啊

清风_ll

优秀作品.

hxhgxy

非常好，谢谢分享！