LISTVIEW COM CHECKBOX
Boas pessoas.
em um listview os dados então vindo com check box. preciso pegar somente os que estiverem marcados e compara com um textbox, estou tentando aqui mas n ta dando certo tem como me ajuda.
ex:
em um textbox tenho números:
1-2-3-4-5-6-7-8-9.....
ai teria que compara esse número com os check box que estiverem selecionados.
e me dizer quantos números são iguais.
duvidas so me pedir XD
em um listview os dados então vindo com check box. preciso pegar somente os que estiverem marcados e compara com um textbox, estou tentando aqui mas n ta dando certo tem como me ajuda.
ex:
em um textbox tenho números:
1-2-3-4-5-6-7-8-9.....
ai teria que compara esse número com os check box que estiverem selecionados.
e me dizer quantos números são iguais.
duvidas so me pedir XD
como os dados estão no listview para se fazer a comparação
no list os dados estão da seguinte maneira
te, 2 colunas a primeira id e a segunda os números 1-2-3-4-5-6-7-8-9-10...
no txt 1-2-3-4-5-6-7-8-9-10...
te, 2 colunas a primeira id e a segunda os números 1-2-3-4-5-6-7-8-9-10...
no txt 1-2-3-4-5-6-7-8-9-10...
veja
bom eu não fiz testes isso vai caber a você
Dim DezList() As String
Dim DezText() As String
Dim Acertos As Integer
For i = 1 To ListView1.ListItems.Count
Acertos = 0
If ListView1.ListItems(i).Checked = True Then
[txt-color=#007100][ô] compara com o textbox[/txt-color]
DezList = Split(ListView1.ListItems(i).ListSubItems.Item(1).Text, [Ô]-[Ô])
DezText = Split(Text1.Text, [Ô]-[Ô])
For L = 0 To UBound(DezList) - 1
For T = 0 To UBound(DezText) - 1
If DezList(L) = DezText(T) Then
Acertos = Acertos + 1
End If
Next T
Next L
[txt-color=#007100][ô] aqui você decide onde vai exibir o numero de acertos
[ô] ex: Msgbox Acertos[/txt-color]
End If
Next i
bom eu não fiz testes isso vai caber a você
Funciono vlw.
Tópico encerrado , respostas não são mais permitidas