juanolas
16 de Febrero del 2004

Hola a todos-as ,quisiera que alguien me dijese cual es la sintaxis para eliminar un item especifico de un combo que ya se encuentra cargado con una lista de por ejemplo de cindo items ,lo que quiero hacer es realizar una comprobacion y segun el resultado eliminar un combo en cuestion dejando intacto lo otros .
Muchas gracias por su atencion

sdemingo
16 de Febrero del 2004

Private Sub Command1_Click()

Dim i As Integer

For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then
Combo1.RemoveItem (i)
Exit For
End If
Next i
Combo1.Refresh
Combo1.Text = Combo1.List(0)

End Sub

Private Sub Form_Load()

Combo1.AddItem "Elemento 1"
Combo1.AddItem "Elemento 2"
Combo1.AddItem "Elemento 3"
Combo1.AddItem "Elemento 4"
Combo1.AddItem "Elemento 5"
Combo1.Text = Combo1.List(0)

End Sub

juanolas
16 de Febrero del 2004

OK, muchas gracias ,justo lo que queria