DRAG & DROP en el mismo formulario

Tengo un problema al mandar filas completas de un listview a otro, estoy haciendo un drag-drop, pero al arrastrar la(s) filas del listview1 al listview2, solo me copia o me manda la los datos de la primera columna, y lo que yo necesito es poder copiar la fila completa, espero y puedas ayudarme, te dejo el código que tengo. Espero y me puedas ayudar, gracias.
Private Sub Form_Load()
Dim UnItem As ListItem
Dim lvItem As ListItem
Dim i As Integer
With ListView1
.MultiSelect = True
.View = lvwReport
.GridLines = True
'Para poder arrastrar los items
.OLEDragMode = ccOLEDragAutomatic
For i = 1 To 25
Set UnItem = .ListItems.Add(, , "Elemento " & i)
End With
With ListView2
.MultiSelect = True
.View = lvwReport
.GridLines = True
'Para habilitar el Drop sobre este Listview
.OLEDropMode = ccOLEDropManual
End WithListView1.GridLines = True
ListView1.ColumnHeaders.Add , , "Referencia_Rittal", 1600
ListView1.ColumnHeaders.Add , , "Tipo_de_barra", 1600
ListView1. ColumnHeaders. Add,, "Sistema", 1800
ListView1. ColumnHeaders. Add,, "Componente", 1800
ListView1. ColumnHeaders. Add,, "Especificaciones", 1600
ListView1. ColumnHeaders. Add,, "Cantidad", 1600
ListView1. ColumnHeaders. Add,, "Precio", 1600
ListView1. ColumnHeaders. Add,, "Catalogo-Pagina", 1800
ListView2.GridLines = True
ListView2.ColumnHeaders.Add , , "Referencia_Rittal", 1600
ListView2.ColumnHeaders.Add , , "Tipo_de_barra", 1600
ListView2. ColumnHeaders. Add,, "Sistema", 1800
ListView2. ColumnHeaders. Add,, "Componente", 1800
ListView2. ColumnHeaders. Add,, "Especificaciones", 1600
ListView2. ColumnHeaders. Add,, "Cantidad", 1600
ListView2. ColumnHeaders. Add,, "Precio", 1600
ListView2. ColumnHeaders. Add,, "Catalogo-Pagina", 1800
End Sub
Private Sub ListView1_OLESetData(Data As MSComctlLib.DataObject, DataFormat As Integer)
Dim i As Integer, sStr As String
'Recorremos todos leos items del ListView y chequeamos cual está seleccionado
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected Then
'Creamos una cadena con los Items que luego será separada _
con la función Split
If Len(sStr) <> 0 Then
sStr = sStr & vbCrLf
End If
sStr = sStr & ListView1.ListItems(i).Text
End If
Next
'Establece los datos
Data.SetData sStr
DataFormat = vbCFText
End Sub
Private Sub ListView2_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim arrayItems() As String, ListaItems As String, objItem As ListItem
Dim i As Integer
'Si el dato es de tipo texto
If Data.GetFormat(vbCFText) Then
'Consulta en en el evento OleSetdata
ListaItems = Data.GetData(vbCFText)
'Recupera los datos y los separa
arrayItems = Split(ListaItems, vbCrLf, -1, vbBinaryCompare)
'Recorre el array y Los agrega al Listview2
For i = LBound(arrayItems) To UBound(arrayItems)
Set objItem = ListView2.ListItems.Add(, , arrayItems(i))
Next
'Refrescamos
ListView2.Refresh
End If
End Sub

1 respuesta

Respuesta
1
Yo no lo haría así como lo haces.
En ves de meterlo en un Array pasa directamente los valores de uno hacia el otro recorriendolos.
ListView. Items. Item(i).Text
ListView. Items. Item(i). SubItems(1).Text
ListView. Items. Item(i). SubItems(1).Text
ListView. Items. Item(i). SubItems(2).Text
...
ListView. Items. Item(i). SubItems(10).Text
SubItem representa a los Sub Elementos del ListView.
OK muchas gracias, otra cosa, me marca un error en la linea ListView.Items.Item(i).Text, me dice que no se encontró el método o el miembro de datos, y otro cosa ese código que mencionas, ¿solo es para el listview2 o también para el listview1?, ¿Y la parte de programación que tendría que eliminar seria lo del array en el listview 2?, perdón que haga tanta pregunta, pero soy nuevo en esto, espero y no te incomode, gracias.
Primero yo te puse ListView, pero tu debes cambiarlo por el nombre de tu control, en este caso el que tiene los datos.
Segundo, sacas lo del Array y harías algo así:
Dim item As ListViewItem
item = New ListViewItem()
item = New ListViewItem(ListView1. FocusedItem.Text) item. SubItems. Add(ListView1. FocusedItem. SubItems(1).Text)
Item. SubItems. Add(ListView1. FocusedItem. SubItems(2).Text)
Item. SubItems. Add(ListView1. FocusedItem. SubItems(3).Text)
Item. SubItems. Add(ListView1. FocusedItem. SubItems(4).Text)
Item. SubItems. Add(ListView1. FocusedItem. SubItems(5).Text)
Item. SubItems. Add(ListView1. FocusedItem. SubItems(6).Text)
ListView2. Items. Add(item)
Dim item As ListViewItem , me marca que no esta definido, supongo q lo tengo q definir en el form_load, como lo defino? y es en el form_load o en el listview?
Todo lo que te puse lo pones dentro de Private Sub ListView2_OLEDragDrop

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Filtrar datos en ListView

Espero que me puedas dar una mano con un problema que tengo. Estoy queriendo llenar un Listview desde un recordset (ADO), mirando un código fuente he podido cargar todos los registros del Recordset en el List, pero mi problema es que solo quiero...
2 respuestas

Agregar datos en SubItem en un ListView

Tengo un listView de dos columnas, la columna 1 la cargo con datos con un Command Buttom. Ahora Como puedo agregar datos en la columna 2 (SubItem), los datos los debo agregar desde un TextBox uno a uno hacia abajo. Este seria Mi listView COLUMNA1...
1 respuesta

TextBox

Lo que pasa es que estoy creando un programa para entregar en la Universidad como trabajo de grados, en él tengo que imprimir mucha información en un parte donde hay un glosario. Primero estaba poniendo la palabra en un label y al frente la...
1 respuesta

Autoajustar columna ListView

He puesto una pregunta en los foros de msdn y nadie me la ha sabido responder. Se trata de como hacer para autoajustar las columnas de un ListView. La forma de ver los elementos en el ListView sería el de una lista (lvwlist), y tendría la propiedad...
2 respuestas

Listview VB 6 y Sql 2000

Amigo una pregunta como puedo hacer para cargar en un listview de VB 6.0 una tabla de SQL 2000. La consulta sql seria algo como: sql = "SELECT * FROM CALIDAD_PLANTILLA WHERE plantilla = '" & plantillas & "' " El problema ahora es llenar el Listview...
1 respuesta

Copiar item de listview

Soy nuevo en esto, tengo un problema con mi listview, resulta que quiero que al seleccionar uno o varias filas (items) del listview, tenga un botón o cualquier opción de poder copiar estos items a una hoja de excel. Lo más viable seria poder tener...
1 respuesta

Exportar un listview al portapapeles en Visual Basic en tiempo de ejecución

Alguien puede echarme una mano de como puedo en visual Basic exportar un listview al portapapeles; es decir hacer clic el el listview en tiempo de ejecución y pegarlo en el portapeles.
1 respuesta

Multiplicar columnas de listview

Quiero multiplicar el valor de dos columnas de un LVW y mostrarlo en un textbox... Hago así pero no lo hace bien... ------------------------------------------ private sub cmdagregar_click() dim total as double With LVW2.ListItems.Add .Text =...
1 respuesta

Pasar elementos de un listview a otro listview VB6

Holiiiisss..! ¿Cómo debe ser la función para que pasar un elemento de un LVW a otro con un botón asignar? Este código tengo pero me da error... Me dice que el indice esta fuera de los términos...
1 respuesta

De listview a listview

Molestando de nuevo.. ¿Ja cómo debe ser la función para pasar un elemento de un LVW a otro con un botón asignar? Este código tengo pero me da error... Me dice que el indice esta fuera de los términos...
1 respuesta