Convidado 5/9/2013, 15:22
Para selecionar um registro em uma listBox
On Error Resume Next
Dim Selecionado As Boolean
Dim I As Integer
Dim strProcura As String, intPos As Integer
Dim strList As String
strProcura = UCase$(Me.txtBusca.Text)
intPos = Len(strProcura)
If intPos Then
For I = 0 To ImageList.ListCount - 1
strList = Me.ImageList.Column(0, I)
If UCase$(Left(strList, intPos)) = strProcura Then
Me.ImageList.Selected(I) = True
Selecionado = True
Me.ImageList = Me.ImageList.Column(0)
Exit For
Else
Me.ImageList.Selected(I) = False
Selecionado = False
End If
Next
End If
Lembrando que neste caso está selecionando o texto digitado em uma caixa texto: Me.txtBusca.Text
Ou se alguma informação da list em uma coluna for condizente com uma caixa texto no form:
Me.Sualista.Colunm(x) = Me.SuaCaixaTexto
POdes adaptar ao que necessita
Cumprimentos.
Última edição por PILOTO em 1/11/2013, 01:32, editado 1 vez(es) (Motivo da edição : Tópico dado como resolvido por falta de resposta)