Verificar Item ListView en forma correlativo.

[E N T E R]

Hola, tengo un ListView que quiero verificar si estan seleccionado en forma correlativo pero siempre respetando desde el 1 el primer item siempre tiene que estar seleccionado.

Tengo este code: que funciona bien si estan en forma correlativo pero no me funciona si están seleccionado total mente.

Código: (VB) [Seleccionar]

Private Sub Form_Load()
       
    For i = 1 To 5
        ListView1.ListItems.Add , , "Pago " & Format$(i)
    Next i
   
End Sub


Código: (VB) [Seleccionar]

Function ContarCheck() As Integer
    Dim contar As Integer
    contar = 0
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).Checked = True Then contar = contar + 1
    Next i
    ContarCheck = contar
End Function


Código: (VB) [Seleccionar]

Private Sub cmdCommand1_Click()
   
    If ListView1.ListItems.Count = 0 Then
        MsgBox "No existe datos"
        Exit Sub
    End If

    Dim xSelec As Integer
    xSelec = ContarCheck
   
    If xSelec = 0 Then
        MsgBox "No existe datos seleccionados"
        Exit Sub
    End If
   
    Dim xV As Integer
    xV = 0
   
    For i = 1 To ListView1.ListItems.Count
       
        If xV = xSelec Then
            MsgBox "CORRECTO"
            Exit For
        End If
       
        If ListView1.ListItems(i).Checked = False Then
            MsgBox "Debe de estar marcado el item " & " - " & ListView1.ListItems.Item(i)
            Exit For
        Else
            xV = xV + 1
        End If
       
    Next i
   
End Sub

[Jeronimo]

Hola, ENTER.
No entendí bien lo que no podés hacer.
¿Lo que querés hacer es verificar si los elementos seleccionados son correlativos en la lista?

Jerónimo

[E N T E R]

Asi mismo, pero ya le pille amigo el

Código: (VB) [Seleccionar]

xV = 0
tiene que estar en 1.

Lo que quiero hacer es verificar el orden del check si estan seleccionado en forma correlativo ej:







Saludos...

[Jeronimo]

Me alegro. Perdón por no haber podido ayudar.

Jerónimo