This works also Dim v As Variant v = EditField1.BackColor EditField2.Text = "&C" + Right(v,6)
> 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> > > _______________________________________________ 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>
