Pb sur Unload de controles ajoutés dynamiquementRésolu

Question

Bonjour &#224; tous,

Voil&#224; mon pb : 
- Je cr&#233;&#233; d'abord dynamiquement des Tabstrip.
- Je cr&#233;&#233; ensuite dynamiquement des CheckBox sur chaque Tabstrip cr&#233;&#233;.

J'arrive &#224; Unloader les Tabstrip mais je n'arrive pas &#224; Unloader les CheckBox cr&#233;&#233;s sur chaque Tabstrip.
L'index de chacun des CheckBox ne se suivent pas car je les cr&#233;&#233;e suivant une combinaison.

J'ai essay&#233; &#231;a mais &#231;a ne marche pas :

Dim CheckSupp As CheckBox

    For Each CheckSupp In MonTabstrip(IndexduTabstrip)
     Unload CheckSupp
    Next CheckSupp

Si qqun pouvait m'aider parce que l&#224; je s&#232;che royal.

Merci d'avance

cs_eldim · Accepted Answer

ah mais si c que tu as r&#233;ussi

et c'est ce que je te disais tout &#224; l'heure
d&#232;s lors que tu supprime un control l'index de tous les controls change
donc &#224; chaque fois que tu supprime un control il te faut refaire une r&#233;cup&#233;ration d'index

cs_eldim · Answer

Bonjour &#224; toi,

(Je suis mort d'avoir &#233;t&#233; autant de fois plagi&#233;....)

pour supprimer un control tu fais un dispose

nb:l'index de chaque control change &#224; chaque fois que tu en supprime 1

A+

yohan_titi · Answer

Qu'est-ce que tu entends par "faire un dispose" ?, j'comprends pas trop.

Merci

yohan_titi · Answer

pr&#233;cision : je suis en VB6 (en non en .net)

cs_eldim · Answer

Ah pardon

D&#233;sol&#233; je croyais que t'&#233;tait en VB.NET

Ben essai avec un set NomControl=nothing
(non test&#233;)

yohan_titi · Answer

Tu pouvais pas savoir, j'ai oubli&#233; de le pr&#233;ciser.

J'essayer mais &#231;a ne marche toujours pas.
Il me met le msg "Erreur d'ex&#233;cution 438: l'objet ne g&#232;re pas cette propri&#233;t&#233; ou cette m&#233;thode" sur la ligne :   

For Each CheckSupp In MonTabstrip(IndexduTabstrip)

PCPT · Answer

salut,
eldim ->l'indice change? bah j'en apprend une bien bonne.
il ne manquerait plus que &#231;&#224;......
l'indice ne change pas, fort heureusement.

yohan -> ton erreur est due au fait que tu n'as pas que des CheckBox dynamiques, et que tu essaies de d&#233;charger TOUS les contr&#244;les.
donc avant de d&#233;charger, tu v&#233;rifies "TypeOf". si c'est bien un checkbox (et je te souhaite qu'il n'y ai pas aussi des checkbox non-dynamiques) alors tu peux d&#233;charger.
PCPT

cs_eldim · Answer

Salut pcpt !

Ben en tout cas .NET l'indice change... j'en ai donc d&#233;duit qu'il changeait aussi en VB6.

Et je te garanti qu'en VB.NET il change car &#231;a m'a pos&#233; deux jours de r&#233;flexion acharn&#233; pour ma suppression de combobox

PCPT · Answer

eldim -> je ne connais pas .net, et comme le probl&#232;me est en VB6....
cela dit, en VB6, il m'arrive tr&#232;s fr&#233;quemment d'utiliser des contr&#244;les index&#233;s, et de les rep&#233;rer en sachant que le (2) est utilis&#233; tout &#224; fait diff&#233;remment du (3).
en VB6, &#231;&#224; ne change pas, mais il me parra&#238;t assez inconcevable qu'il faille g&#233;rer le code plus ou moins dynamiquement en sachant que le code du (2) peut donc &#234;tre faux....
(mais je te crois sur parole )
PCPT

cs_eldim · Answer

Il n'y a pas de faux ou de vrai je vois pas vraiment le rapport...

M'enfin y a sans doute des choses qui m'&#233;chappent vu que je suis un autodidacte
(Si tu te met au .net je te dirai ce que j'ai fait et tu me diras ce que t'en pense..)

yohan_titi · Answer

Merci &#224; tous les 2, 

Ne vous fritez pas pour si peu, &#231;a m'embetterai d'&#234;tre &#224; l'origine d'un conflit :)

PCPT, malheureusement j'ai quand m&#234;me un CheckBox non dynamique (qui a l'index 0), mais voil&#224; ce que j'ai fait et qui a l'air de fonctionner :

Dim CheckSupp As CheckBox

    For Each CheckSupp In Me.Check1
    If CheckSupp.Index <> 0 Then
     Unload CheckSupp
    End If

PCPT · Answer

quand je parle de "faux", c'est &#224; dire....
admettons (tr&#232;s  b&#234;tement) 3 CommandButton
Cmd(0)     Cmd(1)     Cmd(2)

0 => msgbox time
1=> grise le 0
2=> unload

je supprime le 1 en cours d'execution, je consid&#232;re que mon cmd(2) est donc un faux....., puisque de "quitter", c'est finalement lui qui va griser le cmd(0)... (d'apr&#232;s ce que tu dis en .Net) et &#231;&#224;, &#231;&#224; me parra&#238;t un peu tr&#232;s merdique....
non?

ce probl&#232;me ne se pr&#233;sente pas en VB6 en tout cas

(.net ... j'y pense oui, mais pas pour cette ann&#233;e)
PCPT

cs_eldim · Answer

Non en fait non
En .NET la proc&#233;dure est li&#233;e au control par un ajout d'&#233;v&#233;nement sur celui-ci...

tu n'as pas du me comprendre mais c pas grave

je te disais simplement que si tu enl&#232;ve un control d'un formulaire l'index de chaque control du formulaire change exemple :
with FRM
   .control(1).name = "Toto"
   .control(2).name = "Bidule"
   .control(3).name = "Machin"
   .control(1).delete
   .control(1).name = "Bidule"
...
end with

et quand y a plus d'une centaine de controls &#224; g&#233;rer &#231;a ne se passe pas forc&#233;ment dans l'ordre que tu le souhaite...

voila le probl&#232;me que j'avais eu, et ce que je pensais qu'il y avait ici

Et les proc&#233;dure sont ind&#233;pendantes de l'indice d'un control puissequ'un control n'est qu'une class... lol

PCPT · Answer

ok    (je sens que je vais rester sous VB6 encore quelques temps ...)

cs_eldim · Answer

C'est comme tu veux m'enfin y a des choses qui se font beaucoup plus facillement et plus rapidement en VB NET plutot qu'en VB 6...

Et... o pi j'suis pas vendeur lol
A+

Pb sur Unload de controles ajoutés dynamiquement

15 réponses

Discussions similaires