Conduce Chile
General => De Todo Un Poco => Mensaje iniciado por: Zatannita en Abril 04, 2011, 14:28:37 pm
-
Chicos, la otra vez olvidé agradecer la ayudita que me dieron con el tema de SQL. ;D
Ahora vuelvo a recurrir a uds. para ver si me ayudan con un dramón que tengo con Visual Studio.
(http://i56.tinypic.com/qoajvo.jpg)
En la imagen anterior pueden apreciar que tengo un textbox, en donde ingreso un dato y al presionar AGREGAR, lo ingresa en la LISTAUNO, lista en la que puedo almacenar varios datos.
El punto es que debo pasar datos de la LISTAUNO a la LISTA2, para ello selecciono los datos deseados con ctrl + click y presiono >, aquí se presenta mi error, porque no me tira los datos a la otra lista, solo me agrega a la LISTA2 el primer dato seleccionado.
El código que estoy utilizando es:
Private Sub btnder1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnizq1.Click
lstlista2.Items.Add(lstlistauno.SelectedItem)
lstlistauno.Items.Remove(lstlistauno.SelectedItem)
End Sub
-
cuando hablas de lista de que estas hablando?
de listbox o de List o IList????
podrias poner el codigo completo en especial como declaras la lista para echarle un vistazo y ver que es lo que necesitas hacer tal vez ahi te pueda ayudar en algo
saludos
-
Hola, gracias. Hablo de listbox.
Public Class frmlista
Inherits System.Windows.Forms.Form
Private Sub frmlistbox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnagregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnagregar.Click
lstlistauno.Items.Add(txtagrega.Text)
txtagrega.Clear()
txtagrega.Focus()
End Sub
Private Sub btnder1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnder1.Click
For Each item In lstlistauno.SelectedItem
lstlista2.Items.Add(item)
Next
End Sub
Private Sub btnizq1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnizq1.Click
lstlistauno.Items.Add(lstlista2.SelectedItem)
lstlista2.Items.Remove(lstlista2.SelectedItem)
End Sub
Private Sub btndermucho_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndermucho.Click
For Each item In lstlistauno.Items
lstlista2.Items.Add(item)
Next
lstlistauno.Item.Clear()
End Sub
Private Sub btnizqmucho_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnizqmucho.Click
For Each item In lstlista2.Items
lstlistauno.Items.Add(item)
Next
lstlista2.Items.Clear()
End Sub
Private Sub btndelall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelall.Click
lstlistauno.Items.Clear()
lstlista2.Items.Clear()
txtagrega.Clear()
txtmodifica.Clear()
txtagrega.Focus()
End Sub
Private Sub txtmodifica_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtmodifica.TextChanged
End Sub
Private Sub btneditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btneditar.Click
End Sub
Private Sub btndel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndel1.Click
lstlistauno.Items.Remove(lstlistauno.SelectedItem)
lstlista2.Items.Remove(lstlista2.SelectedItem)
End Sub
End Class
Hola
cual es la linea especifica que te da error?
si entiendo bien el error es que no te agrega los datos de la lista 1 a la lista 2?
-
Hola
cual es la linea especifica que te da error?
si entiendo bien el error es que no te agrega los datos de la lista 1 a la lista 2?
Tenemos 2 dudas principales, los seleccionados cuando se apreta btnder1 o en el diseño > o el contrario cuando selecciono se traspasa solo un dato, no todos, y lo otro cuando apretó >> o el contrario q es btndermucho no traspasa todo lo del listbox solo conection o se cae el programa
-
Chicos, la otra vez olvidé agradecer la ayudita que me dieron con el tema de SQL. ;D
Ahora vuelvo a recurrir a uds. para ver si me ayudan con un dramón que tengo con Visual Studio.
(http://i56.tinypic.com/qoajvo.jpg)
En la imagen anterior pueden apreciar que tengo un textbox, en donde ingreso un dato y al presionar AGREGAR, lo ingresa en la LISTAUNO, lista en la que puedo almacenar varios datos.
El punto es que debo pasar datos de la LISTAUNO a la LISTA2, para ello selecciono los datos deseados con ctrl + click y presiono >, aquí se presenta mi error, porque no me tira los datos a la otra lista, solo me agrega a la LISTA2 el primer dato seleccionado.
El código que estoy utilizando es:
Private Sub btnder1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnizq1.Click
lstlista2.Items.Add(lstlistauno.SelectedItem)
lstlistauno.Items.Remove(lstlistauno.SelectedItem)
End Sub
ya entendi el problema es solo cuando seleccionas mas de 1
Hola Creo que el problema es lstlista2.Items.Add(lstlistauno.SelectedItem)
por eso te agrega solo el primero por que falta recorrerlo
pruebalo con esto lo hice y me funiono
ojalas te funcione
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each item In ListBox1.SelectedItems
ListBox2.Items.Add(item)
Next
End Sub
-
este es el codigo que hice de prueba
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ListBox1.Items.Add("prueba1")
ListBox1.Items.Add("prueba2")
ListBox1.Items.Add("prueba3")
ListBox1.Items.Add("prueba4")
ListBox1.Items.Add("prueba5")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Agrega solo los seleccionados
For Each item In ListBox1.SelectedItems
ListBox2.Items.Add(item)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'agrega Todos los item
For Each item In ListBox1.Items
ListBox2.Items.Add(item)
Next
End Sub
End Class
-
y para borrar los seleccionados, lo otro hice el codigo que me diste y me funca pero tengo problemas con el primer boton que es >, ya que no cumple la función
-
Up
-
y al final te resulto o todavia estas con problemas???? :rtfm: :pensando:
-
For Each item In lstlistauno.SelectedItem
lstlista2.Items.Add(item)
Next
Oye pero la falta la 's'.
Por eso no te recorre la lista, sino que utiliza el primer seleccionado.