Difference entre get/set ect. Public Property ect.

**19cmos83** · 01/11/2007, 10h07

Bonjour,

Quel est la différence entre ces deux écritures ? Accessibilité, Performances, Ressources Mémoires ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private _strPhone As String
 
         Public Property Phone() 
            Get
                Return _strPhone
            End Get
            Set(ByVal value As String)
                _strPhone = value
            End Set
        End Property

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private _strPhone As String
 
     Public function getPhone() as String
          Return _strPhone
     End Sub
 
     Public Sub setPhone( value as String) 
          _strPhone = value
     End Sub

Merci bien.

**Aspic** · 01/11/2007, 10h11

La première est plus propre et c'est elle qui faut utiliser et c'est le but des property !

Question performance, c'est pareil... mais pour la lisibilité, la première méthode est beaucoup mieux.

**olsimare** · 01/11/2007, 12h53

Bonjour.

Le get/set est clairement plus propre et en plus c'est quand même sympa pour pouvoir lister les propriétés de la class via reflection plutôt que d'interpréter des sub getQuelquechose.

D'autant plus que ce que tu écris n'est correct (une sub as string ??? et qui fait des return ???)

Autre point, pour des propriétés qui rendent des objets qui ont eu même leur propre méthodes, la solution à base de getBidule(bidule as objet) t'oblige à allouer d'abord ton bidule et ensuite seulement à pouvoir accéder à ces propriétés ou méthodes --> moyen en terme de perf.
De plus, avec les getbidule, faut gérer les byref à la main.
Pour finir, VS peut t'avertir des incohérences en les types utilisés dans les get/set pour définir la propriété alors que cela doit se gérer à la main avec le getbidule.

Exemple en code :
Solution à proscrire :

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
 
'
' test du truc
        Dim cTest As New clsTest
        Dim dt As New DataTable
        cTest.getPhone(dt)
        MsgBox(dt.Columns(0).ColumnName)
 
...
' 
' Solution pas terrible
Public Class clsTest
    Private _strPhone As DataTable
    Public Sub New()
        _strPhone = New DataTable
        _strPhone.Columns.Add("C1")
        _strPhone.Columns.Add("C2")
        _strPhone.Rows.Add("1", "2")
        _strPhone.Rows.Add("3", "4")
    End Sub
    ' Byref mis à la main !
    Public Sub getPhone(ByRef value As DataTable)
        value = _strPhone
    End Sub
    Public Sub setPhone(ByRef value As DataTable)
        _strPhone = value
    End Sub
End Class

Solution cool :

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
 
'
' test du truc
        Dim cTest2 As New clsTest2
        MsgBox(cTest2.Phone.Columns(0).ColumnName)
'
...
' 
' Solution cool
Public Class clsTest2
    Private _strPhone As DataTable
    Public Sub New()
        _strPhone = New DataTable
        _strPhone.Columns.Add("C1")
        _strPhone.Columns.Add("C2")
        _strPhone.Rows.Add("1", "2")
        _strPhone.Rows.Add("3", "4")
    End Sub
    Property Phone() As DataTable
        Get
            Return _strPhone
        End Get
        Set(ByVal value As DataTable)
            _strPhone = value
        End Set
    End Property
End Class