Discussion :

[soso78]

Salut,

J'ai un petit problème sur des contrôles dynamiques.

En fait, je charge sur ma forme un textbox par l'intermédiaire de la commande suivante :

Code :

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

1
2
          intIndex = fldTextZone.Count+1
          Load fldTextZone(intIndex)

Une fois chargé, je donne la possibilité à l'utilisateur de supprimer ce contrôle de son écran, par l'intermédiaire de la commande Unload.

Là aucun problème.

Où ça se gâte, c'est lorsque l'utilisateur recharge ce même contrôle, alors qu'il a été précédemment déchargé, sur sa form, par la même commande que ci-dessus.

Le problème, c'est que j'obtiens alors l'erreur suivante :

Erreur 360 : Objet déjà chargé

Quand j'observe le contrôle avec la fenêtre espion, le contrôle en question n'est effectivement pas chargé en mémoire, mais il ne veut plus rien savoir.

Donc, ou se situe le problème ? Si vous avez des pistes.

[soso78]

Bon, alors, j'ai trouvé l'explication.

Pour obtenir l'indice de plus grand, j'utilisais la fonction Count, mais celle-ci ne fonctionne pas. Il faut employer UBound qui retourne l'indice le plus élevé.

Question subsidiaire : pourquoi utiliser ubound en lieu et place de count ? Quelles sont les différences entre ces 2 fonctions ?

Merci.

[Delbeke]

Ubound renvoie l'indice le plus élevé, il peut manquer des controles depuis le controle n° 0 à controle.count qui lui, donne le nombre d'éléments dans la collection
Suppose qu'il y ait trois controles et que tu supprimes le deuxieme et le premier . ubound retournera 2 et count 1

[soso78]

Ok, c'est clair. C'est donc bien UBound que je dois utiliser.

[LeForestier]

Bonjour,
Le topic est résolu mais j'ajouterai quand même qu'en employant systématiquement Ubound tu risque de te retrouver avec des contrôle avec un index faramineux, je procéderait plutôt avec un petit tableau style...

Code :

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

1
2
3
' dans module du Form
Dim NumC As Integer
Dim T(4) As Boolean

Et dans la forme..(pour load 4 textes de 1 à 4)

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
26
27
28
29
 
'2 boutons et un text Text1(0)
Private Sub Command1_Click()
Dim e As Integer, i As Integer
    e = Text1.UBound + 1
    If e > 4 Then
        'chercher si index libre
        For i = 1 To 4
            If T(i) = False Then Exit For
        Next i
        If i > 4 Then Exit Sub
        e = i
    End If
    Load Text1(e)
    Text1(e).Text = e
    Text1(e).Move 1000, 500 + ((e - 1) * 400), 1000, 400
    Text1(e).Visible = True
    NumC = e
    T(e) = True
End Sub
 
Private Sub Command2_Click()
    Unload Text1(NumC)
    T(NumC) = False
End Sub
 
Private Sub Text1_GotFocus(Index As Integer)
    NumC = Index
End Sub

Les index ne dépasseront pas 4
A+