• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Searches for the 1st occurrence (begining, middle or end) of a partial text in a ComboBox/ListBox.

Searches for the 1st occurrence (begining, middle or end) of a partial text in a ComboBox/ListBox.

Searches for the 1st occurrence (begining, middle or end) of a partial text in a ComboBox/ListBox. Returns Listindex. Procura pela 1a

API Declarations


NoInicio = 0 'In the beginning of the entry Ex.: Entry=CONSTANTINE; Text=CONST
NoMeio = 1 'In the middle Ex.: Entry=CONSTANTINE; Text=TANT
NoFim = 2 'In the end Ex.: ENTRY=CONSTANTINE; Text=INE
End Enum



Rate Searches for the 1st occurrence (begining, middle or end) of a partial text in a ComboBox/ListBox.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Função BuscaCombo

' Gabriel Tavares de Oliveira Castellani

' Retorna o listindex de uma entrada de Combo que contenha
' a string TEXTO

Function BuscaCombo(ByVal Combo As Control, Optional ByVal Texto As String = "", Optional ByVal Onde As enumBuscaCombo = 0) As Integer

    Dim i As Integer
    
    BuscaCombo = -1
    If Texto = "" Then Texto = Combo.Text

    Select Case Onde
        Case 0
            For i = 0 To Combo.ListCount - 1
                If UCase$(Left$(Combo.List(i), Len(Texto))) = UCase$(Texto) Then
                    BuscaCombo = i
                    Exit For
                End If
            Next
        Case 1
            For i = 0 To Combo.ListCount - 1
                If InStr(UCase$(Combo.List(i)), UCase$(Texto)) > 0 Then
                    BuscaCombo = i
                    Exit For
                End If
            Next
        Case 2
            For i = 0 To Combo.ListCount - 1
                If UCase$(Right$(Combo.List(i), Len(Texto))) = UCase$(Texto) Then
                    BuscaCombo = i
                    Exit For
                End If
            Next
    End Select

End Function