La POO avec VB6 [Résolu]

zey971 2 Messages postés jeudi 8 novembre 2007Date d'inscription 10 octobre 2008 Dernière intervention - 8 nov. 2007 à 03:11 - Dernière réponse : zey971 2 Messages postés jeudi 8 novembre 2007Date d'inscription 10 octobre 2008 Dernière intervention
- 10 oct. 2008 à 16:43
Bonjour 
Je travail sous vb6 en POO en connexion a une base Mysql et voici mon probleme
j'ai déclarer un classe presenté ci dessous

'Classe ListeOP



Private Type OP 'Declaration d'un type
 matricule As String
 nom As String
 prenom As String
End Type



Private element(0 To 20) As OP
Private isel As Integer
Private ilibre As Integer





Public Sub chargement()  ' methode au chargement
   'instruction sub
End Sub



Public Property Get Get_Element() As OP
 On Error GoTo GE
  Get_Element = element(20)
   Exit Property
GE:
 typeErreur = "Erreur class 2 methode property get()"
  FichierError app, err, typeErreur
End Property


Mon probleme est lors de la compilation un messagebox m'indique cette erreur 

Les types Enum privés et définis par l’utilisateur ne peuvent être utilisés comme type renvoyés ou paramètres pour les procédures publiques les membres de données publics ou les types publics définis par l’utilisateur

Et me surligne l'entete de ma procédure Public Property Get Get_Element() As OP
je ne comprens pas pourquoi j'ai cette erreur de compilation<?xml:namespace prefix v ns "urn:schemas-microsoft-com:vml" /??><v:shape id="_x0000_s1026" style="MARGIN-TOP: 113.6pt; Z-INDEX: 1; MARGIN-LEFT: 99.35pt; WIDTH: 342pt; POSITION: absolute; HEIGHT: 171pt; mso-position-horizontal: absolute; mso-position-horizontal-relative: text; mso-position-vertical: absolute; mso-position-vertical-relative: text" type="#_x0000_t75"><v:imagedata cropright="19914f" cropleft="19581f" cropbottom="21776f" croptop="22955f" o:title="" src="file:///C:\Users\Edwin\AppData\Local\Temp\msohtml1\01\clip_image001.png"></v:imagedata></v:shape>




-{--tout problème aura toujours une solution--}-
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 8 nov. 2007 à 06:01
3
Merci
salut,

pourtant le message est clair :
Les types Enum privés et définis par l'utilisateur ne peuvent être utilisés

supprime le type OP
crée une nouvelle classe nommée OP contenant :

option explicit
public matricule As String
public nom As String
public prenom As String

et pout bien faire ton tableau element devrait ne pas être dimensionné, voire être une collection
++ ;)
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Merci PCPT 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

Commenter la réponse de PCPT
cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 8 nov. 2007 à 06:51
0
Merci
Salut,

Ou alors déclare ton type public et non private !
______________________________________
DarK Sidious
Commenter la réponse de cs_DARKSIDIOUS
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 8 nov. 2007 à 07:57
0
Merci
pas de type public dans un class DKS, seulement en module

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Commenter la réponse de PCPT
cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 8 nov. 2007 à 08:32
0
Merci
Salut,

Ok, désolé alors, va falloir que je me remette au vb moi, ma mémoire commence à me faire défaut
______________________________________
DarK Sidious
Commenter la réponse de cs_DARKSIDIOUS
zey971 2 Messages postés jeudi 8 novembre 2007Date d'inscription 10 octobre 2008 Dernière intervention - 10 oct. 2008 à 16:43
0
Merci
Bon maintenant j'ai compris la poo en vb6 voir ma source un Agenda Medical en VB6 sur vbfrance

-{--tout problème aura toujours un solution--}-
Commenter la réponse de zey971

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.