Imports Infragistics.WebUI.Shared Imports Infragistics.WebUI.WebSchedule ... Private Function CreateAppointment() As Appointment 'WebScheduleInfo によって所有される空のアクティビティを作成します。 Dim appt As New Appointment(Me.WebScheduleInfo1) 'アクティビティで永続的なプロパティを設定します。 appt.Subject = "My Thirty-Minute Appointment" appt.Duration = New TimeSpan(0, 30, 0) ' Key プロパティを各予定の一意の値に設定します。 appt.Key = "100" 'ResourceKey プロパティを設定して、アクティビティを構成するリソースとリンクします。 appt.ResourceKey = Me.WebScheduleInfo1.VisibleResources.UnassignedResource.Key '新たに初期化されたアクティビティを返します。 CreateAppointment = appt End Function