probleme avec new listbox

**bubu92** · 07/11/2006, 13h27

Bonjour a tous,
j'avais envi de creer mes objets pendant l'execution du programme mais
apparement je m'y prends mal

Je demarre un nouveau projet et j'ai donc qu'une form et rien d'autre.
J'ai mis un bouton et ça dedans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim toto As New ListBox
 
toto.Visible = True

et en retour j'ai ceci :

Invalid use of new keyword

?

J'utilise VB5.

**bubu92** · 07/11/2006, 23h41

Bon, j'avais trouvé un bout d'code bien sympas mais ça me genere un
autre message d'erreur...decidement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim ctlName As Control
 
Set ctlName = Form1.Controls.Add("VB.TextBox", "Text1", Form1)
 
ctlName.Visible = True

Object doesn't support this property or methode

Je fini par me d'mander si c'est possible sous vb5...

**Delbeke** · 08/11/2006, 04h29

Il y a une demi solution
tu poses sur ta feuille un composant que veux avoir, tu lui donne dans la propriété index la valeur 0.
A partir de la, ti*u peux ajouter autant de composant que tu veux pour ce type
Exemple : un TextBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For iPnt =1 ro 5
 AddTextBox iPnt
next

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub AddTextBox(NumeroIndex as integer)
    Load Text1(NumeroIndex)
  Text1(numeroIndex).move Text1(numeroIndex-1).left,Text1(numeroIndex-1).Top+Text1(numeroIndex-1).Height
  Text1(numeroIndex-1).Visible=true
end sub