Polymorphisme en VB6 [Résolu]

moot1983 4 Messages postés jeudi 9 février 2006Date d'inscription 8 mars 2006 Dernière intervention - 9 févr. 2006 à 11:37 - Dernière réponse : Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention
- 9 févr. 2006 à 11:44
Bonjour,

J'essaie actuellement de réaliser une interface en VB6 mais j'ai un message d'erreur à la compilation. Je n'ai jamais fait ça en VB alors je m'inspire de ce que j'ai déjà fait en C++.

Voici le code de l'interface : (IParamaetrage)

Option Explicit


'------------------------------------------------------------------------------
'Attributs de l'interface
Private requete As String
Private dependance As Collection
Private champCombo As String
Private id As Integer
'------------------------------------------------------------------------------


'------------------------------------------------------------------------------
'Méthodes de l'interface
'Public Function VerifSaisie(ByVal pe_rsRecordset As ADODB.Recordset) As Boolean
'End Function


Public Property Get GetRequete() As String
End Property
'------------------------------------------------------------------------------

Et le code de la classe : (CAlarme)

Option Explicit


Implements IParametrage



'------------------------------------------------------------------------------
'Attributs de la classe
Private requete As String
Private dependance As Collection
Private champCombo As String
Private id As Integer
'------------------------------------------------------------------------------


'------------------------------------------------------------------------------
'Méthodes de l'interface
'Public Function VerifSaisie(pe_rsRecordset As ADODB.Recordset) As Boolean
'
'End Function


Public Property Get GetRequete() As String
GetRequete = requete
End Property
'------------------------------------------------------------------------------



requete = "SELECT * FROM SIT_ALARMES WHERE A_CodeAl='" + CStr(id) + "'"

Le message d'erreur est : "Le module d'objet doit implémenter 'GetRequete' pour interfacer 'IParametrage'

Merci de votre aide.
Afficher la suite 

1 réponse

Meilleure réponse
Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention - 9 févr. 2006 à 11:44
3
Merci
dans ta classe
dans le combo en haut a gauche, selectionne IParametrage
dans le combo a droite, tu trouvera tous les membres de IParametrage.
il te faut les remplir un à un

par exemple :

Private Property Get IParametrage_GetRequete() As String : IParametrage_GetRequete = Me.GetRequete : End Property
Public Property Get GetRequete() As String
GetRequete = requete
End Property

Long et fastidieux, c'est le seul moyen.....

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Merci Renfield 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

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.