フィールドオブジェクトによる書式設定

using GrapeCity.Windows.InputMan;
using GrapeCity.Windows.InputMan.Fields;

// フィールドをクリアします。 
GcDateTime1.FieldSet.Fields.Clear();
GcDateTime1.DisplayFieldSet.DisplayFields.Clear();

// 入力フィールドのオブジェクトを作成します。 
DateYearField dateYearField1 = new DateYearField(YearDigitType.FourDigitYear);
DateLiteralField dateLiteralField1 = new DateLiteralField("/");
DateMonthField dateMonthField1 = new DateMonthField(MonthPattern.Number);
DateLiteralField dateLiteralField2 = new DateLiteralField("/");
DateDayField dateDayField1 = new DateDayField();

// フィールドをコレクションに追加してコントロールに入力書式を設定します。 
GcDateTime1.FieldSet.Fields.AddRange(new DateField[] {
    dateYearField1, dateLiteralField1,  dateMonthField1,
    dateLiteralField2, dateDayField1 
});

// 表示フィールドのオブジェクトを作成します。 
DateYearDisplayField dateYearDisplayDield1 = new DateYearDisplayField(false);
DateLiteralDisplayField dateLiteralDisplayField1 = new DateLiteralDisplayField("年");
DateMonthDisplayField dateMonthDisplayField1 = new DateMonthDisplayField(false);
DateLiteralDisplayField dateLiteralDisplayField2 = new DateLiteralDisplayField("月");
DateDayDisplayField dateDayDisplayField1 = new DateDayDisplayField(false);
DateLiteralDisplayField dateLiteralDisplayField3 = new DateLiteralDisplayField("日");

// フィールドをコレクションに追加してコントロールに表示書式を設定します。 
GcDateTime1.DisplayFieldSet.DisplayFields.AddRange(new DateDisplayField[] {
    dateYearDisplayDield1, dateLiteralDisplayField1,  dateMonthDisplayField1, 
    dateLiteralDisplayField2, dateDayDisplayField1 , dateLiteralDisplayField3
});

' フィールドをクリアします。 
GcDateTime1.FieldSet.Fields.Clear()
GcDateTime1.DisplayFieldSet.DisplayFields.Clear()

' 入力フィールドのオブジェクトを作成します。 
Dim dateYearField1 As New DateYearField(YearDigitType.FourDigitYear)
Dim dateLiteralField1 As New DateLiteralField("/")
Dim dateMonthField1 As New DateMonthField(MonthPattern.Number)
Dim dateLiteralField2 As New DateLiteralField("/")
Dim dateDayField1 As New DateDayField()

' フィールドをコレクションに追加してコントロールに入力書式を設定します。 
GcDateTime1.FieldSet.Fields.AddRange(New DateField() { _
    dateYearField1, dateLiteralField1, dateMonthField1, _
    dateLiteralField2, dateDayField1})

' 表示フィールドのオブジェクトを作成します。 
Dim dateYearDisplayDield1 As New DateYearDisplayField(False)
Dim dateLiteralDisplayField1 As New DateLiteralDisplayField("年")
Dim dateMonthDisplayField1 As New DateMonthDisplayField(False)
Dim dateLiteralDisplayField2 As New DateLiteralDisplayField("月")
Dim dateDayDisplayField1 As New DateDayDisplayField(False)
Dim dateLiteralDisplayField3 As New DateLiteralDisplayField("日")

' フィールドをコレクションに追加してコントロールに表示書式を設定します。 
GcDateTime1.DisplayFieldSet.DisplayFields.AddRange(New DateDisplayField() { _
    dateYearDisplayDield1, dateLiteralDisplayField1, dateMonthDisplayField1, _
    dateLiteralDisplayField2, dateDayDisplayField1, dateLiteralDisplayField3})

<im:GcDateTime>
    <im:GcDateTime.FieldSet>
        <im:DateFieldSet>
            <im:DateYearField />
            <im:DateLiteralField Text="/" />
            <im:DateMonthField />
            <im:DateLiteralField Text="/" />
            <im:DateDayField />
        </im:DateFieldSet>
    </im:GcDateTime.FieldSet>
    <im:GcDateTime.DisplayFieldSet>
        <im:DateDisplayFieldSet>
            <im:DateYearDisplayField />
            <im:DateLiteralDisplayField Text="年" />
            <im:DateMonthDisplayField />
            <im:DateLiteralDisplayField Text="月" />
            <im:DateDayDisplayField />
            <im:DateLiteralDisplayField Text="日" />
        </im:DateDisplayFieldSet>
    </im:GcDateTime.DisplayFieldSet>
</im:GcDateTime>

// コレクションの先頭のオブジェクトを削除します。 
GcDateTime1.FieldSet.Fields.RemoveAt(0);

' コレクションの先頭のオブジェクトを削除します。 
GcDateTime1.FieldSet.Fields.RemoveAt(0)

現在有効なコード例がないか、この言語ではサポートされていません。