Discussion :

[BasicZX81]

Bonsoir a tous,
Je sollicite votre aide pour un petit problème que je n’arrive pas a résoudre.
J'ai une classe DTOTache qui hérite de DTOBase comme ceci :

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
Public MustInherit Class DTOBase
 
    Public Sub New()
        Call Test()
    End Sub
 
    Private Sub Test()
        Dim attributs() As Object
        Dim att As DataInfoAttribute
        Dim propriété As System.Reflection.PropertyInfo
        Dim attType As Type = GetType(DataInfoAttribute)
        Dim classType As Type = GetType(DTOTache)
 
        For Each propriété In classType.GetProperties
            attributs = Attribute.GetCustomAttributes(propriété, attType)
            If attributs.Length > 0 Then
                att = DirectCast(attributs(0), DataInfoAttribute)
 
                Debug.WriteLine("Propriété = " & propriété.Name)
                Debug.WriteLine("Field Name = " & att.FieldName)
                Debug.WriteLine("Field Lenght = " & att.FiedLenght)
            End If
        Next
    End Sub
End Class

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
Public Class DTOTache
    Inherits DTOBase
    Public Sub New()
 
    End Sub
    Public Sub New(row As DataRow)
 
    End Sub
 
 
    Private _IdTache As Integer
    <DataInfo("ID_TACHE")> _
    Public Property IdTache() As Integer
        Get
            Return _IdTache
        End Get
        Set(ByVal value As Integer)
            _IdTache = value
        End Set
    End Property
End Class

Dans DTOBase je fait référence a DTOtache sur cette ligne :

Code :

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

        Dim classType As Type = GetType(DTOTache)

Hors DTOBase doit pouvoir hériter une autre classe que DTOTache, ma question est donc la suivante :
Comment je peux faire pour que DTOBase fonctionne avec n'importe quel classe DTOxxx.

Je vous remercie beaucoup de toute l'aide que vous pourrez m'apporter.

[Pol63]

pas lu tout le code mais je pense que tu dois juste remplacer

Code :

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

GetType(DTOTache)

par

Code :

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

Me.GetType

qui vaudra donc GetType(DTOTache) dans la classe DTOTache ou autre chose dans une autre


le but de l'héritage étant justement de faire abstraction de ce qui va en hériter il ne faut surtout pas le nommer ...


quand on a des choses spécifiques à coder on fait un membre MustOverride, et chaque héritier y met son code (rien n'empeche de faire des scénarios avec une sub sur la classe de base qui va pêcher des infos de fonctionnement sur une property mustoverride)

[BasicZX81]

Merci Pol63, je pensez que 'Me' faisait référence a la Classe de base uniquement. C’était donc une erreur de ma part de penser cela.
'Me' fonctionne donc parfaitement.
Et merci beaucoup également pour les petits conseils .

[Pol63]

me référence l'instance dans laquelle s'exécute le code, donc toujours l'héritage de plus haut niveau

MyBase permet d'appeler des membres de niveau inférieur quand Me appellerait un membre de niveau n
(quand on overrides un membre, par défaut vs écrit mybase.membre pour faire l'appel du code d'en dessous en plus du code qu'on va écrire, en supprimant cette ligne seul le code qu'on écrit sera exécuté)

[rv26t]

Bonjour,

En complément de ce que Pol63 a dit, et faire le tour du sujet.
Il existe aussi Myclass.
Myclass est employé pour faire référence à la classe elle même sans tenir compte des classes dérivées qui la surchargerons.
mais MSDN-MyClass explique mieux que moi.

[BasicZX81]

Merci beaucoup pour vos informations.
J'espère que je n'abuse pas de votre patience mais j'ai un autre problème toujours avec cette même classe.
Dans le code ou j'ai mis des "*************" il faudrait que je puisse accéder a la classe dérivée pour pouvoir assignér les propriétés de cette classe dérivée a partir de la classe de base.

Quelque chose dans ce style :

Code :

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

ClassDérivée.Property1 = Value

Nota : j'utilise la réflexion et les Attributs pour parcourir les propriétés et faire une sorte de mapping pour créer un objet a partir d'un Datarow.

PS : Je n'ai pas encore traité le Cast de Value mais je le ferrais ensuite si cela fonctionne.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Public MustInherit Class DTOBase
    Public Sub New()
 
    End Sub
    Public Sub New(ByVal row As DataRow)
        Call InitProperties(row)
    End Sub
 
    Private Sub InitProperties(ByVal row As DataRow)
        Dim attributs() As Object
        Dim att As DataInfoAttribute
        Dim propriété As System.Reflection.PropertyInfo
        Dim attType As Type = GetType(DataInfoAttribute)
        Dim classType As Type = Me.GetType
 
 
        For Each Col As DataColumn In row.Table.Columns
            Dim MatchField As Boolean = False
            Dim Value As Object = row(Col)
            Debug.WriteLine("Ordinal = " & Col.Ordinal.ToString & " - ColumnName = " & Col.ColumnName.ToString & " - Type = " & Col.DataType.ToString & " - Value = " & Value.ToString)
            For Each propriété In classType.GetProperties
                attributs = Attribute.GetCustomAttributes(propriété, attType)
                If attributs.Length > 0 Then
                    att = DirectCast(attributs(0), DataInfoAttribute)
                    If Col.ColumnName = att.FieldName Then
                        MatchField = True
                        'propriété.SetValue(classType, Value, Nothing)
                        'classType.GetProperty(propriété.Name)
 
                         ' **********************'
 
                        Debug.WriteLine("Propriété = " & propriété.Name)
                        Debug.WriteLine("Field Name = " & att.FieldName)
                        Debug.WriteLine("Field Lenght = " & att.FiedLenght)
                    End If
                End If
            Next
            If MatchField = False Then
                Throw New Exception("Error")
                Exit Sub
            End If
        Next
    End Sub
End Class

Vous avez une idée ?