Créer dynamiquement des objets? [VB6] - Programmation
Marsh Posté le 20-12-2001 à 09:09:52
Faut rechercher des fois
http://forum.hardware.fr/forum2.ph [...] &owntopic=
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!
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
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?
t'as pas un exemple?
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.
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
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 !!!
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 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 !!!
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.