- Home
·
- Graphics
·
- Converts RGB to QBColor. Very fast. Doesn't use any API, DLL, or OCX!
Converts RGB to QBColor. Very fast. Doesn't use any API, DLL, or OCX!
Converts RGB to QBColor. Very fast. Doesn't use any API, DLL, or OCX!
Rate Converts RGB to QBColor. Very fast. Doesn't use any API, DLL, or OCX!
(1(1 Vote))
Dim R2 As Integer, G2 As Integer, B2 As Integer
Dim Num1 As Integer, Num2 As Integer
R2 = R
G2 = G
B2 = B
If Abs(R2 - G2) > 40 Then GoTo Color
If Abs(R2 - B2) > 40 Then GoTo Color
If Abs(B2 - G2) > 40 Then GoTo Color
Select Case (R + G + B) \ 3
Case Is < 64
RGB2QBC = 0
Case Is < 160
RGB2QBC = 8
Case Is < 224
RGB2QBC = 7
Case Else
RGB2QBC = 15
End Select
Exit Function
Color:
If B2 > 85 Then RGB2QBC = 1: Num1 = 1: Num2 = B2
If G2 > 85 Then RGB2QBC = RGB2QBC + 2: Num1 = Num1 + 1: Num2 = Num2 + G2
If R2 > 85 Then RGB2QBC = RGB2QBC + 4: Num1 = Num1 + 1: Num2 = Num2 + R2
If Num1 > 0 Then If Num2 \ Num1 > 169 Then RGB2QBC = RGB2QBC + 8
End Function
Converts RGB to QBColor. Very fast. Doesn't use any API, DLL, or OCX! Comments
No comments yet — be the first to post one!
Post a Comment