Private Sub UltraMonthViewSingle1_AfterActivitiesDeleted(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ultraMonthViewSingle.AfterActivitiesDeleted
'----------------------------------------------------------------------------------------------------
' 説明
' AfterActivitiesDeleted
'
' コントロール UI で 1 つ以上の Appointment または Note を削除した後に発生します
' BeforeActivitiesDeleted イベントをキャンセルしないと、AfterActivitiesDeleted イベントが発生します
'
'----------------------------------------------------------------------------------------------------
' 各アクティビティ コレクションのカウントを取得します
Dim appointmentCount As Integer = Me.ultraMonthViewSingle.CalendarInfo.Appointments.Count
Dim noteCount As Integer = Me.ultraMonthViewSingle.CalendarInfo.Notes.Count
' 新しいカウントの情報を含む MessageBox を表示します
Dim info As String = String.Empty
info += "There are currently " + appointmentCount.ToString() + " Appointment(s), "
info += "and " + noteCount.ToString() + " Note(s) remaining."
MessageBox.Show(info, "AfterActivitiesDeleted", MessageBoxButtons.OK)
End Sub