Color values

[antma]

Hi there

Is there a way that the rgb color values be returned and places withing a rgb() statement?

thanx

[antma]

Returned form a color dialog box?

[Olly]

you mean the rgb values out of the standard returned color numbers?
Standrad would be like

commondialog1.showcolor
color = commondialog1.color

[antma]

yes
kinda like say Rgb(X,Y,Z) if a rnd color is click on the dialogbox

[Olly]

code to convert a long into rgb:

Private Sub Command1_Click()
    R = Val(InputBox$("Red Value"))
    B = Val(InputBox$("Blue Value"))
    G = Val(InputBox$("Green Value"))
    Lng$ = B * 65536 + G * 256 + R
    MsgBox Lng$
End Sub

[Olly]

Add this function to a Module:

Option Explicit
Public Function gfnLongToRGBString(lColor As Long) As String
   iRed = lColor Mod 256
   iGreen = ((lColor And &HFF00) / 256&) Mod 256&
   iBlue = (lColor And &HFF0000) / 65536
   gfnLongToRGBString = Str$(iRed) & Str$(iGreen) & Str$(iBlue)
End Function

To use this code add the following lines to a form:

Command1_Click()
   Dim RGBVal as String
   RGBVal = gfnLongToRGBString(SYSCol)
End Sub

SYSCol is the system color (Long value) like &H0 (Black). RGBVal will be set to "000000" (Black)

[antma]

Another question

I dont know if u can help me on this one

I'm trying to use that values within a scroll bar
Now what im doing is once the user has clicked the color option the text of a richedit contol changes...

Im using a scroll bar to change the color of the text by scrolling with it ...
when the user goes back the same text color must be shown that showed previously

any ideas??

[Olly]

Private Sub VScroll1_Change(index As Integer)
    RichTextBox1.SelColor = RGB(VScroll1(0).Value, VScroll1(1).Value, VScroll1(2).Value)
End Sub

{but your rtf box will lose its focus so better use the CommonDialog or some Coler listbox from vbaccelerator.com}
oh no, it works, it's all fine just thought for a moment

[antma]

Thanx a million!!

[Olly]

no prob

[Megatron]

Originally posted by Olly
code to convert a long into rgb:

Private Sub Command1_Click()
    R = Val(InputBox$("Red Value"))
    B = Val(InputBox$("Blue Value"))
    G = Val(InputBox$("Green Value"))
    Lng$ = B * 65536 + G * 256 + R
    MsgBox Lng$
End Sub

You can use the RGB() function too.

lColor = RGB(R, G, B)