Ma class n'apparait pas dans la liste des objets de mon programme.

Voila afin d'essayer de comprendre encore quelque probleme sur les classes j'ai fait un projet tres simple qui est constitué de :

• Une Form --> Form1
• Une Classe --> Class1
• Un Module --> Module1

Lorsque je souhaite appeler ma classe de mon projet1 elle n'apparait pas. (Voire piece jointe)

Ensuite j'essaie de faire un CreateObject, donc je comprends pourquoi ca ne fonctionne pas.

De quoi ca peut venir.???

Tu l'as sauvegardée ta classe ?

oui! Losrque je fais le createObject ca merdouille.

Code:

---

1 2 3 4 5

Private Sub Command1_Click()   Dim testing As Project1.Class1 'Ca fonctionne   Set testing = CreateObject(Project1.Class1, "")

---

LA je recupere member or data member not found avec Class1 de surlignée sur la ligne du CreateObject.

Enfait je ne veux pas l'appeler 'Dslé', je veux créer un objet du meme Type.

Avec la fonction CreateObject.

Mais lorsque je fais :

Code:

---

1 2 3 4 5

Dim testing As Project1.Class1 ' Ca fonctionne   Set testing = CreateObject(Project1.Class1, "") ' Mais la j'ai droit a l'erreur Method or data Member not Found. Si j'enleve Poject1. ca me dit que le controle Act... ne peut pas créer l'objet.

---

C'est la que je seche.

euh, tu l'as déclarée comment ?

Il faut qu'elle soit en "Multi-use" et pas en "Public not creatable" hin ...

Citation:

---

Envoyé par Vld44

euh, tu l'as déclarée comment ?

Il faut qu'elle soit en "Multi-use" et pas en "Public not creatable" hin ...

---

euh, jveux pas dire mais, OWNED :D :yaisse2:

Salut

J'aimerais savoir pouquoi tu n'as pas donné de nom plus intelligent à ta classe que Class1... ? 8O

Ceci dit, as-tu essayé avec le mot clé New ?

Code:

---

Dim testing As New Class1

---

Citation:

---

Envoyé par zazaraignée

Salut

J'aimerais savoir pouquoi tu n'as pas donné de nom plus intelligent à ta classe que Class1... ? 8O

---

La c'est juste un projet pour faire des tests. Sinon dans mon projet ma class s'appelle RenderClass.

En fait mes Classes je peux les appeler correctement lorsqu'elle ne sont pas issu d'un control ActiveX ou que je ne créer pas l'objet via CreateObject.

Donc oui en faisant dim Test as new class1 ca fonctionne ZAZA.

Mais par exemple dans mon projet si je fais

Code:

---

1 2 3

Dim testing As ActiveX_V1.VolumeRenderClass Set Testing = New ActiveX_V1.VolumeRenderClass 'Ou Set Testing = CreateObject("VolumeRenderClass","")

---

Ca ne fonctionne pas.VB me retourne l'erreur 429 ActiveX control can't create object.

Citation:

---

Envoyé par Vld44

Il faut qu'elle soit en "Multi-use"

---

Comment je fais comment pour voir ca?

tu cliques dessus en mode conception (le mode où tu places les contrôles dans les feuilles avec la souris) et tu regardes ses properties -.-

OK merci Il ya a du mieux. Maintenant j'ai quelques erreurs de codage. Je pense revenir avant la fin d'apres midi pour posté résolu! Enfin j'espère.