Nettoyage d'une MSFlexGrid

**auguste19** · 19/11/2010, 16h37

Bonjour,mon environnement de développement est VB6 sous XP familial

J'ai besoin de remplir et de nettoyer une MSFlexGrid plusieurs fois de suite en réinitialisant l'index des "row" à chaque remplissage.

La méthode RemoveItem supprime les rangs. Mais leur index est conservé jusqu'au 9ème rang de façon cachée, de telle sorte que l'ajout de nouveaux rangs ne se fera qu'à partir du 10ème rang.

Les méthodes Clear et ClearStructure ne changent rien au problème.

Ci-dessous un bout de code pour tester ce phénomène que je ne comprends pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
---------------------------
Private Sub Form_Load()
Dim r As Integer
For r = 1 To 30
MSHFlexGrid1.AddItem r
Next
MSHFlexGrid1.RemoveItem 1
End Sub
 
Private Sub Command1_Click()
Dim r As Integer
'MSHFlexGrid1.Clear
'MSHFlexGrid1.ClearStructure
For r = 30 To 2 Step -1
MSHFlexGrid1.RemoveItem r
Next
End Sub
 
Private Sub Command2_Click()
Dim r As Integer
For r = 2 To 30
MSHFlexGrid1.AddItem r & " new"
Next
End Sub

**OhMonBato** · 19/11/2010, 16h52

Bonjour,

je ne comprends pas vraiment ton problème, avec le code que tu donnes tout se passe bien. Command1 efface toutes les lignes sauf la 1, puis Command2 m'ajoute bien des lignes de "2 new" à "30 new"

**auguste19** · 19/11/2010, 18h01

Envoyé par OhMonBato

Bonjour,
Command2 m'ajoute bien des lignes de "2 new" à "30 new"

Merci d'avoir répondu, mais je suis de plus en plus perplexe :

Avec ce code, Command2 m'ajoute des lignes de "10 new" à "30 new" !
(Il s'agit d'un programme test et il n'y a rien d'autre que ce que j'ai posté...)

Par ailleurs j'ai déjà pas mal programmé avec l'objet MSHFlexGrid1 et tout se passe normalement, sauf ce bug que je n'arrive pas à contourner.
Je ne vois vraiment pas d'où peut venir la différence entre nos deux résultats !!!

**auguste19** · 19/11/2010, 18h33

Petite précision :

Quand j'ajoute : "MsgBox MSHFlexGrid1.Rows" à la fin de "Command2_Click" j'obtiens "31".

J'en déduis donc que tous les rangs ajoutés sont potentiellement présents, mais que les 9 premiers ne s'affichent pas.

Je sais que ça peut paraitre invraisemblable, mais c'est que je constate à chaque fois (j'ai refais plusieurs fois la manip dans le vrai programme et dans ce bout d'essai)