[VB6] Ajouter un UserControl

Salut,

J'ai créée un user control, mais je ne peux pas l'utiliser.
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub btnWF_AddModule_Click() Dim wfwGUI As uclWaveFlowgui   Set wfwGUI = Me.Controls.add("WaveNetBuilder.uclWaveFlowgui", "wfwGUI", fraWaveFlow)   wfwGUI.Top = topWFW wfwGUI.Left = leftWFW   wfwGUI.Visible = True End Sub

---

où

uclWaveFlowgui est le nom du Contrôle Utilisateur, que j'avais créé,
WaveNetBuilder - le nom du projet
topWFW est un variable indiquant la coordonéé Top où on doit mettre le contrôle et leftWFW, réspectivement la coordonnée Left. (des nombres entiers)
Dans ce code j'ai éssayé de positionner le contrôle ajouté dans le Frame 'fraWaveFlow' sur le formulaire.

Lors de la compilation, j'obtiens l'erreur : 'Méthode ou membre de données introuvable' pour l'expression : 'wfwGUI.Top ='.

Est-ce que quelcun pourrait m'aider :help:


Merci par avance ;)

Pour ajouter un control que tu a compiler(fichier ocx) il suffit sous VB d'appuyer sur Ctrl+T (composants), puis d'aller chercher ton fichier grace a parcourir :wink:
Sauf si on ne parle pas des même contrôles utilisateur.

Citation:

---

Envoyé par soveste

Salut,

J'ai créée un user control, mais je ne peux pas l'utiliser.
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub btnWF_AddModule_Click() Dim wfwGUI As uclWaveFlowgui   Set wfwGUI = Me.Controls.add("WaveNetBuilder.uclWaveFlowgui", "wfwGUI", fraWaveFlow)   wfwGUI.Top = topWFW wfwGUI.Left = leftWFW   wfwGUI.Visible = True End Sub

---

où

uclWaveFlowgui est le nom du Contrôle Utilisateur, que j'avais créé,
WaveNetBuilder - le nom du projet
topWFW est un variable indiquant la coordonéé Top où on doit mettre le contrôle et leftWFW, réspectivement la coordonnée Left. (des nombres entiers)
Dans ce code j'ai éssayé de positionner le contrôle ajouté dans le Frame 'fraWaveFlow' sur le formulaire.

Lors de la compilation, j'obtiens l'erreur : 'Méthode ou membre de données introuvable' pour l'expression : 'wfwGUI.Top ='.

Est-ce que quelcun pourrait m'aider :help:


Merci par avance ;)

---

Salut,

Le code de ton user control serait le bienvenu stp

Merci

Théo

Le contrôle est déja inclut, en fait il fait partie du projet en cours.

Le contrôle n'est pas programmé. Il contient un frame avec des labels et TextBox sur ce dernier. [/img]

En fait j'ai trouvé que le problème n'est pas d'ajouter le Contrôle, mais l'accès vers les contrôles de base qui se trouvent sur le UserControle.
Mon contrôle contient un textBox, dont je ne peux pas (je ne sais pas comment) y accèder dans le code.

Est-ce que quelcun a des idées ?

Merci beaucoup par avance




PS : Pour ceux qui s'interesse à l'ajout du contrôle, voici un code de MSDN :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Dim ctlExtender As VBControlExtender   Private Sub Form_Load() Set ctlExtender = Controls.Add("Project1.UserControl1", "MyControl") With ctlExtender .Visible = True .Top = 1000 .Left = 1000 End With End Sub

---

Bon,
finalement j'ai trouvé moi-même la solution.
Le problème était que les contrôles sur le UserControls sont privés dans l'application et donc je n'ai pas directement accès à eux dans le code. La solution a été de créer une méthode publique à UserControl pour ajouter du texte à mon textBox.

Citation:

---

Envoyé par soveste

Bon,
finalement j'ai trouvé moi-même la solution.
Le problème était que les contrôles sur le UserControls sont privés dans l'application et donc je n'ai pas directement accès à eux dans le code. La solution a été de créer une méthode publique à UserControl pour ajouter du texte à mon textBox.

---

Bonne nouvelle,

C'est vrai que j'ai sèché sur ta question ...

Maintenant que c'est résolu, un petit clic sur le tag :resolu: tout en bas à gauche serait de mise

Bonne continuation

Théo