CalendarInfo プロパティ (AppointmentAction)

Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule

    Private Sub SetupAppointment()

        '	Create a new Appointment object. Make its start time five minutes from now, and
        '	make its end time a half an hour later
        Dim appointment As Appointment = New Appointment(DateTime.Now.AddMinutes(5.0F), DateTime.Now.AddMinutes(35.0F))

        '	Set the subject of the appointment
        appointment.Subject = "Appointment subject"

        '	Set the location of the appointment
        appointment.Location = "Appointment location"

        '	Set the description of the appointment
        appointment.Description = "Appointment description"

        '	Set up a reminder for the appointment, set to activate 5 minutes before
        '	the appointment's start time
        Me.SetReminder(appointment, 5)

        '	Set the AllDayEvent property to false
        appointment.AllDayEvent = False

        '	Set the bar color to red...note that this will only be
        '	displayed by the UltraDayView control.
        appointment.BarColor = Color.Red

        '	Set the Tag property to the form on which the component is sited
        appointment.Tag = Me

        '	Now that the appointment has been configured, add it to
        '	the UltraCalendarInfo object's Appointments collection
        Me.ultraCalendarInfo1.Appointments.Add(appointment)

        '	See if the day that corresponds to the appointment's StartDateTime
        '	is Selected, if it is, make the appointment selected as well
        If appointment.Day.Selected Then appointment.Selected = True

        '	Set up an action to be performed when the appointment activates
        Me.SetAction(appointment)

    End Sub

    Private Sub SetAction(ByVal appointment As Appointment)

        '--------------------------------------------------------------------------------
        '	Demonstrates how to use an appointment's Action object property
        '--------------------------------------------------------------------------------

        '	Make sure the appointment is useable before continuing
        If appointment Is Nothing Or appointment.Disposed Then Return

        '	Create a new AppointmentAction object
        Dim action As AppointmentAction = New AppointmentAction()

        '	Set the action's command string to launch Notepad
        action.Command = "Notepad.exe"

        '	Create a simple text file, and write the appointment's
        '	description out to it
        Dim fileName As String = Application.CommonAppDataPath + "\action.txt"
        Dim output As TextWriter = File.AppendText(fileName)
        output.WriteLine(appointment.Description)
        output.Close()

        '	Set the action's Parameters property to the text file
        '	we created, so that it will be opened when the action
        '	is launched
        action.Parameters = fileName

			' Set the Action type to 'Execute Program'
			action.Type = AppointmentActionType.ExecuteProgram
  
        '	Set the Tag property to the form on which the component is sited
        action.Tag = Me

        '	Assign the AppointmentAction object to the
        '	specified Appointment's Action property
        appointment.Action = action

        '	Enable the action
        appointment.Action.Enabled = True

    End Sub

    Private Sub SetReminder(ByVal appointment As Appointment, ByVal minutes As Integer)

        '--------------------------------------------------------------------------------
        '	Sets a reminder for the specified appointment
        '--------------------------------------------------------------------------------

        '	Make sure the appointment is useable before continuing
        If appointment Is Nothing Or appointment.Disposed Then Return

        '	Make sure the value of the minutes parameter is valid
        If minutes < 0 Then Return

        '	Create a new reminder and assign it to the Appointment
        Dim reminder As Reminder = New Reminder()

        '	Set the reminder's Enabled property to false until we are
        '	finished configuring it
        reminder.Enabled = False

        '	Since this method specifies the time to wait in minutes, set
        '	the reminder's DisplayIntervalUnits property to Minutes
        reminder.DisplayIntervalUnits = DisplayIntervalUnits.Minutes

        '	Set the DisplayInterval property to the value of the 'minutes' parameter
        reminder.DisplayInterval = minutes

        '	Set the DialogText property
        reminder.DialogText = "My Reminder"

        '	Set the Tag property to the form on which the component is sited
        reminder.Tag = Me

        '	Set the appointment's Reminder property to the
        '	Reminder object we just created
        appointment.Reminder = reminder

        '	Now that it has been configured, set the reminder's
        '	Enabled property to true. This will start the timer.
        reminder.Enabled = True

    End Sub