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

发表评论

电子邮件地址不会被公开。 必填项已用*标注

This site uses Akismet to reduce spam. Learn how your comment data is processed.