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

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

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

云知道


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
Private　Sub　mainForm_Load(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　MyBase.Load
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"
On　Error　Resume　Next
maxSizeTextBox.Text　=　My.Computer.Registry.GetValue(path,　"MaxThumbSizePx",　Nothing).ToString
miniSizeTextBox.Text　=　My.Computer.Registry.GetValue(path,　"MinThumbSizePx",　Nothing).ToString()
xsTextBox.Text　=　My.Computer.Registry.GetValue(path,　"ThumbSpacingXPx",　Nothing).ToString()
ysTextBox.Text　=　My.Computer.Registry.GetValue(path,　"ThumbSpacingYPx",　Nothing).ToString()
tmTextBox.Text　=　My.Computer.Registry.GetValue(path,　"TopMarginPx",　Nothing).ToString()
bmTextBox.Text　=　My.Computer.Registry.GetValue(path,　"BottomMarginPx",　Nothing).ToString()
lmTextBox.Text　=　My.Computer.Registry.GetValue(path,　"LeftMarginPx",　Nothing).ToString()
rmTextBox.Text　=　My.Computer.Registry.GetValue(path,　"RightMarginPx",　Nothing).ToString()
dtTextBox.Text　=　My.Computer.Registry.GetValue("HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced",　"ExtendedUIHoverTime",　Nothing).ToString
End　Sub
End　Class
程序界面:
出處：http://www.cnblogs.com/technology/
【個(gè)性化你的Windows 7 Taskbar Thumbnail】本文示例源代碼或素材下載

推薦閱讀