Dim i, initnb As Integer
If f_nblabels > value And value >= 0 Then 'si l'on doit supprimer des colonnes
Dim idx As Integer = Me.columns.count - 1 'on récupère l'index de la dernière colonne
initnb = f_nblabels - value 'on compte le nombre de colonnes à supprimer
While (initnb > 0 And Me.columns.count > 0) 'si le nombre de colonnes est supérieur à 0
Me.columns.removeat(idx) 'supprimer la colonne
initnb -= 1 'nombre de colonnes restantes
idx -= 1 'on prend l'index de la colonne précédente
End While
f_nblabels = value 'on modifie la valeur de la propriété même
Me.invalidate()
ElseIf f_nblabels < value And value >= 0 Then 'si l'on doit ajouter des colonnes
initnb = value - f_nblabels 'on compte le nombre de colonnes à ajouter
For i = 1 To initnb 'pour chaque colonne à ajouter
columns.add(New columnheader()) 'ajout de la colonne
Next
f_nblabels = value 'on modifie la valeur de la propriété même
Me.invalidate()
End If
Partager