20/11/2006, 10:33
|
| | | Fecha de Ingreso: diciembre-2004
Mensajes: 129
Antigüedad: 19 años, 5 meses Puntos: 0 | |
| xtexto = LCase(CboPro.Text)
For i = 0 To CboPro.ListCount - 1
If mid(LCase(CboPro.List(i)),1,len(cbopro.text) = xtexto Then
CboPro.ListIndex = i
Exit For
End If
Next
algo asi, recorres todos los items del combo buscando cual se asemeja a la propiedad text del combo, sustrayendo la misma cantidad de caracteres que tengas en text del combo |