Création dynamique d'objets sous VB6

Question

Bonjour à tous !

J'aimerais savoir si qqun sait comment faire pour créer en dynamique des objets sous VB6 : des boutons, des champs textes, des labels, etc.

Je vous remercie, d'avance, de votre aide.

Merci et à bientôt.

cs_Jack · Answer

Salut aanabil

Oui, c'est possible.
Il suffit pour celà de prévoir, à la création, les contrôles que tu veux créer dynamiquement.
Par exemple, tu veux ajouter un Label :
- En mode création, crée un Label original auquel tu mets les propriétés suivantes :
Index = 0   ' Indexation (obligatoire)
Visible = False   ' pour ne pas voir cet original
- Ensuite, en RunTime, pour ajouter un Label, tu fais :
Load Label(1)     ' où 1 est l'index du contrôle
Label(1).Visible = True   ' Autorise affichage
Label(1).Top = ...    ' redéfini sa position
Label(1).Left = ...
Label(1).Width = ...
Label(1).Height = ...

Pour en créer un second, il te suffit de faire pareil, mais avec l'index suivant : Load Label(2) ...

Pour les autres controles, c'est exactement la même chose.
Vala
Jack

lpikachu58 · Answer

Attention quand même avec l'indexation des objet vb gére très mal les piles d'objet alors je sois pas étonné qu'il te fasse des trucs un peu débilles.

Bon chance
@+

Cédric Lemaitre

Viva le révolution Linux!!!!!!!!!!!!!!!

alonsyl · Answer

bonjour,

j'ai justement un pbl d'indexaton !
j'ai alloue des controles dynnamiquement a l'ouverture de ma form2 en fonction d'element que m'avait specifie l'utilisateur en form1.

comment faire s'il change d'avis et desire supprimer 1 controle ?
moi j'aurais aime unloader uniquement le controle specifie et reindexer (increment de -1) ceux qui suivent mais je n'y arrive pas. je n'ai reussi qu'a tout unloader pour tout reunloader a l'exeption du controle concerne mais je trouve ca bcp trop lourd !
commment feriez vous a ma place ?

merci a vous,

alonsyl

cs_Jack · Answer

Salut
Coup de bol que j'aie activ&#233; le mail sur ce post, sinon, depuis 2003 ...

Oui, tu peux faire des  Unload monObjet(monIndex)
Non, on ne peut pas r&#233;indexer les objets
Par contre, tu peux facilement tester si l'objet existe :
If monObjet(monIndex) Is Nothing Then
    ' rien &#224; cet index : je peux refaire un Load
End If
Suffit d'int&#233;grer ce test lorsque tu veux cr&#233;er un nouvel objet afin de boucher les trous.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

alonsyl · Answer

SUPER !!! merci jacquot ...

alonsyl

boudas · Answer

bonjour

j'ai exactement le m&#234;me soucis que celui demand&#233; dans ce post mais je n'arrive pas  trouver pour mettre l'index &#224;  0
peut etre est ce du au fait que j'utilise VB6 sous Excel ?
Et si oui, connaissez vous un moyen de cr&#233;er un controle de facon dynamique via le VB 6 d'Excel ?

merci d'avance pour votre r&#233;ponse

cs_Jack · Answer

ReSalut
... Pas d'indexation possible sous VBA = Excel, uniquement VB6, d&#233;sol&#233;.

Pour d&#233;charger un controle, il suffit de faire Unload monControle(monIndex)
Ensuite, quand tu auras besoin de recharger un nouveau controle, il te suffit de faire ce genre de petite boucle pour tester s'il y a un trou dans ta collection :

Trouv&#233; = 0
For r = 1 To UBound(monControle)
   If monControle(r) Is Nothing Then
      ' Index libre trouv&#233; !
      Trouv&#233; = r
      Exit For
Next r
If Trouv&#233; = 0 Then
   ' Pas trouv&#233; : ajoute &#224; la suite
   Load monControle(UBound(monControle) + 1)
Else
   ' Trou trouv&#233;
   Load monControle(Trouv&#233;)
End If   ' ...

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

aanabil · Answer

Merci à tous !

Aanabil

cs_Jack · Answer

ptdr : je ne sais pas dans quelle galaxie lointaine tu habites, mais sacré décalage horaire : 7 ans !!

Merci de tes remerciements

aanabil · Answer

7 ans !!!!!!!!!!!!!
Désolé. A  bientôt.
Merci encore. C'est quand même bizarre, je n'ai aucun souvenir d'avoir poster ce post en 2003 !!!

cs_Jack · Answer

C'est le décalage horaire du voyage, surement !
lol
Pas de souci.
Bonne prog

Création dynamique d'objets sous VB6

11 réponses

Discussions similaires