none
Como hacer para no repetir elementos en un listbox

    Pregunta

  • Buenas tardes,

    Tengo dos listbox en un userform, el primero ya contiene elementos y el segundo se llena con elementos del primer listbox me gustaría saber como hacer para no volver a agregar un elemento que ya se encuentre en el segundo listbox.

    Acá les dejo como agrego los valores a los dos listbox.

    Private Sub CommandButton1_Click()
    ListBox2.AddItem ListBox1.Value
    End Sub
    Private Sub UserForm_Activate()

    ListBox1.AddItem "Codo estándar de 45°"
    ListBox1.AddItem "Codo estándar de 90°"
    ListBox1.AddItem "Ensanchamiento brusco y gradual"
    ListBox1.AddItem "Entradas"
    ListBox1.AddItem "Estrechamiento brusco y gradual"
    ListBox1.AddItem "Salidas"
    ListBox1.AddItem "Válvula de globo"
    ListBox1.AddItem "Válvula de mariposa"
    ListBox1.AddItem "Válvula de pie con filtro (TIPO 1)"
    ListBox1.AddItem "Válvula de pie con filtro (TIPO 2)"
    ListBox1.AddItem "Válvula de retención de disco oscilante (TIPO 1)"
    ListBox1.AddItem "Válvula de retención de disco oscilante (TIPO 2)"
    ListBox1.AddItem "Válvula de retención de obturador ascendente (TIPO 1)"
    ListBox1.AddItem "Válvula de retención de obturador ascendente (TIPO 2)"
    ListBox1.AddItem "Válvula de retención y cierre (Tipo 1)"
    ListBox1.AddItem "Válvula de retención y cierre (Tipo 2)"
    ListBox1.AddItem "Válvula de retención y cierre (Tipo 3)"
    ListBox1.AddItem "Válvula de retención y cierre (Tipo 4)"
    ListBox1.AddItem "Válvula de retención y cierre (Tipo 5)"
    ListBox1.AddItem "Válvula de retención y cierre (Tipo 6)"
    ListBox1.ListIndex = 0
    End Sub

    lunes, 12 de diciembre de 2016 21:38

Respuestas

  • Aqui va la idea:

    If Not ListBox1.SelectedItem Is Nothing Then
     If ListBox2.Items.Contains(ListBox1.SelectedItem.ToString()) Then
      MessageBox.Show("Ya existe")
     Else
      ListBox2.Items.Add(ListBox1.SelectedItem)
     End If
    End If

    martes, 13 de diciembre de 2016 9:47