Discussion :

[Rychi]

bonjour.

je voudrais savoir s'il est possible de , pendant l'execution , de creer n'importe quel controle?

et si oui, par quelle methode?
avec les mots cle : DIM SET NEW ou ac create object()?


pour exemle, je voudrais creer un objet Inet ....

j'active le composant inet ( internet transfer),
en utilisant :

Code :

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

1
2
3
 
dim ctl as inet
set ctl=createobjeect("inet")

j'ai une erreur

et lorsque je fais :

Code :

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

1
2
3
 
dim ctl as inet
set ctl=new ...

je ne trouve pas mon "inet"


pouvez vous m'aider ?? merci

[AlainTech]

Juste une question (qui est, un peu, contourner la réponse).

Pourquoi vouloir créer le contrôle à l'exécution?

[Rychi]

tout simplement, car dans mon programme, je dispose de ce controle inet, mais je ne l'utilise qu'une fois.

donc c'est pour ca que je souhaiterais le creer uniquement quand j'en ai besoin !!

et puis aussi histoire de culture generale ..

[zazaraignée]

Salut

Il y a une rubrique dans la FAQ qui traite de la question.
http://vb.developpez.com/faq/?page=Form#ctl_dynamique

[AlainTech]

Pour les contrôles classiques de VB(a) pas de problème.

Ce que veut Rychi, c'est utiliser Inet (de msinet.ocx) et on ne sait pas comment le nommer dans la méthode add.

[zazaraignée]

Zut! Moi qui croyais avoir une réponse intelligente! Désolée!

[Rychi]

re_bonjour.


bon, en essayant plusieur fois, j'ai trouve la soluce :

j'ai essayer :

Code :

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

1
2
 
Me.Controls.Add("inetctlsobjects.inet", "moninet")

ou inetctlsobjects est le nom de la "librairie".

il m'a sorti un message d'erreur en me donnant la reponse :

Code :

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

1
2
 
Me.Controls.Add("inetctls.inet.1", "moninet")

donc, ce probleme est resolu, maintenant, je voudrais savoir s'il est possible de le detruire apres s'en etre servi?

est ce que je fais une boucles dans les controles delaform, et que je le decharge avec unload ??

[Rychi]

c'est encore moi.

bon, j'ai trouver les reponses a mes questions :

voila comment faire, de maniere generale, pour charger n'importe quel controle, sans avoir créer d'instance de ce controle sur la form, puis le decharger :


tout d'abord, allez dans les options du projet, dans l'onglet "creer", decocher la case "supprimer les informations relatives aux controles activX inutilises"

1) dans projet/composants, ajouter le controle voulu
ex : le controle winsock


2) creer la variable "adequate" et essayer de l'ajouter a la collection de controle en mettant "nomlibrairie.classe"
ex :

Code :

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

1
2
3
4
 
dim wsdyn as winsock
 
set wsdyn = me.controls.add("MSwinsocklib.winsock","monwinsock")

a ce moment la, VB va generer une erreur, et dans la description de cette erreur, il vous donnerat la "reference" a mettre.
ex : pour le controle winsock il faut mettre :

Code :

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

1
2
 
set wsdyn=me.controls.add("mswinsock.winsock.1","monwinsock")

3) pour le decharger :

Code :

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

1
2
 
me.controls.remove("monwinsock")

[AlainTech]

Merci pour le retour d'info.

Je suis certain que ça en aidera plus d'un.