Aporte - buscar en combobox

[haggenx]

Que tal, aporto este pequeño código en VB.Net que busca la posición de un elemento en un combobox (coincida el texto a buscar con los elementos del combobox) y devuelve la posición del elemento dentro de la lista, espero les sea de utilidad:


End Function

'#### Purpose: Return exist boolean to item inside combobox
'#### Created date: 17/12/2012
'#### Created by username: Juan Manuel Mar Hdz.
'#### Last modified date: 17/12/2012
'#### Last modified username: Juan Manuel Mar Hdz.
Public Function FindIteminCombobox(text As String, combo As ComboBox) As Long

Dim i As Long, found As Boolean = False

For i = 0 To combo.Items.Count - 1

My.Application.DoEvents

If combo.Items.Item(i).ToString().Trim().ToLower = text.Trim().ToLower Then

found = True
Exit For

End If

Next

If found = True Then
Return i
Else
Return -1
End If

End Function