Private Sub UltraMonthViewSingle1_BeforeActivitiesDeleted(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinSchedule.BeforeActivitiesDeletedEventArgs) Handles ultraMonthViewSingle.BeforeActivitiesDeleted
'----------------------------------------------------------------------------------------------------
' 説明
' BeforeActivitiesDeleted
'
' コントロール UI で 1 つ以上の Appointment または Note を削除する前に発生します
' イベントがキャンセルされる場合、アクティビティは削除されずに、AfterActivitiesDeleted イベントも発生しません
'
'----------------------------------------------------------------------------------------------------
' コントロールのデフォルト ダイアログを非表示にするには
' DisplayPromptMsg プロパティを False に設定します
e.DisplayPromptMsg = False
' コントロールはすべての選択された予定およびメモを削除するため、
' 選択された予定の数を取得します
Dim selectedAppointmentCount As Integer = Me.ultraMonthViewSingle1.CalendarInfo.SelectedAppointments.Count
' 選択された Appointment がない場合、Note のみを削除します
' 確認ダイアログを表示する必要がありませんイベント引数の 'Cancel' プロパティのデフォルト設定は False です
' ここに返すと、プロンプトを表示せずに
' Note を削除します
If selectedAppointmentCount = 0 Then Return
' ダイアログ文字列を作成します
Dim info As String = String.Empty
info += selectedAppointmentCount.ToString() + " Appointment(s) will be deleted." + vbCrLf
info += "Choose Yes to delete the Appointments, or No to exit without deleting them."
' カスタム ダイアログを表示します
Dim result As DialogResult = MessageBox.Show(info, "Delete selected Appointments", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
' [いいえ] が選択された場合、イベント引数の 'Cancel' プロパティを True に設定します
If result = DialogResult.No Then e.Cancel = True
End Sub