SELECIONAR LINHAS DO LISTVIEW
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
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
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
que e compativel com o filtro
assim desse jeito num faço nem ideia
ajudei muito XD
cara eu faço assim
[txt-color=#ff0000]EM ADO[/txt-color]
[txt-color=#ff0000]EM DAO[/txt-color]
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]
[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]
cara, coloca um list e um textbox no form depois coloquei o seguinte codigo
acho que vai resolver seu problema. abraços!
[/c]
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]
Ok galera, obrigado a todos pela atenção.
Eltão, esse seu codigo foi o bicho cara, resolveu meu problema.
valeu
Emanuel
Eltão, esse seu codigo foi o bicho cara, resolveu meu problema.
valeu
Emanuel
Tópico encerrado , respostas não são mais permitidas