[VB6] Créer dynamiquement des objets?

Créer dynamiquement des objets? [VB6] - Programmation

Marsh Posté le 20-12-2001 à 09:06:13    

salut,
 
je voudrais pouvoir creer dynamiquement des textboxes sur ma feuille.
par exemple j'entre "5" dans un champ et hop j'ai 5 textboxes qui apparaissent alignées les unes en dessous des autres dans ma fenetre...
 
merci.

Reply

Marsh Posté le 20-12-2001 à 09:06:13   

Reply

Marsh Posté le 20-12-2001 à 09:09:52    

Reply

Marsh Posté le 20-12-2001 à 09:13:03    

yep,
merci,
j'avais la flemme! :)

Reply

Marsh Posté le 20-12-2001 à 10:32:36    

okay,
c'est bien joli, mais maintenant que j'ai mes TextBoxes créées dynamiquement, comment j'ai accès aux Sub d'événements (genre Change, Click, KeyDown) ?
 
re-merci! :)

Reply

Marsh Posté le 20-12-2001 à 11:06:04    

Tu creer un groupe de controle ... Comme ca tu gerer l'index.
Cela permet que les callback sont identique pour tous les object que tu crés

Reply

Marsh Posté le 20-12-2001 à 11:11:10    

heuu ouais mais.. j'ai pas capiché là!
c'est quoi un groupe de controles, callback? :cry:
 
t'as pas un exemple? :)

Reply

Marsh Posté le 20-12-2001 à 11:59:41    

Pour gérer les différents évenements tu n'auras aucun probleme, car tu auras une propriété supplémentaire qui va apparaitre sur l'évenement : Index.
Un select case fera l'affaire.

Reply

Marsh Posté le 20-12-2001 à 12:26:43    

ouais mais comment je déclare ça?
j'ai une variable type et dimensionnelle de surcroit.
étant donnée que l'objet n'existe pas, je travaille donc avec des variables qui contiennent les noms de mes objets...
 
Private Sub tLabel.slblVarName_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 
ne passe pas

Reply

Marsh Posté le 20-12-2001 à 15:45:52    

en tous cas je confirma que la derniere solution donnee dans mon post est tres efficasse !!!


---------------
Ca marche pas sauf des fois ........
Reply

Marsh Posté le 20-12-2001 à 20:49:45    

celle de KarLKoX ?

Reply

Marsh Posté le 20-12-2001 à 20:49:45   

Reply

Marsh Posté le 20-12-2001 à 23:51:32    

celle la :
 
 
Me.Controls.Add "VB.CommandButton", "Test"
   Me!Test.Caption = "Bouton Dynamique"
   Me!Test.Left = 100
   Me!Test.Top = 100
   Me!Test.Visible = True
 
tu mets dans une boucle et yop  :bounce: plein de boutons tout partout
 
par contre dans la boucle il faut faire :
 
for i=0 to 1000
   Me.Controls.Add "VB.CommandButton", "Test" & i
   Me!Test.Caption = "Bouton Dynamique" & i
   Me!Test.Left = 100
   Me!Test.Top = 100 * i
   Me!Test.Visible = True
next
 
sinon touts les boutons ont le meme nom => erreur
et il faut aussi gerer les positions sinon touts les boutons st superposes !!!


---------------
Ca marche pas sauf des fois ........
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed