color in listbox

  • Thread starter Thread starter Jean-Paul De Winter
  • Start date Start date
J

Jean-Paul De Winter

Hi,
I created a form with a listbox with following choises:
"Very Bad","Bad","Good","Very Good"
When a user chooses "Very Bad" or "Bad" I would like to get these words in
Red
"Very Good" should be green

I wrote, as a test following code:

Private Sub Keuzelijst56_LostFocus()
If Me.Keuzelijst56.Value = "Bad" Then
Me.Keuzelijst56.ForeColor = 255
End If
End Sub

This doesn't seem to work...
What schould I write instead?
Thanks
JP
 
Hi,

This code will set the forecolor property of the listbox: The forecolor
applies to ALL the text
in the listbox, not any individual word. Is that what you expected?

HTH -Linda


Private Sub Keuzelijst56_LostFocus()
Dim lGreen As Long

lGreen = 32768

If Me.Keuzelijst56 = "Bad" Or _
Me.Keuzelijst56 = "Very Bad" Then
Me.Keuzelijst56.ForeColor = 255
ElseIf Me.Keuzelijst56 = "Good" Or _
Me.Keuzelijst56 = "Very Good" Then
Me.Keuzelijst56.ForeColor = lGreen
ElseIf IsNull(Me.Keuzelijst56) Then
Me.Keuzelijst56.ForeColor = 0
End If
End Sub
 
Back
Top