comment détruire tous les objets d'une form

Question

salut

comment puis-je détruire tous les objets présents sur une form d'un coup, sauf un label et un control?
merci

cs_christoni · Answer

Bonjour
Voici une méthode qui utilise le Tag des contrôles :

        'On établit une boucle pour balayer plusieurs fois le formulaire,
        'car un seul balayage ne suffit pas VB en oublie.
        'le nbre de balayage, ici correspond au nombre de contrôles
        'à effacer.
        For compt As Integer = 1 To (Me.Controls.Count - 2)
            For Each contro As Control In Me.Controls
                'A chaque contrôle, que l'on veut garder, on attribue
                'en mode Design, un Tag comme "garder" par exemple.
                'Si le contrôle contrôlé a un Tag différent, il
                'sera effacé.
                If contro.Tag <> "garder" Then
                    contro.Dispose()
                End If
            Next
            'si le nombre de contrôles restant sur le formulaire
            'égale le nbre à conserver, on sort de la boucle.
            If Me.Controls.Count = 2 Then Exit For
        Next
On peut placer ce bout de code dans le bouton conservé.
Bonne journée.

f56bre · Answer

merci pour ta réponse mais je code sous vb6 et la ligne "For Each contro As Control In Me.Controls" bug
ainsi que celle ci : "contro.Dispose()"

cs_eldim · Answer

Bonjour,
essai : 
dim C as object
for each C as in Form1.controls
   set c = nothing ' ou C.delete je sais plus trop en vb6
next

-- Pourquoi faire simple quand on peut faire compliquer  --

Renfield · Answer

tu ne pouras décharger que des controles ajoutés dynamiquement....

pour quelle raison souhaite tu faire cela ? n'y a t'il aucun autre moyen ?

Renfield
Admin CodeS-SourceS- MVP Visual Basic

f56bre · Answer

en fait un test assez compliqué et dépendant de l'heure crée dynamiquement des controls, mais si le test est relancé il va créer des controls de même non et s'il il ne sont pas tous détruit il y aura un bug. La destruction va ne effet etre compromise par le changement d'heure.

Renfield · Answer

............
Unload MonControleChargéDynamiquement ( 11 ) 
Unload MonControleChargéDynamiquement ( 12 ) 
............

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Comment détruire tous les objets d'une form

6 réponses

Votre réponse

Discussions similaires