个性化你的Windows 7 Taskbar Thumbnail _云知道

昨天看到How To Geek里的一篇文章, 里面有个小程序做得觉得挺有意思, 那个程序可以改变Windows 7的缩略图大小, 缩略图与缩略图之间的距离, 以及上下左右的边距, 甚至还可以设置鼠标放到任务栏上多久显示出缩略图, 系统默认的是400ms, 感觉有点慢,　我把它调成了1, 鼠标一放上去就冒出缩略图, 感觉非常的爽. 当然这些都是靠更改注册表完成的.
我把那个程序下载下来, 用Reflector看一下那个程序, 终于知道是什么原理, 又花了好几个小时实现了一遍, 当然我写的代码肯定没人家好, 人家是美国的MVP, 我只是个菜鸟:)在这里把实现过程跟大家分享一下, 有哪些写的不好的地方, 欢迎指教.
改变缩略图后的大小(可以在这里面看电影了, 呵呵):
更改缩略图的X-Spacing和Y-Spacing后(可以看到效果还是很明显的):
程序的核心步骤:
在注册表目录HKEY_CURRENT_USER/Software/Microsoft/Windows /CurrentVersion/Explorer/Taskband下新建几个键:MaxThumbSizePx, MinThumbSizePx, ThumbSpacingXPx, ThumbSpacingYPx, TopMarginPx, BottomMarginPx, LeftMarginPx, RightMarginPx 分别用于控制缩略图尺寸, 两个缩略图直接的边距, 还有缩略图中内容的上下左右边距
在注册表目录HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced下新建一个键: ExtendedUIHoverTime
它用于控制缩略图显示的延迟时间(单位是ms)
每次更改完注册表的信息后, 要看到效果不需要重新开机, 只需要关闭explore.exe, 再重新打开即可.
Private　Sub　btnApplySettings_Click(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　btnApplySettings.Click
My.Computer.Registry.SetValue(path,　"MaxThumbSizePx",　Convert.ToInt32(maxSizeTrackBar.Value),　RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path,　"MinThumbSizePx",　Convert.ToInt32(miniSizeTrackBar.Value),　RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path,　"ThumbSpacingXPx",　Convert.ToInt32(xsTrackBar.Value),　RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path,　"ThumbSpacingYPx",　Convert.ToInt32(ysTrackBar.Value),　RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path,　"TopMarginPx",　Convert.ToInt32(tmTrackBar.Value),　RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path,　"BottomMarginPx",　Convert.ToInt32(bmTrackBar.Value),　RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path,　"LeftMarginPx",　Convert.ToInt32(lmTrackBar.Value),　RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path,　"RightMarginPx",　Convert.ToInt32(rmTrackBar.Value),　RegistryValueKind.DWord)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced",　"ExtendedUIHoverTime",　Convert.ToInt32(dtTrackBar.Value),　RegistryValueKind.DWord)
"修改注册表后,重启explore.exe
Dim　Explorers()　As　Process　=　Process.GetProcessesByName("explorer")
For　Each　Explorer　As　Process　In　Explorers
Explorer.Kill()
Next
Process.Start("explorer.exe")
Explorers　=　Nothing
End　Sub
不用担心的是, 如果你设置这个设置那个, 搞的很乱, 你可以恢复系统默认值:
Private　Sub　btnRestoreDefaults_Click(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　btnRestoreDefaults.Click
My.Computer.Registry.SetValue(path,　"MaxThumbSizePx",　200,　RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path,　"MinThumbSizePx",　200,　RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path,　"ThumbSpacingXPx",　16,　RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path,　"ThumbSpacingYPx",　16,　RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path,　"TopMarginPx",　16,　RegistryValueKind.DWord)

个性化你的Windows 7 Taskbar Thumbnail

推荐阅读

侧柏属于什么植物类型侧柏属于种子植物吗

我这一辈子瑞姑娘结局

女唐老鸭叫什么名字

REX什么意思

狮子座的幸运色是什么颜色

奥迪a3刹车油多久更换一次

钉钉健康码怎么申请

保险公司的售后服务是做什么的

Windows7怎么将公共网络修改为家庭网络

条件+材料+流程洪山区灵活就业毕业生社保补贴申请指南

村委员是什么职位

狗狗为什么不可以吃牛奶,狗狗能不能喝牛奶

角阀装的太紧拆不下来里面跟着转

千岛湖有多深

好快省汽车服务，长沙好快省汽车服务有限公司介绍

笼络感情是什么意思