个性化你的Windows 7 Taskbar Thumbnail( 四 ) _云知道

txtBox_TextChanged(lmTextBox,　lmTrackBar)
End　Sub
Private　Sub　rmTextBox_TextChanged(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　rmTextBox.TextChanged
txtBox_TextChanged(rmTextBox,　rmTrackBar)
End　Sub
Private　Sub　dtTextBox_TextChanged(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　dtTextBox.TextChanged
If　dtTextBox.Text　<>　""　Then
"Delay　Time最大值是9999
Try
dtTrackBar.Value　=　dtTextBox.Text
If　dtTrackBar.Value　>　9999　Then
Throw　New　Exception
End　If
Catch　ex　As　Exception
dtTrackBar.Value　=　512
dtTextBox.Text　=　"512"
End　Try
End　If
"如果值为空
If　dtTextBox.Text　=　""　Then
dtTrackBar.Value　=　0
dtTextBox.Text　=　""
End　If
End　Sub
#End　Region
#Region　"TrackBar_Changed"
Private　Sub　maxSizeTrackBar_ValueChanged(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　maxSizeTrackBar.ValueChanged
trackBar_ValueChanged(maxSizeTextBox,　maxSizeTrackBar)
End　Sub
Private　Sub　miniSizeTrackBar_ValueChanged(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　miniSizeTrackBar.ValueChanged
trackBar_ValueChanged(miniSizeTextBox,　miniSizeTrackBar)
End　Sub
Private　Sub　xsTrackBar_ValueChanged(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　xsTrackBar.ValueChanged
trackBar_ValueChanged(xsTextBox,　xsTrackBar)
End　Sub
Private　Sub　ysTrackBar_ValueChanged(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　ysTrackBar.ValueChanged
trackBar_ValueChanged(ysTextBox,　ysTrackBar)
End　Sub
Private　Sub　tmTrackBar_ValueChanged(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　tmTrackBar.ValueChanged
trackBar_ValueChanged(tmTextBox,　tmTrackBar)
End　Sub
Private　Sub　bmTrackBar_ValueChanged(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　bmTrackBar.ValueChanged
trackBar_ValueChanged(bmTextBox,　bmTrackBar)
End　Sub
Private　Sub　lmTrackBar_ValueChanged(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　lmTrackBar.ValueChanged
trackBar_ValueChanged(lmTextBox,　lmTrackBar)
End　Sub
Private　Sub　rmTrackBar_ValueChanged(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　rmTrackBar.ValueChanged
trackBar_ValueChanged(rmTextBox,　rmTrackBar)
End　Sub
Private　Sub　dtTrackBar_ValueChanged(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　dtTrackBar.ValueChanged
trackBar_ValueChanged(dtTextBox,　dtTrackBar)
End　Sub
#End　Region
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)

个性化你的Windows 7 Taskbar Thumbnail( 四 )

推荐阅读

华禹P30试飞－外观篇

宝可梦探险寻宝凯西宾果数据胡地宾果数据介绍

在公司受伤怎么走工伤流程

滤芯和机油滤清器有什么区别?

高商誉股票什么意思

1920 1080是几k

可爱边框简笔画怎么画

青槐的寓意

孕妇禁忌教你如何安胎

胆结石按摩哪个位置胆结石患者可以按摩这10个穴位

汽车端子电路接触状态检查方法

葫芦底不能朝天什么意思，室内挂葫芦口朝上还是朝下

怎么人工喂小狗喝奶，狗狗喝奶的原则性问题

微信朋友圈可不可以看到来访次数

太阳能增压水泵呜呜响就是不上水

曲阜东站到丽水的高铁时刻表，曲阜到广东汕头的高铁多长时间