Ce code permet de mettre des progressBarr dans une listview
Sans utiliser les Imagelist ! Permet ainsi de pouvoir encore y mettre les icones , sans quelles ne soit redimentionner .
For I = 1 To lvw.ListItems.Count
If pb(I).Value < 100 Then
pb(I).Width = lvw.ColumnHeaders(2).Width
pb(I).Value = pb(I).Value + 1
lvw.ListItems(I).ListSubItems(2).Text = pb(I).Value & " %"
' Else
' Unload pb(I) 'Ne pas oublier de Décharger !!
' lvw.ListItems.Clear 'Vide la lvw
End If
Next I
End Sub
ou encore,un subclassing et le tour est joué.il faut etre juste open mind
Ha ! Ecoute ce n'étais la peine de critiquer comme sa pour commencer :p
De plus je n'est pas voulue alourdir le code inutilement ;
tu n'a jusqu'a faire appel a la function ( ReplaceBarre )
Parfois il bon de laisser le code a l'état simple ! Pour un débutant c'est tellement plus simple a comprendre
Mais merci de ta participation .
Y aurait il moyen que tu m'explique le Béaba d'un ListView ?
Tu semble maitriser cela... et moi je m'arrache les cheveux ! lol
D'avance merci !
For I = 1 To lvw.ListItems.Count
If pb(I).Value < 100 Then
pb(I).Width = lvw.ColumnHeaders(2).Width
pb(I).Value = pb(I).Value + 1
lvw.ListItems(I).ListSubItems(2).Text = pb(I).Value & " %"
' Else
' Unload pb(I) 'Ne pas oublier de Décharger !!
' lvw.ListItems.Clear 'Vide la lvw
End If
Next I
End Sub
ou encore,un subclassing et le tour est joué.il faut etre juste open mind
De plus, de nombreuses sources identiques figurent déjà sur Codes-Sources ^^
De plus je n'est pas voulue alourdir le code inutilement ;
tu n'a jusqu'a faire appel a la function ( ReplaceBarre )
Parfois il bon de laisser le code a l'état simple ! Pour un débutant c'est tellement plus simple a comprendre
Mais merci de ta participation .
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.