Discussion :

[pijaku]

Bonjour tout le monde,

Je m'intéresse à un type particulier.
Je vais exposer mon problème par un exemple.
Soit un TextBox dans un UserForm.
Il possède des propriétés : Height, Width, font, etc...
Certaines de ses propriétés possèdent également des propriétés : Font.Size, Font.Bold, etc...

Comment réaliser cet "héritage" avec des modules de classe?

[Jean-Philippe André]

Salut,

tout simplement en creant des modules de classe

un exemple : des personnes et des voitures
Module de niveau 0 : clsVoiture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private pMarque As String
private pCouleur as String
Public Property Get Marque()
    Marque=pMarque
End Property
Public Property Let Marque(newMarque As String)
pMarque = newMarque
End Property'etc.

Module de niveau 1 : ClsPersonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private NomPrenom As String 'etc.
Private pVoiture as clsVoiture

dans ta Syntaxe dans le module ClsPersonne, tu pourras taper

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pVoiture.Marque="Pioumobile"

et meme profiter de l'intellisense.

[Invité]

Bonjour pijaku,

bien que VBA dispose de module de classe, il reste cependant embryonnaire! pas d'héritage, de surcharge et de polymorphisme!

on simule le surcharge par des paramètres optionnels, le polymorphisme par d'autre classe approchante mais prenant en charge les variantes!

pour ce qui concerne l'héritage nous utiliserons une variable objet de la classe à hériter que nous instancierons à Private Sub Class_Initialize() de la classe1 et vue qu'il n'est pas possible de surcharger les constructeur (Donc pas d’accesseur pour remonter les paramètres la classe hérit" ) nous utiliserons une sub et des proprety!

Code Classe1 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public cls2 As Classe2
 
Private Sub Class_Initialize()
Set cls2 = New Classe2
End Sub
Public Sub Param(Param1, Param2, Param3)
cls2.Param1 = Param1
cls2.Param2 = Param2
cls2.Param3 = Param3
End Function

Code Classe2 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Property Let Param1(value)
 
End Property
Public Property Let Param2(value)
 
 
End Property
Public Property Let Param3(value)
 
 
End Property

notes qu'il est possible de faire des collections de classe dans une collection de classe!

CollectionClass1(1).collectionClass2(1)https://www.developpez.net/forums/d1...a/#post8397306

[pijaku]

Bonjour,

Merci à tous deux pour vos réponses.
Je regarderai ça demain, à tête reposée car là, j'ai les cheveux qui poussent à l'envers...

Bonne soirée.

[pijaku]

Bonjour,

Les tests sont très concluants!
Merci à vous deux !!

Pour info, voici comment j'utilise vos méthodes :

Code de l'UserForm (appel) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Dim T As New CTextbox
 
Private Sub UserForm_Initialize()
    TextBox1 = "Toto"
    Set T.TB = TextBox1
    With T.Police
        .Gras = True
        .Taille = 16
        .Souligne = True
        .Italique = False
    End With
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Set T.TB = Nothing
    Set T.Police = Nothing
    Set T = Nothing
End Sub

Code de la classe CTextbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Public Police As ClaPolice
Public WithEvents TB As MSForms.TextBox
 
Private Sub Class_Initialize()
    Set Police = New ClaPolice
    Set Police.Tbox = Me
End Sub
 
Private Sub Class_Terminate()
    Set Police = Nothing
End Sub

Le code de la classe ClaPolice :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
    Public Tbox As CTextbox 'permet de faire "la liaison" avec le textbox "réel"
 
    Public Property Let Gras(B_Bold As Boolean)
        Tbox.TB.Font.Bold = B_Bold
    End Property
 
    Public Property Let Italique(B_Italic As Boolean)
        Tbox.TB.Font.Italic = B_Italic
    End Property
 
    Public Property Let Taille(B_Size As Integer)
        Tbox.TB.Font.Size = B_Size
    End Property
 
    Public Property Let Souligne(B_Underline As Boolean)
        Tbox.TB.Font.Underline = B_Underline
    End Property
 
    Private Sub Class_Initialize()
 
    End Sub
 
    Private Sub Class_Terminate()
        Set Tbox = Nothing
    End Sub

Mon unique regret est de devoir, pour "fermer" correctement, faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set T.Police = Nothing

[patricktoulon]

bonjour
pour un simple paramétrage de ctrl j'utilise des variables typées pas la peine d'engager deux modules classe

[pijaku]

Salut Patrick,

pour un simple paramétrage de ctrl j'utilise des variables typées

Oui, je sais car je t'ai déjà lu à ce sujet.
Cependant, tu te doutes que mon projet est un poil plus compliqué que le sujet exposé ici.
J'avais juste besoin de cette base.
Pour ton info, j'en suis déjà à "imbriquer" 3 modules de classe et ce n'est pas fini...