Dim c As Color
  Dim v As Variant
  Dim s As String
  
  c = EditField1.BackColor
  v = c
  s = v
  
  MsgBox s
  
If the EditField is the default BackColor the MsgBox will display
&hFFFFFF

If you want to display s as an RB color do this

s = "&C" + Right(s,6)


> Hello,
> Suppose that I have an EditField, called ColorBox, that has a 
> BackColor and I want the Hexadecimal code for that BackColor 
> to be displayed in another editfield called HexColCode how do 
> I get that?
> Thanks.
> Lennox
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to