Claiyah
Messages postés580Date d'inscriptionmercredi 20 août 2008StatutMembreDernière intervention20 avril 2010
-
18 avril 2009 à 16:46
Claiyah
Messages postés580Date d'inscriptionmercredi 20 août 2008StatutMembreDernière intervention20 avril 2010
-
18 avril 2009 à 22:40
bonjour tout le monde
j'ai un code avec lequel je peut ajouter un nouveau control dans le form apres le lancement de l'application, le voila:
'declaration général
Dim WithEvents listBoxDynamique As VB.ListBox
'ajouter une listbox
Private Sub add_list(ByVal nomlist)
Set listBoxDynamique = Me.Controls.Add("VB.listBox", nomlist) 'nomlist est le nom du listtbox
'on peut modifer les valeurs ici
listBoxDynamique.Left = 1000
listBoxDynamique.Top = 1000
listBoxDynamique.Width = 1000
listBoxDynamique.Height = 1000
listBoxDynamique.Visible = True
End Sub
'pour appeler la procedure
Private Sub Form_Load()
call add_list(list5)
end sub
*****************************************************
*****************************************************
*****************************************************
apres avoir ajouter la liste j'arrive pas a l'utilisé,
par exemple si je met ce code: list5.additem ("test")
sa me sort l'erreur avant l'exécution du code que la liste n'existe pas
quelqu'un peut m'aider s.v.p
Merci d'avance
Les yeux montrent la force de l'âme
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 18 avril 2009 à 17:47
Ta listbox est dynamique, elle n'existe pas en tant qu'objet au moment de la compilation du code. Elle n'existera que temporairement lors de l'exécution, après qu'elle est été créée.
Tu ne peux donc pas l'appeler directement par le code, il te faut passer par l'endroit ou elle existera, c'est à dire la collection de controles de la form :