ColorMan颜色调试工具V1.0 VB6编写
启源 颜色调试工具
程序作者:苗启源
程序版本：V1.0
文件大小:12.1KB
下载地址:http://www.miaoqiyuan.cn/products/colorman.rar
程序截图:
直接打开软件界面
调试颜色界面
帮助界面
程序特点：
1.可以输入16进制颜色
2.可以通过滑动条调整某色(如红色)的值改变该颜色值，也可在滚动条后文本框直接输入
3.点击复制即可直接获取颜色的16进制值
4.右侧显示该色作为前景色，作为背景色，与反色搭配的预览效果
5.下方显示相似色的16进制值，并且背景为该色
6.下方显示相似色的反色16进制值，并且背景为该色
呵呵，这样说这个颜色调试工具有点像在下载站复制的了，实际上他是我在学校时写的，绝对原创
下面时它的部分代码，如果像要完整代码，可以在下面留言，或者Q我:77068320
Sub coloredit() For i = 0 To 2 If Not IsNumeric(color(i).Text) Then color(i).Text = 0 If color(i).Text > 255 Then color(i).Text = 255 If color(i).Text < 0 Then color(i).Text = Abs(color(i).Text) Next a = color(0).Text b = color(1).Text c = color(2).Text Text1(0).Text = a HScroll1(0).Value = a Text1(1).Text = b HScroll1(1).Value = b Text1(2).Text = c HScroll1(2).Value = c yulan(0).BackColor = RGB(a, b, c) fan(1).BackColor = RGB(a, b, c) fan(0).ForeColor = RGB(a, b, c) qian.ForeColor = RGB(a, b, c) banquan.ForeColor = RGB(a, b, c) fan(1).ForeColor = RGB(255 - a, 255 - b, 255 - c) fan(0).BackColor = RGB(255 - a, 255 - b, 255 - c) If a < 16 Then e = "0" & Hex(a) Else e = Hex(a) If b < 16 Then f = "0" & Hex(b) Else f = Hex(b) If c < 16 Then g = "0" & Hex(c) Else g = Hex(c) rgbok.Text = e & f & g For i = 0 To 7 d = 12 a = color(0).Text - 3 * d + d * i b = color(1).Text - 3 * d + d * i c = color(2).Text - 3 * d + d * i If a < 0 Then a = 0 If b < 0 Then b = 0 If c < 0 Then c = 0 If a > 255 Then a = 255 If b > 255 Then b = 255 If c > 255 Then c = 255 xiangsi(i).BackColor = RGB(a, b, c) Text2(i).BackColor = RGB(255 - a, 255 - b, 255 - c) If a < 16 Then e = "0" & Hex(a) Else e = Hex(a) If b < 16 Then f = "0" & Hex(b) Else f = Hex(b) If c < 16 Then g = "0" & Hex(c) Else g = Hex(c) xiangsi(i).Text = "#" & e & f & g If 255 - a < 16 Then e = "0" & Hex(255 - a) Else e = Hex(255 - a) If 255 - b < 16 Then f = "0" & Hex(255 - b) Else f = Hex(255 - b) If 255 - c < 16 Then g = "0" & Hex(255 - c) Else g = Hex(255 - c) Text2(i).Text = "#" & e & f & g Next Timer2.Enabled = False Timer2.Enabled = True End Sub