Autor Tema: Como Usar El Selectedobjectcollection Del Listbox (Leído 1470 veces)

Thanatos-chan · « **en:** Viernes 29 de Septiembre de 2006, 00:29 »

Saludos a todos los miembros, anteriormente habia entrado a el foro a leer info, pero me decidi en registrame el la pagina. asi que

a todos.

pues bien ahora estoy en aprendizaje de visual basic.net y mientras hacia un programa se me presento esta situacion.

Código: Text

Public Class Form1
    Dim i As Integer
 
 
 
    Private Sub btn_agregar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_agregar.Click
        lst_A.Items.Add(txt_Numero.Text)
        txt_Numero.Text = &#34;&#34;
        txt_Numero.Focus()
 
    End Sub
 
    Private Sub btn_eleminar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_eleminar.Click
        If lst_A.SelectedIndex &#60;&#62; -1 Then
            lst_A.Items.Remove(lst_A.SelectedItem)
        End If
    End Sub
 
    Private Sub btn_insertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_insertar.Click
        For i = 0 To lst_A.SelectedIndices.Count - 1
 
            lst_A.Items.Insert(i, txt_Numero.Text)
        Next
    End Sub
End Class
 

en este programa intento insertar y eliminar elementos en la posicion seleccionada
no tengo problemas eleminando pues parece que BV.net rueda el indice una vez eliminado el elemento. el lio esta en cuando quiero insertar un elemento justo debajo del elemento que tengo selecionado en el listbox EJ:

si tengo en el listbox 1,2,3 con los indices 1,2,3 y quiero insertar el 4 entre el 2 y el 3 y que los indices rueden me ha dejado colgado.

para eso he querido usar el selectedObjectCollection, pero tengo la duda si tengo que debo usar los elementos para adicionar o los indices.

cualquier ayuda me caeria super.

P.D deje el codigo incompleto ya que en el boton insertar es que quiero usar el selectedobjectcollection

Thanatos-chan

Hola a la gente de este foro anteriormente habia publicado el tema de arriba y al parcer daba muchos problemas dado que nadie me pudo decir nada, pero despues de visitar muchas paginas y un poco de ayuda he aqui el programa.

este es un programa que utiliza el objectcollection de visual basic como un arreglo ya que los listbox son uno por defecto ademas en este ejemplo se usar un arreglo para mantener una constancia de los datos y actulizar el listbox.

como soy nuevo no se si era que no me podian decir debidoa que era parte de una asignacion universitaria o que esta parte del foro no se visita mucho, como sea aqui lo dejo como un aporte y cualqier duda yo la contesto.

Código: Text

 
Public Class Form1
    Dim t_A = 100
    Dim arreglo(0) As String
    Dim indice As Integer
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        indice = -1
    End Sub
 
 
    Private Sub btn_agregar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_agregar.Click
        If indice = t_A - 1 Then
            MessageBox.Show(&#34;Ha llegado al tope de elementos permitidos para agregar&#34;)
        Else
            indice += 1
            ReDim Preserve arreglo(indice)
            arreglo(indice) = txt_elemento.Text
            lst_A.Items.Add(arreglo(indice))
            txt_elemento.Clear()
            txt_elemento.Focus()
        End If
    End Sub
 
    Private Sub btn_eliminar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_eliminar.Click
        Dim item As String
        'Valida que el arreglo tenga items
        If arreglo.Length = 0 Then
            MessageBox.Show(&#34;No hay elementos disponibles para eliminar&#34;)
            Exit Sub
        End If
 
        If lst_A.SelectedIndex = -1 Then
            MessageBox.Show(&#34;Debe seleccionar un item para eliminar&#34;)
            Exit Sub
        End If
 
        lst_A.Items.Remove(lst_A.SelectedItem)
        indice = -1
 
        ReDim arreglo(lst_A.Items.Count - 1)
        For Each item In lst_A.Items
            indice += 1
            arreglo(indice) = item
        Next
 
    End Sub
 
    Private Sub btn_insertar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_insertar.Click
        Dim item As String
 
        If indice = t_A - 1 Then
            MessageBox.Show(&#34;Ha llegado al tope de elementos permitidos para agregar&#34;)
        Else
            lst_A.Items.Insert(lst_A.SelectedIndex, txt_elemento.Text)
 
            indice = -1
            ReDim arreglo(lst_A.Items.Count - 1)
            For Each item In lst_A.Items
                indice += 1
                arreglo(indice) = item
            Next
            txt_elemento.Clear()
            txt_elemento.Focus()
        End If
    End Sub
End Class
 
 

SoloCodigo

Autor Tema: Como Usar El Selectedobjectcollection Del Listbox (Leído 1470 veces)

Thanatos-chan

Como Usar El Selectedobjectcollection Del Listbox

Thanatos-chan

Re: Como Usar El Selectedobjectcollection Del Listbox