Discussion :

[Troopers]

Salut!

Je charge des checkbox et des labels sur un SSTab
Les labels correspondent a des références que je récupère dans une base de données en fonction d'un test que l'utilisateur sélectionne.

Lorsque l'utilisateur change de test, je dois décharger les labels et chckbox du test précedent pour charger ceux du nouveau test

voici mon code pour le déchargement

Code :

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

1
2
3
4
5
6
 
lNbControl = chkReference.Count
For lIndex = 1 To lNbControl - 1
      Unload chkReference(lIndex)
      Unload lblReference(lIndex)
Next lIndex

dès le premier unload j'ai l'erreur: 365 Impossible de décharger dans ce contexte

quelqu'un saurait-il pourquoi? :

[KIKI_94]

Salut

Est ce qu'il y a une action sur le contrôle ?
Est ce que ta feuille se charge ?
ou tu fais un clic sur un contrôle ayant une action directe sur un événement d'un de tes contrôles ?

Il faut absolument que tron contrôle soit "isolé" si tu veux le décharger.

@+

[Nightfall]

Description de l'erreur dans MSDN :

http://msdn.microsoft.com/library/de...unloadhere.asp

J'espère que t'y trouveras la cause de ton problème.

[Troopers]

Voici le code complet :

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
30
31
32
33
 
Private Sub lstTest_Click()
Dim lReference() As clsReference
Dim lNbControl As Long
Dim lIndex As Long
 
    If lstTest.ListIndex <> -1 Then
        Set pTest = Nothing
        Set pTest = New clsTest
        pTest.NoTestPlanifie = lstTest.ItemData(lstTest.ListIndex)
        pTest.Refresh
        'récupération des références du test pour le jour sélectionné
        '========================================
        lNbControl = chkReference.Count
        For lIndex = 1 To lNbControl - 1
            Unload chkReference(lIndex)
            Unload lblReference(lIndex)
        Next lIndex
 
        lReference() = pTest.GetReference
        If IsDim(lReference) Then
            For lIndex = 1 To UBound(lReference)
                Load chkReference(lIndex)
                Load lblReference(lIndex)
                chkReference(lIndex).Top = chkReference(0).Top + (400 * (lIndex - 1))
                lblReference(lIndex).Top = lblReference(0).Top + (400 * (lIndex - 1))
                lblReference(lIndex).Caption = lReference(lIndex).Intitule
                chkReference(lIndex).Visible = True
                lblReference(lIndex).Visible = True
            Next lIndex
        End If
    End If
End Sub

[Troopers]

Je comprend pas pourquoi il m'envoie promener!!!

[Troopers]

D'après l'aide faut que je change d'évènement
mais quesque je peux utiliser à part le click de ma combobox:lstTest

[KIKI_94]

Vise le lien de NightFall, il est tout à fait vrai que tu ne peux décharger les contrôles sur certains événements mais si ils n'appartiennent pas à ton contrôle !

[Nightfall]

Copie-colle le code dans le clic d'un bouton, pour voir s'il dit la même chose, comme ça tu seras fixé ...

[Troopers]

C'est trop trop chiant comme règle....

bon finalement j'ai fais autrement

Je les rends invisible au lieu de les décharger

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
 
If lNbControl < chkReference.Count Then lNbControl = chkReference.Count
        For lIndex = 1 To lNbControl - 1
            chkReference(lIndex).Visible = False
            lblReference(lIndex).Visible = False
        Next lIndex
        lReference() = pTest.GetReference
        If IsDim(lReference) Then
            For lIndex = 1 To UBound(lReference)
                If lIndex > lNbControl - 1 Then
                    Load chkReference(lIndex)
                    Load lblReference(lIndex)
                End If
                chkReference(lIndex).Top = chkReference(0).Top + (400 * (lIndex - 1))
                lblReference(lIndex).Top = lblReference(0).Top + (400 * (lIndex - 1))
                lblReference(lIndex).Caption = lReference(lIndex).Intitule
                chkReference(lIndex).Visible = True
                lblReference(lIndex).Visible = True
            Next lIndex
        End If