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:
Agradezco muchísimo cualquier ayuda que me puedan brindar.
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
0