Discussion :

[sandball22]

J'ai des soucis pour insérer un contrôle utilisateur en VB.
Y a t il des choses spéciales à faire?

[l_autodidacte]

C'est vague comme demande; peut-on avoir plus d'infos : message d'erreur, contrôle impossible à mettre sur le formulaire(Form) ....

[sandball22]

Il s'agit d'une erreur de compilation.

j'ai deux projets :
un projet avec un module et un contrôle utilisatuer

et un projet avec une feuille qui utilise le contrôle utilisateur et un module.


J'ai une erreur de compilation.
Méthode ou membres de données introuvables

[aectie]

bonjour,
pourrais tu envoyer ton code pour avoir plus de précision.
s'il affiche "Méthode ou membres de données introuvables "
c'est que tu travailles avec une variable que tu n'as pas déclaré.
pour plus de certitudes apporte ton code.

[sandball22]

Voici mon source code.

[iclic]

Bonjour,

Voir dans ton FrmMain.log car erreur lors du chargement:

Ligne 18: La classe GraphProject.Graph du contrôle Graph1 n'est pas une classe de contrôle chargée.
Ligne 35: La classe GraphProject.Graph du contrôle Graph2 n'est pas une classe de contrôle chargée.
Ligne 51: La classe GraphProject.Graph du contrôle Graph3 n'est pas une classe de contrôle chargée.
Ligne 69: La classe GraphProject.Graph du contrôle Graph4 n'est pas une classe de contrôle chargée.

[sandball22]

Oui je vois ça aussi.
Comment fait-on pour corriger cela?

[iclic]

Bonjour,

d'abord faire ceci dans ta FrmMain

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Timer1_Timer()
    Dim newValue As Long
    Dim Graph1 As New Cgraph
    Dim Graph2 As New Cgraph
    Dim Graph3 As New Cgraph
    Dim Graph4 As New Cgraph
 
    newValue = Rnd() * 100
    Graph1.AddValue (newValue + oldValue) / 2
    Graph2.AddValue (newValue + oldValue) / 2
    Graph3.AddValue (newValue + oldValue) / 2
    Graph4.AddValue (newValue + oldValue) / 2
    oldValue = newValue
 
   Set Graph1 = Nothing
   Set Graph2 = Nothing
   Set Graph3 = Nothing
   Set Graph4 = Nothing
End Sub

Créer un Module de classe Cgraph

avec les procédures AddValue et Refresh

et dans ce module

Code :

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

1
2
 
Dim Values() As Long

Déjà,il se charge sans erreur et on affiche les graphes.

A+

[ProgElecT]

Salut
Après l'ouverture de ton projet, ouvre la boite de références des composants Ctrl + T, rechercher le composant Graph.ocx et le cocher, s'il n'est pas dans la liste, depuis cette même boite, cliquez le bouton Parcourir, aller dans le dossier du projet et sélectionner cet ocx.
Sur le/les Formulaire ou ce trouve le/les composants Graph, les supprimer car il on été transformé sûrement en PictuBox, déposer autant que besoin le/les Graph qui ce trouve disponible dans la boite composants.

[sandball22]

J'ai suivi ce que vous avez dit, maitenant je n'ai plus d'erreur de compil mais par contre j'ai qu'une fenêtre vide qui s'affiche.