Propriété d'un objet

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 :-)

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

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