affichage complet frame dynamique

[philout]

Bonjour le Forum, bonjour à tous,

je suis coincé par un problème d'affichage de frames créés dynamiquement conformément au programme ci-joint.

Mon soucis provient, en cliquant sur le bouton 2, de ce que l'affichage met au premier plan que le dernier frame de la série.

je n'arrive pas à faire afficher tous les frames de la liste: au nombre de 4 dans mon exemple. Seul le 4ième s'affiche en lieu et fait disparaitre derrière le frame affiché jusqu'alors.
je souhaiterai que les 4 s'affichent.

Quelqu'un peut-il m'aider?
Philout

 

[jpb388]

Re : affichage complet frame dynamique

Bonjour à tous
je viens de tester quand je met un chiffre dans la case e3 il me fait bien le nombre de frame demandé ou j'ai mal compris ta question

 

[Tentative]

Re : affichage complet frame dynamique

Bonjour,

Oui, le Userform apparaît avec 4 frames. Mais, si tu cliques sur le bouton "CommandButton2", les 4 frames devraient être remplacés par de nouveaux frames vides.

Par contre, il n'y a que le 4e qui est remplacé.

Si ajoute une pause dans le code du "CommandButton2", telle :

 With fromage
    .Left = 300 + ((compteur2 - 1) * 172)
    .Top = 78
    .Width = 162
    .Height = 350
    .Caption = "produit " & Chr(64 + compteur2)
    End With
  msgbox " pause"  ' pause qui permet l'affichage des frames
    Next

Là, les 4 nouveaux frames sont bien là. Sans cette pause, seulement le 4e apparaît.

J'ai cherché, mais je ne cerne pas le problème du code de Philout.


T.

 

[jpb388]

Re : affichage complet frame dynamique

re
as tu essayé en mettant do.events à la du msg ?

 

[Tentative]

Re : affichage complet frame dynamique

Bonjour à tous,

Effectivement jpb388, ajouter DoEvents avant le Next semble résoudre le problème du code de Philout.

 With fromage
    .Left = 300 + ((compteur2 - 1) * 172)
    .Top = 78
    .Width = 162
    .Height = 350
    .Caption = "produit " & Chr(64 + compteur2)
    End With
    DoEvents  '  <<<<< ajouté ici
    Next

Philout pourra ainsi avancer dans son projet. 🙂

Merci

T.