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
| 'Ce que j'ai en ce moment
Public Class Voiture
Public Property Roues As ValeurInteger 'ici je voudrais avoir ValeurInteger? <-- pour mettre qu'il soit nullable
Public Property Portes As ValeurIntegerObligatoire 'Au lieu de recreer une autre classe ValeurIntegerObligatoire je voudrais faire ça : ValeurInteger
Public Property Sieges As ValeurIntegerObligatoire
Public Sub New(roues As ValeurInteger, portes As ValeurInteger, sieges As Integer)
Me.Roues = roues
Me.Portes = portes
Me.Sieges = sieges
End Sub
Public Class TypeValeur
Public Property Utiliser As Double
Public Property Origine As Double
Public Property IsValid As Double
Public Sub New()
End Sub
Public Sub New(utiliser As Double, origine As Double, isValid As Double)
Me.Utiliser = utiliser
Me.Origine = origine
Me.IsValid = isValid
End Sub
End Class
Public Class ValeurInteger
Inherits TypeValeur
Public Property Valeur As Integer?
Public Sub New()
End Sub
Public Sub New(valeur As Integer?)
Me.Valeur = valeur
End Sub
End Class
Public Class ValeurIntegerObligatoire
Inherits TypeValeur
Public Property Valeur As Integer
Public Sub New()
End Sub
Public Sub New(valeur As Integer)
Me.Valeur = valeur
End Sub
End Class
End Class |
Partager