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)
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)
listbox1.Items.AddRange(ltTab.ToArray)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionA 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 : )