Soyez le premier à donner votre avis sur cette source.
Snippet vu 16 010 fois - Téléchargée 61 fois
For I = 0 To List1.ListCount - 1 If List1.List(I) = List1.List(I + 1)And List1.List(I) <> "" Then List1.RemoveItem (I) I = I - 1 End If Next
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.
dans Visual Basic / VB.NET
18 déc. 2010 à 18:58
Private Sub SupDblLstListe()
For i = 0 To LstListe.ListCount - 1
If i < LstListe.ListCount - 1 Then
If LstListe.List(i) = LstListe.List(i + 1) Then
LstListe.RemoveItem (i)
i = i - 1
End If
End If
Next
End Sub
20 déc. 2007 à 07:32
4 avril 2006 à 17:03
j'ai une erreur àl'execution du type Index du tableau de propriétés incorrect (erreur 381)
qqun a déjà eu ce problème
merci c'est urgent
10 févr. 2006 à 09:26
5 févr. 2002 à 09:02
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.