不用担心的是, 如果你设置这个设置那个, 搞的很乱, 你可以恢复系统默认值:

　　　　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

标签：