common dialog

[adzzzz]

how do i set the .Color property of the common dialog? sounds simple but i dont know what format it uses..
cheers

[The Hobo]

CD.color = RGB(r, g, b)
CD.color = vbGreen

There are many ways.

[adzzzz]

cheers but i got 1 more problem :P is this the only way to retrieve the colours from the dialog:

Red = cdlColour.Color And &HFF
Green = (cdlColour.Color \ &H100) And &HFF
Blue = cdlColour.Color \ &H10000

[Sastraxi]

No. This is a much more convenient way:

Private Type mLong
    L As Long
End Type
Private Type mRGB
    R As Byte
    G As Byte
    B As Byte
    RESERVED As Byte
End Type
Private Function GetRGB(Co As Long) As mRGB
Dim Q As mLong
 
    Q.L = Co
    LSet GetRGB = Q
 
End Function
'// USAGE:
Dim Q As mRGB
Q = GetRGB(cdlColour.Color)
Msgbox Q.R
Msgbox Q.G
Msgbox Q.B

[adzzzz]

thats a bit complex and i havent got a clue what it does :P aint there any other more simple ways of gettin it done?
cheers

[Sastraxi]

No, this is pretty complicated. It has to be. Sure, if you were in C/C++, you could just shift bits to get the answer. But we can't. If you stick in mine, all you need is two lines of code to get it the RGB value. And it's fast