Copier coller une Frame avec un Boucle

cs_Marcial Messages postés 57 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 31 juillet 2008 - 9 juil. 2003 à 13:21
cs_Marcial Messages postés 57 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 31 juillet 2008 - 9 juil. 2003 à 20:38
Bonjour a tous,
je débute dans le domaine et je voudrais savoir si l'un d'entre vous aurais la solution a mon petit problème.

J'aurais besoin copier puis de coller des Frames et les controles qu'elles contiennent les unes en dessous des autres en leurs attribuant des noms différents.

Précision:
j'ai l'intention ensuite d'intégrer cette fonction dans une boucle afin de copier et coller ces Frames un certain nombre de fois en fonction d'un nombre contenus dans un variable.
J'ai joint une image montrnat a peu près ce que je désire obtenir.

1 réponse

cs_Marcial Messages postés 57 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 31 juillet 2008
9 juil. 2003 à 20:38
Eureka !!!
J'ai trouver...

Voici la solution:

Creer une Form, ajouter une Frame et metter des controles dans cette Frame. Dans le cas présent 2 TextBox et 1 ComboBox.


For i = 1 To NChamp - 1 Step 1
Load Frm1(i)
Frm1(i).Left = 120
Frm1(i).Top = Frm1(i - 1).Top &#43 600
Frm1(i).Visible = True
Load Text1(i)
Load Combo1(i)
Load Text2(i)
Set Text1(i).Container = Frm1(i)
Set Text2(i).Container = Frm1(i)
Set Combo1(i).Container = Frm1(i)
Text1(i).Visible = True
Text2(i).Visible = True
Combo1(i).Visible = True
Next i



Frm1 = Une Frame de hauteur 600
NChamp= Un nombre

Il ne faut pas oublier d'indexer la Frame et tout les controles qui s'y trouve.

Je vais de ce pas ajouter une source complète et fonctionnel.

                                    .Marcial.

_____________________________________________

Le plus grand des défaut de l'homme
c'est de toujours pointer un doigt accusateur...
Mais jaimas devant un miroir...
0
Rejoignez-nous