praetoriano
26 de Enero del 2004

El problema que os quiero contar es el siguiente:
Estoy haciendo un programa que se puedan introducir elementos en listbox y combobox y despues eliminarlos. Pero ahi viene el problema, al eliminarlos, quiero que cuando seleccione un elemento en cualquier lado(es decir, en listbox o combo) se borren al misma vez en los dos sitios y el mismo elemento. me gustaria mucho que me ayudaseis. Lo necesito para mañana.Graicas

en?
26 de Enero del 2004

esta es una manera, espero que te sirva

Private Sub EliminarElemento(ByVal Elemento As String, ByVal pControl As Control)
Dim Cont As Integer

For Cont = 1 To Combo1.ListCount
If Trim(pControl.List(Cont)) = Trim(Elemento) Then
pControl.RemoveItem Cont
Exit For 'no seguir buscando si se sabe que cada valor és único en la lista.
End If
Next
End Sub


'para eliminar del combo el seleccionado en List1:
Private Sub Command1_Click()
Call EliminarElemento(List1.List(List1.ListIndex), Combo1)
List1.RemoveItem List1.ListIndex
End Sub

'y este otro lo contrario:
Private Sub Command2_Click()
Call EliminarElemento(Combo1.List(Combo1.ListIndex), List1)
Combo1.RemoveItem Combo1.ListIndex
End Sub

en?
26 de Enero del 2004

perdona!!!, me he dispistado:

verás que la instrucción del For que está mal, sustituye el "combo1" tal que:

For Cont = 1 To pControl.ListCount

[lo siento]