A voir également:
- Composant dynamique
- Créer des composants dynamiquement - Conseils pratiques - Delphi
- Exemple de creation de composants dynamique et de gestionnaires d'evenements - Codes sources - Visual Basic / VB.NET (VB.NET)
- Equations différentielles et composants dynamiques - Codes sources - Delphi / Pascal (Composants)
- Creer, coder et sauvegarder des composants dynamiquement. - Codes sources - Delphi / Pascal (Divers)
- Composant dynamique : comment coder pour un compos non encore créé - Codes sources - Delphi / Pascal (Trucs & Astuces)
6 réponses
jrivet
- Messages postés
- 7393
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
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
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
jrivet
- Messages postés
- 7393
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
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
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
jrivet
- Messages postés
- 7393
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
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
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
rdechap
- Messages postés
- 25
- Date d'inscription
- lundi 10 février 2003
- Statut
- Membre
- Dernière intervention
- 4 juillet 2008
Super... merci cela fonctionne tres bien...Encore merci
