Page 477 - IT2
P. 477

End Sub

                Public Overrides Function ToString() As String
                    Return _nom
                End Function
            End Class

            Public Class Fichier
                Inherits F_D

                Private _taille As Long
                Private _dossier As Dossier

                ' Méthodes ...

            End Class

            Public Class Dossier
                Inherits F_D

                Private _dossierParent As Dossier

                ' Méthodes ...

            End Class

            Public Class Categorie
                Private _nomCat As String
                Private _catparent As Categorie

                ' Méthodes ...

            End Class

            Public Class Proprietaire
                Private _refProp As Byte
                Private _nomProp As String

                ' Méthodes ...

            End Class































                                         www.itlearning-settat.com                                 5/5

                                  Email: admission@itlearning-settat.com

                                                  Tél.:0661077812
   472   473   474   475   476   477   478   479   480   481   482