Bonjour,

J'ai un user control Timeline qui a une proprieté Periode qui est elle même une classe crée

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Class Periode
    Public Property DateFrom As Date
    Public Property DateTo As Date
End Class
 
Public Class Timeline
   Dim _period As Periode
 
   Public Sub New()
      _period = New Period with {.DateFrom = Now , .DateTo = Now.AddDays(1) }
   End Sub
 
   Public Writeonly Property Period As Periode
        Set(value As Periode)
             _period = value
             UpdateStripDates()
        End Set
    End Property
 
    Private Sub UpdateStripDates()
        Dim DIFFDATE as integer= DateDiff("d",_period.DateTo - _period.DateFrom )
        .....etc
    End Sub
End Class
Dans mon code si je fais
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Dim ctl as New Timeline
Dim D as New Periode with {.DateFrom =now , .DateTo =now.addmonths(1) }
ctl.Period=D
J'obtiens bien DIFFDATE

mais si je fais par exemple
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim ctl as New Timeline
ctl.Period.DateFrom= New Date(2000, 1, 1)
Je ne passe plus dans UpdateStripDates

Que me manque-t-il pour que, si on change une des propriétés (DateFrom / DateTo) de ma propriété Periode, cela revienne à changer celle ci.

Merci

Olivier