Problema, al recorrer LV Checked
Publicado: 04 Jul 2010, 21:05
Buenas, una duda, tengo un listview, donde si está checked mando una función
( es conexión ) , el problema es que esté o no checked, siempre envia la función
si hay 1 solo " amigo " en el listview, si hay dos, al segundo no se lo envia ni al tercero
pero el primero, siempre se envia esté checked o no, y me gustaría solucionarlo, os pongo
una de las funciones que dá error:
Envia un mensaje a la conexión, bueno no hace falta explicarlo se entiendo, la cosa es que
si le quito el On Error Resume next, me dice que el For i está fuera de intervalos o algo así
por eso se lo puse... a ver que me deciís.
( es conexión ) , el problema es que esté o no checked, siempre envia la función
si hay 1 solo " amigo " en el listview, si hay dos, al segundo no se lo envia ni al tercero
pero el primero, siempre se envia esté checked o no, y me gustaría solucionarlo, os pongo
una de las funciones que dá error:
Código: Seleccionar todo
On Error Resume Next
If LV.ListItems.Count = 0 Then Exit Sub
mensaje = InputBox("Message to send", "Write your message")
For i = 0 To LV.ListItems.Count - 1
If LV.ListItems.Item(i).Checked = True Then
ws(sIndex).SendData "msg" & "\" & mensaje
DoEvents
Sleep (1000)
End If
Next iEnvia un mensaje a la conexión, bueno no hace falta explicarlo se entiendo, la cosa es que
si le quito el On Error Resume next, me dice que el For i está fuera de intervalos o algo así
por eso se lo puse... a ver que me deciís.