Ver Mensaje Individual
  #2 (permalink)  
Antiguo 30/10/2008, 21:42
megaligathor
 
Fecha de Ingreso: septiembre-2008
Mensajes: 68
Antigüedad: 16 años, 5 meses
Puntos: 0
Sonrisa Respuesta: Enviar Datos de un Listview a otro listview

Hola amiga. Bueno segun lo que entendí de tu problema es que quieres pasar un item (Una fila) de un listview a otro. Si este es tu caso te pongo este código fuente para que lo analizes y sea de tu ayuda.

Requisitos: Crea un nuevo proyecto tipo formulario con este nombre "form1", crea dos listview con los nombres listview1 y listview2, coloca un checkbox con el nombre checkbox1 y pega todo este código fuente.

Código:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        crearlistas(ListView1)
        crearlistas(ListView2)
        llenarlsitview()
    End Sub

    Private Sub crearlistas(ByVal lsview As ListView)

        With lsview
            .View = View.Details
            .FullRowSelect = True
            .MultiSelect = False
            .GridLines = True
            .LabelEdit = False
            .HideSelection = False
            .Scrollable = True
            .Columns.Clear()
            .Columns.Add("Nombres", 75, HorizontalAlignment.Left)
            .Columns.Add("Apellidos", 85, HorizontalAlignment.Left)
        End With

    End Sub

    Private Sub llenarlsitview()
        ListView1.Items.Clear()

        Dim lvItem As ListViewItem
        lvItem = ListView1.Items.Add("Juan")
        lvItem.SubItems.Add("Cárdena")

        lvItem = ListView1.Items.Add("Carlos")
        lvItem.SubItems.Add("Barreto")

        lvItem = ListView1.Items.Add("José")
        lvItem.SubItems.Add("Saldaña")

    End Sub

    Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click

    End Sub

    Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
        Try
            Dim datos(1) As String
            datos(0) = ListView1.SelectedItems.Item(0).SubItems(0).Text.ToString
            datos(1) = ListView1.SelectedItems.Item(0).SubItems(1).Text.ToString

            Dim lvItem As ListViewItem
            lvItem = ListView2.Items.Add(datos(0))
            lvItem.SubItems.Add(datos(1))

            If CheckBox1.Checked Then
                ListView1.Items.RemoveAt(ListView1.SelectedItems.Item(0).Index)
            End If

        Catch ex As Exception

        End Try
    End Sub
End Class
Suerte....

ATTE RealTMegalix