Change the color of Combo Item font **RESOLVED**

[Daskalos]

Hello all
well, I have this in my prog:

Private Sub AddB_Click()
On Error Resume Next
If iBandas.ListIndex = 0 Then
Text1(0).Visible = True
Text1(0).Text = iBandas.Text
Else
Load Text1(iBandas.ListIndex)
Text1(iBandas.ListIndex).Text = iBandas.Text
Text1(iBandas.ListIndex).Visible = True
Text1(iBandas.ListIndex).Top = Text1(0).Top + iBandas.ListIndex * 375
End If
End Sub
 
Private Sub Form_Load()
Dim MyFile As String
Dim MyPath  As String
MyPath = "C:\Bandas\"
 
MyFile = Dir(MyPath)
 
Do While MyFile <> ""
iBandas.AddItem MyFile
MyFile = Dir
Loop
End Sub
 
Private Sub RemB_Click()
On Error Resume Next
If iBandas.ListIndex = 0 Then
Text1(0).Visible = False
Text1(0).Text = ""
Else
Text1(iBandas.ListIndex).Text = ""
Unload Text1(iBandas.ListIndex)
End If
End Sub

so, when i click in Button AddB it loads on text box and the text in combo1...
well.. i need that if an Item have already been loaded, its name in Combo1 changes the font color, or something to know that that item have already been loaded...
understand??

thanks in advance

[Nightwalker83]

Hope this helps you solve your problem:

Dim i As Integer, index As Integer
 
Private Sub Combo1_Click()
For i = 0 To List1.ListCount - 1
If Combo1.Text = List1.List(i) Then
MsgBox ("Item Already Exists"), vbCritical
List1.RemoveItem (index)
Else
End If
Next i
List1.AddItem Combo1.Text
End Sub

Nightwalker83

[Daskalos]

thanks, but it's not what I need..
i need to show to the user that the item from the Combo have already been added... so, the better for this, in my case, is to chage the item color, or font, so the user will see it before clicking in ADD again..

is that possible?

thanks in advance

[Nightwalker83]

Do you have to change the font colour of the combo box text. Wouldn't it be better to change the colour of the text in the listbox?

[Daskalos]

there is no List box

[Nightwalker83]

Oh sorry I ment change the text colour in the textboxes.

[Daskalos]

the problem is that the textboxes are there only for testing purpouses...
when the user clicks in the Add button, it will add a picture in another form... so, it will be a little boring if he needs to remember the name of the items to remove them later..

any idea??

[MartinLiss]

Maybe you can get what you want from this.

[Daskalos]

wow.. i tried to understand this code.. but i really can't..
i have another idea..
when the user click in Add button

iBandas.List(iBandas.ListIndex) = iBandas.List(iBandas.ListIndex) & "**"

but how could I remove the two last caracters (**)later on??

thanks for all the replies

[MartinLiss]

Const NEW_IND As String = "**"
Dim lngIndex As Long
 
For lngIndex = 0 To iBandas.ListCount - 1
    iBandas.List(lngIndex) = Replace(iBandas.List(lngIndex), NEW_IND, "")
Next

[Daskalos]

thanks a lot

see ya