Composant dynamiques

Résolu
rdechap Messages postés 25 Date d'inscription lundi 10 février 2003 Statut Membre Dernière intervention 4 juillet 2008 - 14 sept. 2006 à 10:03
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 14 sept. 2006 à 16:36
Bonjour,

dans une feuille j'ai une FRAME qui contient une zone de texte.
je veux dupliquer cet ensemble....
la copie avec LOAD de la frame ce passe bien mais la zone de texte n'est jamais dupliquée !!!!
qq autrait-il une solution ???

Merci

6 réponses

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
14 sept. 2006 à 10:12
Re,


Bon cette fois ci voici un bout de code qui duplique Frame et le textBox vu que le chargement de Frame1 ne suffit pas il faut aussi charge le textbox et le mettre dans le nouveau frame Chargé par sa proporiété Container


=> Le code suivant le fait simplement pour une frame (pas de boucle)
Encore désolé pour le premier post








Load Frame1(1) 
Frame1(1).Left = Frame1(0).Left + Frame1(0).Width 
Frame1(1).Visible = True 

Load Text1(1) 
Set Text1(1).Container = Frame1(1) 
Text1(1).Left = Text1(0).Left 
Text1(1).Top = Text1(0).Top 
Text1(1).Visible = True 
 







<small> Coloration syntaxique automatique [AFCK]</small>

       









 






@+,   Ju£i?n
3
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
14 sept. 2006 à 10:07
Salut,
Peu etre as tu fait une petite erreur qq part    (il aurait été bon de mettre le bout de code qui charge les objets)
Enfin Bref essai ceci

Private Sub Form_Load() 
Dim i As Integer 
For i =  1 To 3 
    'Chargement du textbox
    Call  Load (Text1(i)) 
    With Text1(i) 
        'Le place dans la Frame
        .Container  = Frame1 
        'Placement de l'objet
        .Top = Text1(0).Top + i * Text1(0).Height 
        .Left = Text1(0).Left 
        'Rend l'objet visible
        .Visible = True 
    End With 
Next 
End Sub 

 

<small> Coloration syntaxique automatique [AFCK]</small>
       

@+,   Ju£i?n
0
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
14 sept. 2006 à 10:08
Re


OUps j'ai répondu tout a coté.... Je me suis juste concentre sur la duplication des textbox dans la frame (=> ce qui n'est en rien ton problème ) je m'en excuse.






@+,   Ju£i?n
0
rdechap Messages postés 25 Date d'inscription lundi 10 février 2003 Statut Membre Dernière intervention 4 juillet 2008
14 sept. 2006 à 10:41
Super... merci cela fonctionne tres bien...Encore merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
14 sept. 2006 à 11:13
Re,
Mais de rien.

Si tu estimes que ton problème est résolu, penses à appuyer sur réponse acceptée sur le ou les posts qui ont pu t'aider.

@+,   Ju£i?n
0
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
14 sept. 2006 à 16:36
c'est fait... (no comment)
0
Rejoignez-nous