个性化你的Windows 7 Taskbar Thumbnail
2010-07-05 00:00:00 来源：WEB开发网 闁靛棴鎷�
闁告垵绻愰惃顒傗偓娑欍仦缂嶏拷
濠⒀呭仜閵囧洨鈧稒銇炵紞锟�闁靛棴鎷� 闁稿繗娅曢弫鐐哄级閵婏缚鑸瀣仧濞堟垵顕ラ鐓庤Е
不用担心的是, 如果你设置这个设置那个, 搞的很乱, 你可以恢复系统默认值:
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)
My.Computer.Registry.SetValue(path, "BottomMarginPx", 16, RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path, "LeftMarginPx", 16, RegistryValueKind.DWord)
My.Computer.Registry.SetValue(path, "RightMarginPx", 16, RegistryValueKind.DWord)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ExtendedUIHoverTime", 400, RegistryValueKind.DWord)
maxSizeTextBox.Text = "200"
miniSizeTextBox.Text = "200"
xsTextBox.Text = "16"
ysTextBox.Text = "16"
tmTextBox.Text = "16"
bmTextBox.Text = "16"
lmTextBox.Text = "16"
rmTextBox.Text = "16"
dtTextBox.Text = "400"
'修改注册表后,重启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
中查找“个性化你的Windows 7 Taskbar Thumbnail”更多相关内容
中查找“个性化你的Windows 7 Taskbar Thumbnail”更多相关内容更多精彩
赞助商链接
