Introduction
Classe
C-C++/VB
Livres
Ecrivez-moi

En partenariat avec amazon.fr

HIÉRARCHIE DE CLASSE

 

  • Passage d'information dans une sous classe

    Dans une hiérarchie, une classe peut passer une information à sa sous-classe en utilisant une propriété de cette dernière.

Form1.frm
 
Private Sub Command1_Click()

Dim m_objClass1 As New Class1

m_objClass1.CreateNom "Pascal"

MsgBox m_objClass1.RecupNom

Set m_objClass1 = Nothing
End Sub

 

Class1.cls
 
Private m_objClass2 As New Class2

Private Sub Class_Initialize()

MsgBox "debut"

End Sub

Private Sub Class_Terminate()

MsgBox "fin"

End Sub
Public Sub CreateNom(Nom As String)

m_objClass2.Nom = Nom

End Sub

Public Function RecupNom() As String

RecupNom = m_objClass2.Nom

End Function

 

Class2.cls
 
Private sNom As String

Friend Property Get Nom() As String
    
    Nom = sNom
    
End Property

Friend Property Let Nom(sNouveauNom As String)
    sNom = sNouveauNom
End Property