Color Palette Application (Hexadecimal Color Codes)

Color Palette application to create color code using r(red), g(green), b(blue)
color values. For example: RED=”FFOOOO”.

Code:
Dim a(4), xr, xg, xb, x, y As Variant
Dim r, g, b, i, n As Integer
Private Sub Form_Load()
xr = 0
xg = 0
xb = 0
Text4.Text = "#" & Format(xr, "00") & Format(xg, "00") & Format(xb, "00")
End Sub
Private Sub Text1_Change()
VScroll1.Value = Val(Text1.Text)
End Sub
End Sub
End Sub

Private Sub VScroll1_Change()
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Form1.BackColor = RGB(r, g, b)
Text1.Text = r
n = VScroll1.Value
i = 0
While n > 0
m = n Mod 16
a(i) = m
n = n 16
i = i + 1
Wend
If a(0) = 10 Then
y = "A"
ElseIf a(0) = 11 Then
y = "B"
y = "C"
y = "D"

y = "E"
y = "F"
Else
y = a(0)
End If
If a(1) = 10 Then
x = "A"
x = "B"
x = "C"
x = "D"
x = "E"
x = "F"
Else
x = a(1)
End If

xr = x & y
End Sub
Private Sub VScroll1_Scroll()
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Text1.Text = r
n = VScroll1.Value
i = 0
While n > 0
m = n Mod 16
a(i) = m
n = n 16
i = i + 1
Wend
If a(0) = 10 Then
y = "A"

y = "B"
y = "C"
y = "D"
y = "E"
y = "F"
Else
y = a(0)
End If
If a(1) = 10 Then
x = "A"
x = "B"
x = "C"
x = "D"

x = "E"
x = "F"
Else
x = a(1)
End If
xr = x & y
End Sub
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Text2.Text = g
n = VScroll2.Value
i = 0
While n > 0
m = n Mod 16

a(i) = m
n = n 16
i = i + 1
Wend
If a(0) = 10 Then
y = "A"
y = "B"
y = "C"
y = "D"
y = "E"
y = "F"
Else
y = a(0)
End If
If a(1) = 10 Then
x = "A"

x = "B"
x = "C"
x = "D"
x = "E"
x = "F"
Else
x = a(1)
End If
xg = x & y
End Sub
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value

Text2.Text = g
n = VScroll2.Value
i = 0
While n > 0
m = n Mod 16
a(i) = m
n = n 16
i = i + 1
Wend
If a(0) = 10 Then
y = "A"
y = "B"
y = "C"
y = "D"
y = "E"
y = "F"

Else
y = a(0)
End If
If a(1) = 10 Then
x = "A"
x = "B"
x = "C"
x = "D"
x = "E"
x = "F"
Else
x = a(1)
End If
xg = x & y
End Sub

r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Text3.Text = b
n = VScroll3.Value
i = 0
While n > 0
m = n Mod 16
a(i) = m
n = n 16
i = i + 1
Wend
If a(0) = 10 Then
y = "A"
y = "B"
y = "C"
y = "D"

xb = x & y
End Sub
r = VScroll1.Value
g = VScroll2.Value
b = VScroll3.Value
Text3.Text = b
n = VScroll3.Value
i = 0
While n > 0
m = n Mod 16
a(i) = m
n = n 16
i = i + 1
Wend
If a(0) = 10 Then
y = "A"

x = "E"
x = "F"
Else
x = a(1)
End If
xb = x & y
End Sub

Color Palette Application (Hexadecimal Color Codes)

More Related Content

What's hot (9)

Similar to Color Palette Application (Hexadecimal Color Codes) (20)

Recently uploaded (20)

Color Palette Application (Hexadecimal Color Codes)