Ajouter une ligne dynamiquement à une frame créée dynamiquement [Résolu]
dan93190
- Messages postés
- 33
- Date d'inscription
- mercredi 4 juillet 2007
- Statut
- Membre
- Dernière intervention
- 19 août 2008
- Messages postés
- 33
- Date d'inscription
- mercredi 4 juillet 2007
- Statut
- Membre
- Dernière intervention
- 19 août 2008
A voir également:
- Ajouter une ligne dynamiquement à une frame créée dynamiquement
- Ajout de lignes dans un tableau dynamique a l'aide d'un bouton ✓ - Forum - Javascript / DHTML
- Visual Basic / VB.NET : Ajouter un control dynamiquement (at runtime) - CodeS SourceS - Guide
- Interprète de commandes vbscripts modifiés (ajouter des subs dynamiquement) - Codes sources - Visual Basic / VB.NET (Divers)
- Asp.net - ajouter un usercontrol dynamiquement - Codes sources - ASP / ASP.NET (ASP.Net)
- Ajout de lien dynamique dans le texte - Codes sources - ASP / ASP.NET (Chaînes de caractères)
6 réponses
Meilleure réponse
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
Salut,
Regarde ce code (un peu modifier pour l'exemple)
la ligne s'y affiche bien.
Option Explicit
Private i_ligne As Integer
Private Sub Command1_Click()
i_ligne = i_ligne + 1
Call LoadGroupObject(i_ligne)
End Sub<hr />
Private Sub LoadGroupObject(idx As Integer)
Call Load(Frame1(idx))
With Frame1(idx)
Set .Container = Picture1
.Visible = True
.Top = (idx - 1) * .Height
End With
Call Load(Line7(idx))
With Line7(idx)
Set .Container = Frame1(idx)
.Visible = True
.Y1 = 300
.Y2 = 300
End With
End Sub , ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i€n
Pensez: Réponse acceptée
Regarde ce code (un peu modifier pour l'exemple)
la ligne s'y affiche bien.
Option Explicit
Private i_ligne As Integer
Private Sub Command1_Click()
i_ligne = i_ligne + 1
Call LoadGroupObject(i_ligne)
End Sub<hr />
Private Sub LoadGroupObject(idx As Integer)
Call Load(Frame1(idx))
With Frame1(idx)
Set .Container = Picture1
.Visible = True
.Top = (idx - 1) * .Height
End With
Call Load(Line7(idx))
With Line7(idx)
Set .Container = Frame1(idx)
.Visible = True
.Y1 = 300
.Y2 = 300
End With
End Sub , ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i€n
Pensez: Réponse acceptée
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
191 internautes nous ont dit merci ce mois-ci
- Messages postés
- 228
- Date d'inscription
- mercredi 13 décembre 2000
- Statut
- Membre
- Dernière intervention
- 8 août 2011
J'ai déjà eu un probleme semble avec des frames créés dynamiquement.
En supposant que le Line7 est un type de controle :
dim unctl as control
Dim uneLigne as Line7
For each unctl in frame(tonIndex)
If TypeOf unCtl Is Line7
set uneLigne = unCtl
uneLigne.Visible = true
uneLigne.zorder = 25 'Nombre assez haut pour etre au premier plan
end if
next
ça fonctionne si le contener de ta Line est ton frame.
Voilà
En supposant que le Line7 est un type de controle :
dim unctl as control
Dim uneLigne as Line7
For each unctl in frame(tonIndex)
If TypeOf unCtl Is Line7
set uneLigne = unCtl
uneLigne.Visible = true
uneLigne.zorder = 25 'Nombre assez haut pour etre au premier plan
end if
next
ça fonctionne si le contener de ta Line est ton frame.
Voilà
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
191 internautes nous ont dit merci ce mois-ci
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
Re:
[auteur/DAN93190/1101591.aspx dan93190]: Merci de valider les réponses qui t'ont fait avancer.
@+: Ju£i€n
Pensez: Réponse acceptée
[auteur/DAN93190/1101591.aspx dan93190]: Merci de valider les réponses qui t'ont fait avancer.
@+: Ju£i€n
Pensez: Réponse acceptée