[VB.NET] Controllo MonthCalendar e BoldedDates

[ghini76]

Ciao a tutti,
ho associato delle date alla BoldedDatesdi un controllo MonthCalendar in SV2008 ma non c'è verso di far vedere le date in grassetto. Ho utilizzato vari modi compreso quello illustrato su MSDN ma niente. Le date non vengono evidenziate.

Ad esmpio:

mcalAgenda.AddBoldedDate(New Date(2009, 7, 25))

oppure:

mcalAgenda.BoldedDates = New System.DateTime() {New System.DateTime(2009, 7, 26, 0, 0, 0, 0)}

oppure:

mcalAgenda.BoldedDates = EvTrovati

dove EvTrovati è un array di date popolato così:

EvTrovati.SetValue(New System.DateTime(D.Year, D.Month, D.Day), R)

Sapete quale può essere il motivo?

[ghini76]

Incredibilmente dopo 2 giorni ho trovato il problema... ovviamente subito dopo che inserito il post nel forum:
si tratta di un problema legato a Vista e alle sue impostazioni del GUI.

E' necessario quindi visualizzare il controllo con il "vecchio stile". Per farlo utilizziamo le API:

Private Declare Function DeactivateWindowTheme Lib "uxtheme" Alias "SetWindowTheme" ( _
    ByVal hWnd As IntPtr, _
    Optional ByVal pszSubAppName As String = "", _
    Optional ByVal pszSubIdList As String = "") _
    As Integer

Esempio:

Dim d1 As Date = Date.Now.AddDays(-1)
Dim d2 As Date = d1.AddDays(2)
Me.MonthCalendar1.BoldedDates = New Date() {d1, d2}
Me.MonthCalendar1.UpdateBoldedDates()
DeactivateWindowTheme(Me.MonthCalendar1.Handle)

Bisogna chiamare la funzione DeactivateWindowTheme dopo ogni Update del controllo MonthCalendar.

Spero vi sia utile

Ciao ciao