Private Sub ultraMonthViewMulti1_BeforeDisplayDayToolTip(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.DayToolTipEventArgs) Handles ultraMonthViewMulti1.BeforeDisplayDayToolTip
' The BeforeDisplayDayToolTip event is a "cancelable" event,
' which means that the action to which it corresponds can be
' prevented from happening by canceling the event.
'
' Canceling an event is very simple - just set the 'Cancel'
' property of the event arguments to true. The action will then
' be prevented from happening, and the corresponding "After"
' event will not fire.
' If the day for which the tooltip is being displayed is a weekend
' day, cancel the event and return, which will prevent tooltips
' from being displayed for weekend days
If (e.Date.DayOfWeek = System.DayOfWeek.Saturday Or _
e.Date.DayOfWeek = System.DayOfWeek.Sunday) Then
e.Cancel = True
Return
End If
' Get the name of the day of the week
Dim dayOfWeek As String = e.Day.DayOfWeek.LongDescriptionResolved
' Determine whether there is activity for the day if there isn't,
' we will set the ToolTip property of the event arguments to
' "No activity", and return.
If (Not e.Day.HasActivity) Then
e.ToolTip = dayOfWeek + ": No activity"
Return
Else
' The day has activity, determine what kind(s) and how many
Dim tipText As String = String.Empty
If (e.Day.Appointments.Count > 0) Then
tipText += e.Day.Appointments.Count.ToString() + " Appointment(s)" + vbCrLf
End If
If (e.Day.Holidays.Count > 0) Then
tipText += e.Day.Holidays.Count.ToString() + " Holiday(s)" + vbCrLf
End If
If (e.Day.Notes.Count > 0) Then
tipText += e.Day.Notes.Count.ToString() + " Note(s)" + vbCrLf
End If
' Set the ToolTip property to the custom string we built
e.ToolTip = dayOfWeek + ":" + vbCrLf + tipText
End If
End Sub