Change text1 color

Im trying to change text1.text color with a combo box but instead i get a error every time. This is the code i used

VB Code:

Private Sub text1_change()
Text1.Font = (Combo1.Text)
Text1.FontSize = (Combo3.Text)
Text1.ForeColor = (Combo2.Text)
End Sub

But the other 2 work fine the forecolor gets a error when i choose the color.

.Forecolor takes either a normal RGB color value or a System default color.
What is the value you are trying to set it to?

I was adding &H00000000& ( black ) and &H00FFFFFF& ( white ) and few others

How about adding a explicit conversion instead of letting the ampersand
char and h do it, since it is in the text property of the combo?

VB Code:

Text1.ForeColor = CLng(Combo2.Text)

You'll need to convert HEX value to long:

VB Code:

Option Explicit
 
Private Sub Command1_Click()
    Text1.ForeColor = HexToLong(Trim(Combo1.Text))
End Sub
 
Function HexToLong(ByVal sValue As String) As Long
'===================================================
 
    If UCase(Left(sValue, 2)) <> "&H" Then sValue = "&H" & sValue
    If Right(sValue, 1) <> "&" Then sValue = sValue & "&"
    HexToLong = Val(sValue)
 
End Function

Sorry, Rob - didn't mean to cross post.

No prob. Its all about solving the problem at hand. :D
I appreciate the help too, keep it coming.

Quote:

---

Originally Posted by RobDog888

How about adding a explicit conversion instead of letting the ampersand
char and h do it, since it is in the text property of the combo?

VB Code:

Text1.ForeColor = CLng(Combo2.Text)

---

Im sorry but i do not understand what adding a Explicit conversion is.

Quote:

---

Option Explicit

Private Sub Command1_Click()
Text1.ForeColor = HexToLong(Trim(Combo1.Text))
End Sub

Function HexToLong(ByVal sValue As String) As Long
'===================================================

If UCase(Left(sValue, 2)) <> "&H" Then sValue = "&H" & sValue
If Right(sValue, 1) <> "&" Then sValue = sValue & "&"
HexToLong = Val(sValue)

End Function

---

I do not have a command button on my form and was never planning on using one

Explicit is just a term for stating that the conversion needs to be told how to
convert vs. implicit which just implies a conversion. Implicit conversions could
be converted to a unexpected type since the conversion is left to the
system to decide.

I think that should explain it?

The command button is just for presenting the possible solution's usage and is in no
way a requirement. since we dcan not see all your code we can only show
how it may be used. It is up to you to take the contents and integrate them
into yur app, unless you want to post all your procedures code?

HTH