Discussion :

[bubu92]

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]

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]

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

[bubu92]

Merci Delbeke. Bon apparement ça fonctionne qu'a partir de VB6, tant pis

[Delbeke]

lol, ca fontionnait déjà en vb2 mdr

[bubu92]

Oui heu en fait je parlais du mien qui marche pas , le tiens fontionne, je
l'sait depuis longtemps, mais en fait je voulais partir de rien. N'en parlons plus
et encore merci .