Propriété d'un objet

Le
Tr
Bonjour à tous,

j'ai un petit problème pour définir une propriété:
Private p_Epaisseur As String = "non définie"

Public ReadOnly Property Epaisseur() As String
'depuis l'extérieur de l'objet on ne peut que lire
'on en profite aussi pour lire depuis l'intérieur
Get
Return p_Epaisseur
End Get
End Property

Private WriteOnly Property Epaisseur() As String
Set(ByVal value As String)
p_Epaisseur = value
End Set
End Property

message d'erreur:
les 2 prop ne peuvent pas se surcharger mutuellement car seul readonly
oui writeonly les différencie.
Je voudrais pouvoir lire de l'extérieur de l'objet sans pouvoir
modifier, tout en pouvant modifier dans l'objet (un traitement au
moment de cette modif est possible)

J'ai une autre propriété similaire qui ne m'affiche aucune erreur:
Private p_Coordonnees() As PointF = Nothing
Public ReadOnly Property Coordonnees() As PointF()
Get
Return p_Coordonnees
End Get
End Property

Private WriteOnly Property Coordonnes() As PointF()
Set(ByVal value As PointF())
p_Coordonnees = value
End Set
End Property

je ne vois pas où est la différence et pourquoi ça ne marche pas pour
la prop 1.

merci si vous avez des pistes, peut-être que je m'y prens mal
d'ailleurs, n'héistez pas :-)

--
L'histoire est une perpétuelle quête au bouc-émissaire. (Réflexion)
tranquille.xav@gmail.com
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tr
Le #20771911
*Ecrit* *par* **:
Bonjour à tous,



j'ai un petit problème pour définir une propriété:
Private p_Epaisseur As String = "non définie"



Public ReadOnly Property Epaisseur() As String
'depuis l'extérieur de l'objet on ne peut que lire
'on en profite aussi pour lire depuis l'intérieur
Get
Return p_Epaisseur
End Get
End Property



Private WriteOnly Property Epaisseur() As String
Set(ByVal value As String)
p_Epaisseur = value
End Set
End Property



message d'erreur:
les 2 prop ne peuvent pas se surcharger mutuellement car seul
readonly oui writeonly les différencie.
Je voudrais pouvoir lire de l'extérieur de l'objet sans pouvoir
modifier, tout en pouvant modifier dans l'objet (un traitement au
moment de cette modif est possible)



J'ai une autre propriété similaire qui ne m'affiche aucune erreur:
Private p_Coordonnees() As PointF = Nothing
Public ReadOnly Property Coordonnees() As PointF()
Get
Return p_Coordonnees
End Get
End Property



Private WriteOnly Property Coordonnes() As PointF()
Set(ByVal value As PointF())
p_Coordonnees = value
End Set
End Property



je ne vois pas où est la différence et pourquoi ça ne marche pas pour
la prop 1.



merci si vous avez des pistes, peut-être que je m'y prens mal
d'ailleurs, n'héistez pas :-)



bon j'ai trouvé:
Public Property Epaisseur() As String
'depuis l'extérieur de l'objet on ne peut que lire
'on en profite aussi pour lire depuis l'intérieur
Get
Return p_Epaisseur
End Get
*Private* Set(ByVal value As String)
p_Epaisseur = value
End Set
End Property

--
C'est le passage à l'acte qui fait le fou. (Conclusion)

Mon Groupe
Le #20780871
Bonjour à tous et à toutes

J'ai un total de seconde. Exemple 1343571 seconde

Comment puis-je en extraire le nombre de Jours, d'heures de Mn et de
secondes ?
J'obtiens bien un chrono par cette formule

Dim Cvb As Date

Cvb = Date.FromOADate(Date.FromOADate(Km2 / Moy2 *
3600).ToOADate).ToLongTimeString

Mais ce n'est valable que pour les temps inférieurs à 24 Heure...

Merci
Jacquouille14
Le #20781521
Mon Groupe a écrit :
Bonjour à tous et à toutes

J'ai un total de seconde. Exemple 1343571 seconde

Comment puis-je en extraire le nombre de Jours, d'heures de Mn et de
secondes ?
J'obtiens bien un chrono par cette formule

Dim Cvb As Date

Cvb = Date.FromOADate(Date.FromOADate(Km2 / Moy2 *
3600).ToOADate).ToLongTimeString

Mais ce n'est valable que pour les temps inférieurs à 24 Heure...

Merci





bonjour,
Dim SEC as long: SEC43571 'les secondes
Dim MINU as long: MINU = int(SEC / 60) 'les minutes
SEC = SEC -(MINU * 60) 'le rab de secondes<1mn
Dom HEUR as long: HEUR = int(MINU / 60) ' les heures
MINU = MINU - (MINU * 60) 'le rab de minutes<60mn
Dim LESJOURS as interger: LESJOURS = int(HEUR / 24) 'les jours
HEUR = HEUR - (LESJOURS * 24) 'le rab d'heures<1jour
Dim Chrono as string: Chrono = cstr(LESJOURS) & " jours " & cstr(HEUR) &
" heures " & cstr(MINU) & " minutes " & cstr(SEC) & " secondes"
A affiner sans doute voire à compliquer avec modulo.
--

Jacques dit Jacquouille
Patrice
Le #20785821
Ou voir éventuellement :
http://msdn.microsoft.com/fr-fr/library/system.timespan(VS.80).aspx
qui permet de gérer les durées..

--
Patrice

"Jacquouille14" discussion : 4b29145e$0$30466$
Mon Groupe a écrit :
Bonjour à tous et à toutes

J'ai un total de seconde. Exemple 1343571 seconde

Comment puis-je en extraire le nombre de Jours, d'heures de Mn et de
secondes ?
J'obtiens bien un chrono par cette formule

Dim Cvb As Date

Cvb = Date.FromOADate(Date.FromOADate(Km2 / Moy2 *
3600).ToOADate).ToLongTimeString

Mais ce n'est valable que pour les temps inférieurs à 24 Heure...

Merci





bonjour,
Dim SEC as long: SEC43571 'les secondes
Dim MINU as long: MINU = int(SEC / 60) 'les minutes
SEC = SEC -(MINU * 60) 'le rab de secondes<1mn
Dom HEUR as long: HEUR = int(MINU / 60) ' les heures
MINU = MINU - (MINU * 60) 'le rab de minutes<60mn
Dim LESJOURS as interger: LESJOURS = int(HEUR / 24) 'les jours
HEUR = HEUR - (LESJOURS * 24) 'le rab d'heures<1jour
Dim Chrono as string: Chrono = cstr(LESJOURS) & " jours " & cstr(HEUR) & "
heures " & cstr(MINU) & " minutes " & cstr(SEC) & " secondes"
A affiner sans doute voire à compliquer avec modulo.
--

Jacques dit Jacquouille



Publicité
Poster une réponse
Anonyme