Board logo

标题: [其他] 批处理自定义界面(大小和颜色) [打印本页]

作者: cjiabing    时间: 2011-9-1 22:35     标题: 批处理自定义界面(大小和颜色)

可以调整界面大小,进行颜色设置。有现场的设置方法,也可以自定义设置。
还有个全屏的代码没有放进来,有空再补。
将以下代码放到你的程序代码中,并设置进入接口。
摘自 BatMPlayer,有修改。

颜色调用与指定文字颜色:call   :Colour   "!cc0:~0,1!!cc1:~2,1!"   "你的内容"&echo;
以上是一个完整的调用语句,可以设置独立的一句话的颜色。具体参考主代码。
颜色设置内容:"!cc0:~0,1!!cc1:~2,1!"
来自开头这一句:set cc=84&color !cc!&set cc0=44e&set cc1=00c

以下是代码:

  1. @echo off&setlocal enabledelayedexpansion
  2. ::By Cjiabing;:&Date 2011-08-19
  3. set cc=84&color !cc!&set cc0=44e&set cc1=00c
  4. ::要在文件开头设置以上内容
  5. :FaceSetting
  6. cls&echo;&echo;&call :Colour "!cc:~0,1!!cc1:~0,1!" " ◇"&call :Colour "!cc0:~0,1!!cc1:~2,1!" "设 置"&echo;◇&echo;
  7. echo; ------------------------------------------------------------------------
  8. echo 调整屏幕大小:SZ1【常规】SZ2【中等】SZ3【较大】。
  9. echo 自定义输入如:MODE con: COLS=85 LINES=25
  10. echo 调整屏幕颜色:CC0【默认】CC1【白绿】CC2【白蓝】CC3【黄土】。
  11. echo 自定义输入如:Color 84
  12. echo 可以直接输入命令进入CMD界面,如:Color/?
  13. call :Colour "4f" " BatMPlayer皮肤颜色选择器" &echo →【Color = 主体色块 + 标题色块 + 增强色块】
  14. echo →【主体色块】背景色和字体色,用于程序整体皮肤颜色;
  15. echo →【标题色块】标题底色和字体色;
  16. echo →【增强色块】用于警告和图案等。
  17. echo →每个色块由两个颜色代码组成背景色和前景色,默认:Color = 27 44e 00c
  18. echo →当前颜色:Color = %cc% %cc0% %cc1%
  19. call :Colour "!cc:~0,1!0" " →黑白色:0=黑色"&call :Colour "!cc:~0,1!8" "、8=灰色"&call :Colour "!cc:~0,1!7" "、7=白色"&call :Colour "!cc:~0,1!f" "、f=亮白色"&echo;;
  20. call :Colour "!cc:~0,1!1" " →冷色调:1=蓝色"&call :Colour "!cc:~0,1!9" "、9=淡蓝色"&call :Colour "!cc:~0,1!3" "、3=湖蓝色"&call :Colour "!cc:~0,1!b" "、b=浅淡绿色"&call :Colour "!cc:~0,1!2" "、2=绿色"&call :Colour "!cc:~0,1!a" "、a=淡绿色"&echo;;
  21. call :Colour "!cc:~0,1!4" " →暖色调:4=红色"&call :Colour "!cc:~0,1!c" "、c=淡红色"&call :Colour "!cc:~0,1!5" "、5=紫色"&call :Colour "!cc:~0,1!d" "、d=淡紫色"&call :Colour "!cc:~0,1!6" "、6=黄色"&call :Colour "!cc:~0,1!e" "、e=淡黄色"&echo;。
  22. echo →当前色与背景色相同时无法显示。
  23. echo; ------------------------------------------------------------------------
  24. echo;
  25. set /p Inport= 请输入(返回【Q】):
  26. if "%Inport%"=="" goto Menu
  27. if /I "%Inport:~0,4%"=="MODE" cmd /c %Inport%&goto setting
  28. if /I "%Inport:~0,5%"=="COLOR" cmd /c %Inport%&goto setting
  29. if /I %Inport%==Q goto Menu
  30. if /I %Inport%==H goto About
  31. if /I %Inport%==S goto Setting
  32. call :ScreenZoom %Inport%
  33. call :ChangeColor %Inport%
  34. cmd /c %Inport%&pause
  35. goto setting
  36. :ScreenZoom
  37. if /i %1==SZ1 MODE con: COLS=85 LINES=25&goto :eof
  38. if /i %1==SZ2 MODE con: COLS=105 LINES=57&goto :eof
  39. if /i %1==SZ3 MODE con: COLS=125 LINES=90&goto :eof
  40. goto :eof
  41. :ChangeColor
  42. if /i %~1==CC0 color 84&goto :eof
  43. if /i %~1==CC1 color 27&goto :eof
  44. if /i %~1==CC2 color 3f&goto :eof
  45. if /i %~1==CC3 color 6e&goto :eof
  46. goto :eof
  47. :Colour
  48. pushd "%temp%"
  49. >"%~2",set/p=   <nul
  50. findstr /a:%~1 .* "%~2*"
  51. del "%~2"
  52. popd
  53. goto :eof
复制代码

作者: mstsc    时间: 2011-9-1 23:17

正来想找这方面的东西呢     谢谢
作者: wuyongming    时间: 2011-9-5 12:08

正在学习中呢……
作者: z422653234    时间: 2011-9-18 10:26

有什么用????




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2