'宣言 Public Property EditAppearance As Infragistics.Win.AppearanceBase
public Infragistics.Win.AppearanceBase EditAppearance {get; set;}
Imports Infragistics.Win Imports Infragistics.Win.UltraWinSchedule Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim appearance As Infragistics.Win.Appearance = New Infragistics.Win.Appearance() Appearance.BackColor = Color.AntiqueWhite Appearance.ForeColor = Color.DarkBlue Appearance.FontData.Name = "Verdana" Me.UltraWeekView1.EditAppearance = Appearance Me.UltraMonthViewSingle1.EditAppearance = Appearance Me.UltraWeekView1.CalendarInfo.Appointments.Add(DateTime.Now, DateTime.Now.AddMinutes(30), "My Appointment") Me.UltraMonthViewSingle1.CalendarInfo.Appointments.Add(DateTime.Now, DateTime.Now.AddMinutes(30), "My Appointment") End Sub
using Infragistics.Win; using Infragistics.Win.UltraWinSchedule; private void button1_Click(object sender, System.EventArgs e) { Infragistics.Win.Appearance appearance = new Infragistics.Win.Appearance(); appearance.BackColor = Color.AntiqueWhite; appearance.ForeColor = Color.DarkBlue; appearance.FontData.Name = "Verdana"; this.ultraWeekView1.EditAppearance = appearance; this.ultraMonthViewSingle1.EditAppearance = appearance; this.ultraWeekView1.CalendarInfo.Appointments.Add( DateTime.Now, DateTime.Now.AddMinutes( 30 ), "My Appointment" ); Me.UltraMonthViewSingle1.CalendarInfo.Notes.Add(DateTime.Today, "My Note") }