WEB开发网
开发学院操作系统Windows 7 个性化你的Windows 7 Taskbar Thumbnail 阅读

个性化你的Windows 7 Taskbar Thumbnail

 2010-07-05 00:00:00 来源:WEB开发网   
核心提示: 在注册表目录HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced下新建一个键: ExtendedUIHoverTime它用于控制缩略图显示的延迟时间(单位是ms)每次更改完注册表的信息后, 要看

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

上一页  1 2 3 4  下一页

Tags:个性化 Windows Taskbar

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接