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
#Region "KeyPress_Events"
Private Sub maxSizeTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles maxSizeTextBox.KeyPress
textBox_KeyPress(maxSizeTextBox, e)
End Sub
Private Sub miniSizeTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles miniSizeTextBox.KeyPress
textBox_KeyPress(miniSizeTextBox, e)
End Sub
Private Sub xsTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles xsTextBox.KeyPress
textBox_KeyPress(xsTextBox, e)
End Sub
Private Sub ysTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ysTextBox.KeyPress
textBox_KeyPress(ysTextBox, e)
End Sub
Private Sub tmTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tmTextBox.KeyPress
textBox_KeyPress(tmTextBox, e)
End Sub
Private Sub bmTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles bmTextBox.KeyPress
textBox_KeyPress(bmTextBox, e)
End Sub
Private Sub lmTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles lmTextBox.KeyPress
textBox_KeyPress(lmTextBox, e)
End Sub
Private Sub rmTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles rmTextBox.KeyPress
textBox_KeyPress(rmTextBox, e)
End Sub
Private Sub dtTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles dtTextBox.KeyPress
textBox_KeyPress(dtTextBox, e)
End Sub
#End Region
#Region "TextBox_Changed"
Private Sub miniSizeTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miniSizeTextBox.TextChanged
txtBox_TextChanged(miniSizeTextBox, miniSizeTrackBar)
End Sub
Private Sub maxSizeTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maxSizeTextBox.TextChanged
txtBox_TextChanged(maxSizeTextBox, maxSizeTrackBar)
End Sub
Private Sub xsTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xsTextBox.TextChanged
txtBox_TextChanged(xsTextBox, xsTrackBar)
End Sub
Private Sub ysTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ysTextBox.TextChanged
txtBox_TextChanged(ysTextBox, ysTrackBar)
End Sub
Private Sub tmTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmTextBox.TextChanged
txtBox_TextChanged(tmTextBox, tmTrackBar)
End Sub
Private Sub bmTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bmTextBox.TextChanged
txtBox_TextChanged(bmTextBox, bmTrackBar)
End Sub
Private Sub lmTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lmTextBox.TextChanged
推荐阅读
- Windows 7 VC-1编码器多核心支持不力
- Windows 7 SP1马蹄声近 微软升级系统部署工具
- 用Windows 7游戏管理器管理所有游戏
- Windows 7等多系统的备份与恢复
- Windows 7最新Bing日本官方主题
- 别盯Windows8 微软重头戏是云计算
- 卸载Windows7 SP1 Beta的三种方法
- 在Windows 7下利用笔记本的无线网卡定义热区供手机上网
- 微软:Windows 7比Mac OS X、Linux都要优秀
- 调整注册表让Windows7预览窗口更清晰