Imports GrapeCity.Win.CalendarGrid
Dim weekView As New CalendarWeekView()
GcCalendarGrid1.CalendarView = weekView
GcCalendarGrid1.FirstDateInView = New DateTime(2014, 6, 1)
GcCalendarGrid1.Content(new DateTime(2014, 6, 4)).Rows(0).Cells(0).RowSpan = 4
GcCalendarGrid1.Content(new DateTime(2014, 6, 4)).Rows(0).Cells(0).DateFormat = ""
GcCalendarGrid1.Content(new DateTime(2014, 6, 4)).Rows(0).Cells(0).Value = "定休日"
GcCalendarGrid1.Content(new DateTime(2014, 6, 4)).Rows(0).Cells(0).CellStyle.BackColor = Color.WhiteSmoke
GcCalendarGrid1.Content(new DateTime(2014, 6, 4)).Rows(0).Cells(0).CellStyle.Alignment = CalendarGridContentAlignment.MiddleCenter
using GrapeCity.Win.CalendarGrid;
var weekView = new CalendarWeekView();
gcCalendarGrid1.CalendarView = weekView;gcCalendarGrid1.FirstDateInView = new DateTime(2014, 6, 1);
gcCalendarGrid1.Content[new DateTime(2014, 6, 4)].Rows[0].Cells[0].RowSpan = 4;
gcCalendarGrid1.Content[new DateTime(2014, 6, 4)].Rows[0].Cells[0].DateFormat = "";
gcCalendarGrid1.Content[new DateTime(2014, 6, 4)].Rows[0].Cells[0].Value = "定休日";
gcCalendarGrid1.Content[new DateTime(2014, 6, 4)].Rows[0].Cells[0].CellStyle.BackColor = Color.WhiteSmoke;
gcCalendarGrid1.Content[new DateTime(2014, 6, 4)].Rows[0].Cells[0].CellStyle.Alignment = CalendarGridContentAlignment.MiddleCenter;