Visual Basic - Problema con ListView VB6 - Error 35600

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Carlos

Problema con ListView VB6 - Error 35600

Publicado por Carlos (4 intervenciones) el 04/04/2017 06:06:23
Hola buenas noches, gracias a los que se toman la molestia en tratar de ayudarme.
Soy nuevo por acá, y nuevo en la programación, actualmente estoy desarrollando un pequeño sistema de loterias.

Mi problema es el siguiente:

Tengo un ListBox, un ListView y Dos TextBox, uno para "Jugada" y otro para "Monto"

El ListBox es simple... solo muestra la lista de loterias disponibles.
El ListView tiene 4 columnas, por lo que se le deben insertar ciertos subitems, es decir, se insertara lo que tenga seleccionado en el ListBox que es la Loteria, lo que tengo en el TextBox1 que es la Jugada y Lo que tengo en el TexBox2 que es el Monto. Todo lo anterior puedo hacerlo sin problemas...

El problema radica cuando selecciono mas de dos elementos del ListBox, de inmediatamente me salta el error:
35600 - El indice esta fuera de los limites.

La idea es seleccionar dos o mas elementos de la ListBox y que me agregue esas dos opciones con las mismas opciones que hay en Text1 y Text2 respectivamente!

Por ejemplo:
en ListBox hay: Loteria1 y Loteria2.

Selecciono esas dos... luego en Text1 agrego: 20 y en Text2 agrego: 1000

entonces quisiera en que ListView me aparezca:

Loteria1 20 1000
Loteria2 20 1000


Este es el fragmento de Código que me salta el error... lo resumí, ya que tiene muchas validaciones de los campos de texto y de los subitems y no quería hacerlo muy largo:

1
2
3
4
5
6
7
8
9
If ListaLoteria.ListCount <> 0 Then
       For J = ListaLoteria.ListCount - 1 To 0 Step -1
            If ListaLoteria.Selected(J) = True Then
               ListView.ListItems.Add ListaLoteria.Selected(J)
            End If
       Next
Else
MsgBox "No hay loterias disponibles", vbInformation
End I

Agradezco muchísimo cualquier ayuda que me puedan brindar.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Carlos

Problema con ListView VB6 - Error 35600

Publicado por Carlos (4 intervenciones) el 08/04/2017 08:04:29
Me respondo a mi mismo con la solución...

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim J As Integer
NumCol = Me.ListView.ListItems.Count + 1
lblCount.Caption = NumCol
 
If ListaLoteria.ListCount <> 0 Then
            For J = Me.ListaLoteria.ListCount - 1 To 0 Step -1
                 If Me.ListaLoteria.Selected(J) = True Then
                 Set Aitem = Me.ListView.ListItems.Add(NumCol, , NumCol)
                 Aitem.SubItems(1) = Me.ListaLoteria.List(x)
                 Aitem.SubItems(2) = Me.txtNum.Text
                 End If
            Next
End If

Espero pueda servirle a alguien alguien día!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con ListView VB6 - Error 35600

Publicado por Che do (1 intervención) el 27/10/2017 18:19:16
Gracias por la ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad