GET et SET (Creation d'objet)
Bonjour,
Je suis à la recherche d'un outil, d'une astuce, bref de quelque chose qui pourrait créer automatiquement les GET et les SET lors de la création d'une class.
Ce type d'outil existe sous Eclipse pour Java.
Est-il possible d'envisager la même chose pour VB.NET ?
Bien sur les declarations à la mimine sont possible, mais si les attributs sont nombreux ... bonjour les crampes, sans parler des oublis et autres erreurs de saisie.....
Merci de vos réponses
GET et SET (Creation d'objet) suite....
Merci de cette réponse, mais le menu contextuel ne m'apporte pas cette option.
D'autre part "Property" ne m'interesse pas : la double déclaration des variables n'est pas très élégant.
Renseignement, peut être important : j'utilise VB 2008
Voici ce que j'aimerais obtenir :
Code:
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
| Public Class Compte
Dim CptNumCpt As String 'Numero du Compte
Dim CptNumFct As String 'Numero de facture (en Charge ou en Produit)
Dim CptNumCmp As String 'Numero de Compostage
Dim CptDteOpe As Date 'Date de l'opération
Dim CptLblCpt As String 'Libelle de l'operation
Dim CptMontnt As Single 'montant de l'operation
'**********************************************
' Constructeur incluant tous les attributs pour la
' saisie des informations
'**********************************************
Public Sub New(ByVal CptNumCpt As [String], _
ByVal CptNumFct As [String], _
ByVal CptNumCmp As [String], _
ByVal CptDteOpe As Date, _
ByVal CptLblCpt As [String], _
ByVal CptMontnt As Single)
Me.CptNumCpt = CptNumCpt
Me.CptNumFct = CptNumFct
Me.CptNumCmp = CptNumCmp
Me.CptDteOpe = CptDteOpe
Me.CptLblCpt = CptLblCpt
Me.CptMontnt = CptMontnt
End Sub
'**********************************************
' Constructeur pour la création d'un compte
'**********************************************
Public Sub New(ByVal CptNumCpt As String)
Me.CptNumCpt = CptNumCpt
End Sub
'**********************************************
' Les GET commencent ici, pour récuperer
' les valeurs du compte "en cours"
'**********************************************
Public Function GetCptNumCpt() As [String]
Return CptNumCpt
End Function
Public Function GetCptNumFct() As [String]
Return CptNumFct
End Function
Public Function GetCptNumCmp() As [String]
Return CptNumCmp
End Function
Public Function GetCptDteOpe() As Date
Return CptDteOpe
End Function
Public Function GetCptLblCpt() As [String]
Return CptLblCpt
End Function
Public Function GetCptMontnt() As Single
Return CptMontnt
End Function
'**********************************************
' Les GET finissent ici !
'**********************************************
'**********************************************
' Les SET commencent ici, pour attribuer une
' valeur au compte "en cours"
'**********************************************
Public Sub setCptNumCpt(ByVal CptNumCpt As [String])
Me.CptNumCpt = CptNumCpt
End Sub
Public Sub setCptNumFct(ByVal CptNumFct As [String])
Me.CptNumFct = CptNumFct
End Sub
Public Sub setCptNumCmp(ByVal CptNumCmp As [String])
Me.CptNumCmp = CptNumCmp
End Sub
Public Sub setCptDteOpe(ByVal CptDteOpe As Date)
Me.CptDteOpe = CptDteOpe
End Sub
Public Sub setCptLblCpt(ByVal CptLblCpt As [String])
Me.CptLblCpt = CptLblCpt
End Sub
Public Sub setCptMontnt(ByVal CptMontnt As Single)
Me.CptMontnt = CptMontnt
End Sub
'**********************************************
' Les SET finissent ici !
'**********************************************
End Class |
à partir de cela :
Code:
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
|
Public Class Compte
Dim CptNumCpt As String 'Numero du Compte
Dim CptNumFct As String 'Numero de facture (en Charge ou en Produit)
Dim CptNumCmp As String 'Numero de Compostage
Dim CptDteOpe As Date 'Date de l'opération
Dim CptLblCpt As String 'Libelle de l'operation
Dim CptMontnt As Single 'montant de l'operation
'**********************************************
' Constructeur incluant tous les attributs pour la
' saisie des informations
'**********************************************
Public Sub New(ByVal CptNumCpt As [String], _
ByVal CptNumFct As [String], _
ByVal CptNumCmp As [String], _
ByVal CptDteOpe As Date, _
ByVal CptLblCpt As [String], _
ByVal CptMontnt As Single)
Me.CptNumCpt = CptNumCpt
Me.CptNumFct = CptNumFct
Me.CptNumCmp = CptNumCmp
Me.CptDteOpe = CptDteOpe
Me.CptLblCpt = CptLblCpt
Me.CptMontnt = CptMontnt
End Sub
'**********************************************
' Constructeur pour la création d'un compte
'**********************************************
Public Sub New(ByVal CptNumCpt As String)
Me.CptNumCpt = CptNumCpt
End Sub
End Class |
