Imports System.Diagnostics Imports Infragistics.Win Imports Infragistics.Win.UltraWinSchedule Private Sub UltraDayView1_BeforeAppointmentToolTipDisplayed(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.BeforeAppointmentToolTipDisplayedEventArgs) Handles UltraDayView1.BeforeAppointmentToolTipDisplayed Dim dr As DialogResult = MessageBox.Show(Me, "The appointment '" + e.Appointment.Subject + "' is about to have its tooltip displayed. Do you want to cancel the tooltip display?", "Cancelable DayView Event", MessageBoxButtons.YesNo) If dr = DialogResult.Yes Then e.Cancel = True End If dr = MessageBox.Show(Me, "Do you want to change the tooltip text to 'Hellow World'?", "Cancelable DayView Event", MessageBoxButtons.YesNo) If dr = DialogResult.Yes Then e.ToolTipText = "Hello World" End If End Sub
using System.Diagnostics; using Infragistics.Win; using Infragistics.Win.UltraWinSchedule; private void ultraDayView1_BeforeAppointmentToolTipDisplayed(object sender, Infragistics.Win.UltraWinSchedule.BeforeAppointmentToolTipDisplayedEventArgs e) { DialogResult dr = MessageBox.Show(this, "The appointment '" + e.Appointment.Subject + "' is about to have its tooltip displayed. Do you want to cancel the tooltip display?", "Cancelable DayView Event", MessageBoxButtons.YesNo); if (dr == DialogResult.Yes) e.Cancel = true; dr = MessageBox.Show(this, "Do you want to change the tooltip text to 'Hellow World'?", "Cancelable DayView Event", MessageBoxButtons.YesNo); if (dr == DialogResult.Yes) e.ToolTipText = "Hello World"; }