OVH Cloud OVH Cloud

Valeur mini pour une propriétée

2 réponses
Avatar
Pyroa
bonsoir,

Est -il possible de définir un valeur mini et maxi pour une propriété
autrement qu'avec la solution suivante ? :

Private GTest as integer

Public Property Test as integer
Get
Return GTest
End Get
Set(ByVal Value as integer)
If Value >= ValeurMaxi Then
GTest = Valeur Maxi
Else
If Value <= ValeurMini Then
GTest = ValeurMini
Else
GTest=Value
End If
End If
End Set
End Property

2 réponses

Avatar
Nicolas B.
Salut Pyroa,

Une solution tordue en une ligne ?

GTest = Valeur * (Valeur <= ValeurMaxi) * (Valeur >= ValeurMini) _
- ValeurMaxi * (Valeur > ValeurMaxi) _
- ValeurMini * (Valeur < ValeurMini)


A+
--
Nicolas B.


Pyroa a écrit :
bonsoir,

Est -il possible de définir un valeur mini et maxi pour une propriété
autrement qu'avec la solution suivante ? :

Private GTest as integer

Public Property Test as integer
Get
Return GTest
End Get
Set(ByVal Value as integer)
If Value >= ValeurMaxi Then
GTest = Valeur Maxi
Else
If Value <= ValeurMini Then
GTest = ValeurMini
Else
GTest=Value
End If
End If
End Set
End Property


Avatar
AlexC
Humm jene sais pas si cette solution est mieux ^^
merci quand meme !

"Nicolas B." a écrit dans le message de
news: #
Salut Pyroa,

Une solution tordue en une ligne ?

GTest = Valeur * (Valeur <= ValeurMaxi) * (Valeur >= ValeurMini) _
- ValeurMaxi * (Valeur > ValeurMaxi) _
- ValeurMini * (Valeur < ValeurMini)


A+
--
Nicolas B.


Pyroa a écrit :
> bonsoir,
>
> Est -il possible de définir un valeur mini et maxi pour une propriété
> autrement qu'avec la solution suivante ? :
>
> Private GTest as integer
>
> Public Property Test as integer
> Get
> Return GTest
> End Get
> Set(ByVal Value as integer)
> If Value >= ValeurMaxi Then
> GTest = Valeur Maxi
> Else
> If Value <= ValeurMini Then
> GTest = ValeurMini
> Else
> GTest=Value
> End If
> End If
> End Set
> End Property