Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Visual Basic 2005: Listview de dos en dos

Estas en el tema de Visual Basic 2005: Listview de dos en dos en el foro de Visual Basic clásico en Foros del Web. Hola a todos los del foro. Tengo una duda nuevamente, me gustaria saber como manipular un listview donde se selecciona solo de dos en dos, ...
  #1 (permalink)  
Antiguo 05/08/2008, 13:13
Avatar de moradazo  
Fecha de Ingreso: julio-2008
Ubicación: [email protected]
Mensajes: 355
Antigüedad: 15 años, 10 meses
Puntos: 2
Visual Basic 2005: Listview de dos en dos

Hola a todos los del foro.

Tengo una duda nuevamente, me gustaria saber como manipular un listview donde se selecciona solo de dos en dos, las filas seleccionadas son impares y al ser seleccionados van a un textbox. ¿Cómo hago para que la fila par se pueda seleccionar pero el dato que lleve al textbox es la fila siguiente a este?

Tengo este código que selecciona solo filas con números impares

Código:
 Dim impar As Integer
        impar = ListView1.SelectedIndices.Item(0)
        If ListView1.SelectedItems.Count = 0 Then Exit Sub
        For i As Integer = ListView1.SelectedItems.Count - 1 To 0 Step -1
            If Val(impar) Mod 2 <> 0 Then
                TBcomments.AppendText(ListView1.SelectedItems(i).Text)
            End If
        Next
Lo que necesito es que digamos si escogemos la fila 2, que lleve al textbox lo que hay en la 3. Pero si se selecciona un número impar, ese mismo se va al textbox

Gracias compañeros!

Última edición por moradazo; 05/08/2008 a las 18:32 Razón: Resolví un problema que había puesto
  #2 (permalink)  
Antiguo 05/08/2008, 19:15
Avatar de moradazo  
Fecha de Ingreso: julio-2008
Ubicación: [email protected]
Mensajes: 355
Antigüedad: 15 años, 10 meses
Puntos: 2
Respuesta: Visual Basic 2005: Listview de dos en dos

Disculpen amigos, ya lo resolví, para cualquiera que le interese aca esta:

Código:
 Dim impar As Integer
        impar = ListView1.SelectedIndices.Item(0) ' Obtiene el número de fila
        If ListView1.SelectedItems.Count = 0 Then Exit Sub
        For i As Integer = ListView1.SelectedItems.Count - 1 To 0 Step -1
    'Si el número de fila su residuo entre 2 no es 0 entonces agrega la línea seleccionada
            If Val(impar) Mod 2 <> 0 Then [COLOR="green"]
                textbox1.AppendText(ListView1.SelectedItems(i).Text)
            Else ' Si no, su residuo es igual a 0 entonces aplica esta instrucción:
                textbox1.AppendText(ListView1.Items(impar + 1).SubItems(0).Text)
' Aca vemos que se suma al valor de impar para que agregue la siguiente línea.            
            End If
        Next
Espero que a alguien le pueda servir!

Última edición por moradazo; 05/08/2008 a las 19:20
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 01:18.