Conduce Chile

General => De Todo Un Poco => Mensaje iniciado por: Zatannita en Abril 04, 2011, 14:28:37 pm

Título: Una ayudita con Visual Studio 2010
Publicado 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
Título: Re:Una ayudita con Visual Studio 2010
Publicado por: DesarrolloNet en Abril 04, 2011, 16:10:20 pm
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
Título: Re:Una ayudita con Visual Studio 2010
Publicado por: DesarrolloNet en Abril 04, 2011, 16:29:50 pm
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?

Título: Re:Una ayudita con Visual Studio 2010
Publicado por: Mithrandir en Abril 04, 2011, 16:37:23 pm
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
Título: Re:Una ayudita con Visual Studio 2010
Publicado por: DesarrolloNet en Abril 04, 2011, 16:42:36 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

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
Título: Re:Una ayudita con Visual Studio 2010
Publicado por: DesarrolloNet en Abril 04, 2011, 16:45:25 pm
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
Título: Re:Una ayudita con Visual Studio 2010
Publicado por: Mithrandir en Abril 04, 2011, 18:39:09 pm
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
Título: Re:Una ayudita con Visual Studio 2010
Publicado por: Mithrandir en Abril 05, 2011, 07:17:04 am
Up
Título: Re:Una ayudita con Visual Studio 2010
Publicado por: DesarrolloNet en Abril 05, 2011, 16:43:35 pm
y al final te resulto o todavia estas con problemas???? :rtfm: :pensando:
Título: Re:Una ayudita con Visual Studio 2010
Publicado por: negroVeloz en Abril 05, 2011, 16:51:23 pm
Código: [Seleccionar]
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.