Polymorphisme en VB6Résolu

Question

Bonjour,

J'essaie actuellement de r&#233;aliser une interface en VB6 mais j'ai un message d'erreur &#224; la compilation. Je n'ai jamais fait &#231;a en VB alors je m'inspire de ce que j'ai d&#233;j&#224; 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&#233;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&#233;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&#233;menter 'GetRequete' pour interfacer 'IParametrage'

Merci de votre aide.

Renfield · Accepted Answer

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 &#224; 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

Polymorphisme en VB6

1 réponse

Discussions similaires