日本免费全黄少妇一区二区三区-高清无码一区二区三区四区-欧美中文字幕日韩在线观看-国产福利诱惑在线网站-国产中文字幕一区在线-亚洲欧美精品日韩一区-久久国产精品国产精品国产-国产精久久久久久一区二区三区-欧美亚洲国产精品久久久久

  1. 首頁(yè) > 云知道 > >

個(gè)性化你的Windows 7 Taskbar Thumbnail( 二 )

云知道


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"
"修改注冊(cè)表后,重啟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
主要的代碼就是這樣, 下面是程序中所有的代碼:
Imports　Microsoft.Win32
Public　Class　mainForm
Dim　path　As　String　=　"HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Taskband"
Private　Sub　textBox_KeyPress(ByVal　sender　As　Object,　ByVal　e　As　System.Windows.Forms.KeyPressEventArgs)
"這個(gè)函數(shù)的功能是判斷按下的鍵是否為數(shù)字或者Backspace鍵
If　(e.KeyChar　<　"0"　Or　e.KeyChar　>　"9")　Then
e.Handled　=　True
If　Convert.ToInt32(e.KeyChar).Equals(8)　Then
e.Handled　=　False
End　If
Else
e.Handled　=　False
End　If
End　Sub　"KeyPress函數(shù)
Private　Sub　txtBox_TextChanged(ByVal　txtBox　As　TextBox,　ByVal　trackBar　As　TrackBar)
"TextBox里的值發(fā)生變化后
"如果值不為空
If　txtBox.Text　<>　""　Then
"滑動(dòng)條的值等于文本框內(nèi)的數(shù)值
Try
trackBar.Value　=　txtBox.Text
If　trackBar.Value　>　512　Then　"如果滑動(dòng)條的值超過512則拋出一個(gè)異常
Throw　New　Exception
End　If
Catch　ex　As　Exception
trackBar.Value　=　512
txtBox.Text　=　"512"
End　Try
End　If
"如果值為空
If　txtBox.Text　=　""　Then
"滑動(dòng)條的值置為0,文本框的值置為空
trackBar.Value　=　0
txtBox.Text　=　""
End　If
End　Sub　"TextChanged函數(shù)
Private　Sub　trackBar_ValueChanged(ByVal　txtBox　As　TextBox,　ByVal　tracBar　As　TrackBar)
"當(dāng)滑動(dòng)條數(shù)值變化時(shí),文本框里的數(shù)值始終和滑動(dòng)條值相等
txtBox.Text　=　tracBar.Value
End　Sub　"TrackBarValueChanged函數(shù)
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)

推薦閱讀