Need some help searchng through a font box efficently *resolved*

[Graff]

I'm writing a lite text editor and I have a font box (a custom control I downloaded from http://www.connetica.co.uk) populated with font names. I have it all working now but the font list always says the last used font, which if I have moved to a different part of the text may not necessarly be the font I'm using.

I've made a loop that goes through the font list to find the apropriate font but it slows down everything while it goes through the list.

For i = 0 To cboFont(Index).ListCount - 1
            
            If cboFont(Index).ItemFont(i).Name = rtxtDesc(Index).SelFontName Then
                cboFont(Index).ListIndex = i
                Exit For
            End If
        Next

Any ideas on how to speed this up or possibly a better way?

[peet]

It might be quicker using the sendmessage api

sample

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Const CB_FINDSTRING = &H14C
 
Private Sub Text1_Change()
    Combo1.ListIndex = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub

[Graff]

I'll try that thanks

[Graff]

Worked like a charm, thanks again.

[peet]

Just want to know Graff, was it a lot quicker ?

[Graff]

With my method there was a noticable lag of about ~250 - 500 ms where as the api method is almost instantaneous.