Discussion :

[BM42]

Bonjour a tous

Je voudrais redéfinir les index de controles insérés dynamiquement apres une suppression de controle.
Pour cela j'utilise le bout de code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Unload F_0.pict(II)
Unload F_0.Text_Pict(II)
For II = II + 1 To F_0.pict.UBound
F_0.pict(II).Index = II - 1
F_0.Text_Pict(II).Index = II - 1
F_0.Text_Pict(II).Text = II - 1
Next

Mais j'ais le message d'erreur suivant :

Erreur de compilation :
Impossible d'affecter à une propriété en lecture seule

Si quelqu'un a une idée sur ce qui cloche.
Par avance merci

BM42

[ProgElecT]

Ton message d'erreur étant logique car

Property Index As Integer
Lecture seule

Le principe, ne pas forcement supprimer l’index (sauf si N°index = Ubound-1)
Decallage par copie de toutes les infos contrôles depuis le N° index a supprimé du contrôle le precedant, puis supprimé le dernier, car il viens d'être recopier sur l'avant dernier.
Dans une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For x = N_IndexAsupprimer To (UBound(pict) - 2)
 F_O.pict(x).Move F_O.pict(x + 1).Left, F_O.pict(x + 1).Top, _
                  F_O.pict(x + 1).Width, F_O.pict(x + 1).Height
 F_O.pict(x).Picture = F_O.pict(x + 1).Image
 'Idem pour le F_0.Text_Pict
Next x
'Puis suppression des contrôles du dernier index
Unload F_0.pict(UBound(pict) - 1)
Unload F_0.Text_Pict(UBound(pict) - 1)

Moi je me suis compris a la relecture, et toi BM42

[BM42]

Bonjour ProElect

et merci pour l'info.
Je vais essayer et te tiens au courant.

A+

[BM42]

Re

et re merci tout est OK

A+