Imports GrapeCity.Web.Input.IMCalendar
Imports GrapeCity.Web.Input.Core
' 描画スタイルを追加します。
GcCalendar1.Styles.Add("Standard")
Dim aStyle As Style = Calendar1.Styles("Standard")
' 描画スタイルの内容を設定します。
aStyle.BackColor = Color.White
aStyle.ForeColor = Color.Blue
aStyle.Font.Name = "MS ゴシック"
aStyle.Font.Size = FontUnit.Small
aStyle.BorderColor = Color.Black
aStyle.BorderStyle = BorderStyle.Solid
aStyle.BorderWidth = 1
aStyle.TextHAlign = AlignHorizontal.Center
aStyle.TextVAlign = AlignVertical.Middle
' 描画スタイルをコントロール領域へ適用します。
GcCalendar1.ControlStyle = aStyle
GcCalendar1.UseControlStyle = True
using GrapeCity.Web.Input.IMCalendar;
using GrapeCity.Web.Input.Core;
// 描画スタイルを追加します。
GcCalendar1.Styles.Add("Standard");
Style aStyle = GcCalendar1.Styles["Standard"];
// 描画スタイルの内容を設定します。
aStyle.BackColor = Color.White;
aStyle.ForeColor = Color.Blue;
aStyle.Font.Name = "MS ゴシック";
aStyle.Font.Size = FontUnit.Small;
aStyle.BorderColor = Color.Black;
aStyle.BorderStyle = BorderStyle.Solid;
aStyle.BorderWidth = 1;
aStyle.TextHAlign = AlignHorizontal.Center;
aStyle.TextVAlign = AlignVertical.Middle;
// 描画スタイルをコントロール領域へ適用します。
GcCalendar1.ControlStyle = aStyle;
GcCalendar1.UseControlStyle = true;