'# tu déclares Public Event DateSelected ( DateCalendrier as Date ) '# Dans ton code, dans l'event LogonCompleted : Private Sub Calendar_LogonCompleted ( DateCalendrier as Date ) RaiseEvent DateSelected (DateCalendrier) End Sub
'# tu déclares Private mDate as Date '# Dans ton code, dans l'event LogonCompleted : Private Sub Calendar_LogonCompleted ( DateCalendrier as Date ) mDate = DateCalendrier End Sub '# Et la propriété (en lecture seule, ici) Public Property Get DateCalendar as Date DateCalendar = mDate End Property
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question