Imports InputManCell = GrapeCity.Win.CalendarGrid.InputMan
Dim today As DateTime = DateTime.Today
Dim GcTimeSpanCellType As New InputManCell.CalendarGcTimeSpanCellType()
' セルにフィールドを設定
GcTimeSpanCellType.Fields.Clear()
GcTimeSpanCellType.Fields.AddRange("hh時間mm分ss秒,0,.,,,-,")
GcTimeSpanCellType.ClipContent = InputManCell.ClipContent.ExcludeLiterals
' 数値入力フィールドのスタイルを設定
GcTimeSpanCellType.Fields(1).BackColor = Color.MediumPurple
GcTimeSpanCellType.Fields(1).ForeColor = Color.White
GcTimeSpanCellType.Fields(1).Font = New System.Drawing.Font("Arial", 14.0F)
GcTimeSpanCellType.Fields(3).BackColor = Color.MediumPurple
GcTimeSpanCellType.Fields(3).ForeColor = Color.White
GcTimeSpanCellType.Fields(3).Font = New System.Drawing.Font("Arial", 14.0F)
GcTimeSpanCellType.Fields(5).BackColor = Color.MediumPurple
GcTimeSpanCellType.Fields(5).ForeColor = Color.White
GcTimeSpanCellType.Fields(5).Font = New System.Drawing.Font("Arial", 14.0F)
GcCalendarGrid1.Content(today).Rows(1).Cells(0).CellType = GcTimeSpanCellType
GcCalendarGrid1.Content(today).Rows(1).Cells(0).CellStyle.BackColor = Color.Azure
GcCalendarGrid1.Content(today).Rows(1).Cells(0).Value = New TimeSpan(1, 20, 30)
GcCalendarGrid1.ScrollIntoView(today)
using InputManCell = GrapeCity.Win.CalendarGrid.InputMan;
DateTime today = DateTime.Today;
var gcTimeSpanCellType = new InputManCell.CalendarGcTimeSpanCellType();
// セルにフィールドを設定
gcTimeSpanCellType.Fields.Clear();
gcTimeSpanCellType.Fields.AddRange("hh時間mm分ss秒,0,.,,,-,");
gcTimeSpanCellType.ClipContent = InputManCell.ClipContent.ExcludeLiterals;
// 数値入力フィールドのスタイルを設定
gcTimeSpanCellType.Fields[1].BackColor = Color.MediumPurple;
gcTimeSpanCellType.Fields[1].ForeColor = Color.White;
gcTimeSpanCellType.Fields[1].Font = new System.Drawing.Font("Arial", 14f);
gcTimeSpanCellType.Fields[3].BackColor = Color.MediumPurple;
gcTimeSpanCellType.Fields[3].ForeColor = Color.White;
gcTimeSpanCellType.Fields[3].Font = new System.Drawing.Font("Arial", 14f);
gcTimeSpanCellType.Fields[5].BackColor = Color.MediumPurple;
gcTimeSpanCellType.Fields[5].ForeColor = Color.White;
gcTimeSpanCellType.Fields[5].Font = new System.Drawing.Font("Arial", 14f);
gcCalendarGrid1.Content[today].Rows[1].Cells[0].CellType = gcTimeSpanCellType;
gcCalendarGrid1.Content[today].Rows[1].Cells[0].CellStyle.BackColor = Color.Azure;
gcCalendarGrid1.Content[today].Rows[1].Cells[0].Value = new TimeSpan(1, 20, 30);
gcCalendarGrid1.ScrollIntoView(today);