Dim L As Integer = 0 Dim ltTab as List(Of Integer)=New List(Of Integer) For m = 0 To ListBox2.Items.Count - 2 If ListBox2.Items(m) = ListBox2.Items(m - 1) Then L+=1 Else ltTab.Add(L) L = 0 End If Next ltTab.Add(L) ListBox3.AddRange(ltTab.ToArray)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
115 internautes nous ont dit merci ce mois-ci
Dim ltTab as list(of Integer)=new list(of Integer) For i = 1 To 100000 ltTab.Add (i) Next ListBox1.Items.AddRange(ltTab.ToArray) Dim ltTab2 as list(of Integer)=new list(of Integer) Dim lNb As Integer=0 For i As Integer = 0 To ltTab.Count - 1 If Prem.Contains(ltTab(i)) Then lNb = lNb + 1 End If ltTab2.Add(lNb) Next ListBox2.Items.AddRange(ltTab2.ToArray) lNb=0 Dim ltTab3 as list(of Integer)=new list(of Integer) For i as Integer = 1 To ltTab2.Count - 1 If ltTab2(i) = ltTab2(i - 1) Then lNb+=1 Else ltTab3.Add(i) lNb=0 End If Next ListBox3.Items.AddRange(ltTab3)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
115 internautes nous ont dit merci ce mois-ci
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
115 internautes nous ont dit merci ce mois-ci
A la place d'utiliser Add dans les cas d'ajouts massif, préférer AddRange
Préférer utiliser List(Of T) à la place d'une ArrayList
- A la place d'utiliser Add dans les cas d'ajouts massif, préférer AddRange
- Préférer utiliser List(Of T) à la place d'une ArrayList
- Eviter les DoEvents (.NET surtout), en règle général, c'est car on s'est trompé quelque part, et surtout, c'est très chronophage.
- Donnes des noms explicites à tes variables
- Eviter les instructions multiples su une ligne (séparés par des : )
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.