Help: Adding Property to Class that use IMPLEMENTS

[DKenny]

You will need to add the Salary Property to the IHuman Interface, rather than to the CEmployee Class.

[jude7]

Thx...but i wanna get the reusable concept. From IHuman, maybe i'll write CStudent that has no Salary Property, but it has School Property beside Name,Sex and DateBirth...

- jude7 -

You will need to add the Salary Property to the IHuman Interface, rather than to the CEmployee Class.

[Comintern]

Thx...but i wanna get the reusable concept. From IHuman, maybe i'll write CStudent that has no Salary Property, but it has School Property beside Name,Sex and DateBirth...

- jude7 -

The interface -has- to be common to all the shared classes. As you have found out, VB6 doesn't support inheritance. One workaround would be to put all of the properties into the interface class as Declan suggests, but in that class's implementation of the property that is supposed to be 'missing', have it raise a "Method not found" error.

Public Property Get IHuman_Salary() As Double
 
    Call Err.Raise(438, "CEmploye", "Object doesn't support this property or method.")
 
End Property
 
Public Property Let IHuman_Salary(ByVal uData As Double)
 
    Call Err.Raise(438, "CEmploye", "Object doesn't support this property or method.")
 
End Property

It might sound kind of dumb to do it this way, but it will give the same result.

[brucevde]

You cannot reference the different interfaces through the same object variable. Since you declared oEmp as IHuman that interface is all you have access to. Your code should be

Private Sub Form_Load()
    Dim oEmp as CEmploye
    Dim oHuman as IHuman
 
    Set oEmp as New CEmploye
    Set oHuman = oEmp
 
    oHuman .Name = "Mike"
    oHuman .Sex=0
 
    oEmp.Salary = 1000  
 
End Sub