在注册表目录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

标签：