kelm_by
Messages postés296Date d'inscriptionmardi 9 janvier 2007StatutMembreDernière intervention21 novembre 2008
-
11 oct. 2007 à 23:54
kelm_by
Messages postés296Date d'inscriptionmardi 9 janvier 2007StatutMembreDernière intervention21 novembre 2008
-
12 oct. 2007 à 15:01
salut tous le monde,
j'ai 2 listbox ou il ya des url ce que je veux c'est une solution pour ajouter a list2 un seul url qui n'exsiste pas dans list2 mais qui exsiste dans la liste1 et le suprimer de list1
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 12 oct. 2007 à 08:12
Salut,
Je ne sais pas si j'ai bien compris mais essaie d'adapter ce petiti bout de code. qui n'est rien autre que l'enchainement de deux boucle de parcours de liste.
Private Sub Command1_Click()
Dim i As Integer
Dim StrURL As String
For i = 0 To List1.ListCount - 1
StrURL = List1.List(i)
If Not IsInList2(StrURL) Then
Call List2.AddItem(StrURL)
Call List1.RemoveItem(i)
Exit For
End If
Next
End Sub<hr />
Private Function IsInList2(ByVal StrURL As String) As Boolean
Dim i As Integer
For i = 0 To List2.ListCount - 1
If List2.List(i) = StrURL Then
IsInList2 = True
Exit For
End If
Next
End Function<hr />, ----
[code.aspx?ID=41455 By Renfield]