SELECIONAR LINHAS DO LISTVIEW

EMANUEL 03/08/2007 17:59:45
#229411
Pessoal,

Como eu faria pra quando fosse digitando as iniciais dos clientes em um TEXTBOX fosse selecionando a linha no listview?

hj eu carrego todos os clientes em um listview, quando o usuario digita, daii queria que na digitação, ja fosse selecionando a linha do listview.

obrigado,
Emanuel
USUARIO.EXCLUIDOS 04/08/2007 00:04:27
#229458
kra eu faço o seguinte eu filtro com o sql e completo o list so com aqueles

que e compativel com o filtro

assim desse jeito num faço nem ideia


ajudei muito XD
ICEMAN 04/08/2007 12:46:22
#229482
cara eu faço assim

[txt-color=#ff0000]EM ADO[/txt-color]


[c]public sub text1_change()
dim V_SQL as string
v_sql = "Select * from clientes where nome like'" & text1 & "%'"

enche_lista 'Sua sub pra preencher lista

end sub


[txt-color=#ff0000]EM DAO[/txt-color]

public sub text1_change()

dim v_SQL as string
v_sql = "Select * from clientes where nome like'" & text1 & "*'"


enche_lista 'Sua sub pra preencher lista

end sub[/c]

ai vc poe o esquema pra preencher a lista
tenta ai e diz se funfou
[/c]
USUARIO.EXCLUIDOS 04/08/2007 13:08:32
#229487
Resposta escolhida
cara, coloca um list e um textbox no form depois coloquei o seguinte codigo


Private Const LB_FINDSTRING = &H18F


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long








[c]Sub Form_Load()
List1.Clear
List1.AddItem "Apples"
List1.AddItem "Banana"
List1.AddItem "Bread"
List1.AddItem "Break"
End Sub


    Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, _
ByVal CStr(Text1.Text))
End Sub


acho que vai resolver seu problema. abraços!
[/c]
EMANUEL 04/08/2007 19:28:45
#229522
Ok galera, obrigado a todos pela atenção.

Eltão, esse seu codigo foi o bicho cara, resolveu meu problema.

valeu
Emanuel
Tópico encerrado , respostas não são mais permitidas