GcNumber1.DisplayFields.Clear()
GcNumber1.Fields.SetFields("000000,,,,")
GcNumber1.DisplayFields.AddRange("000000,,,,")
GcNumber1.ContentAlignment = System.Drawing.ContentAlignment.MiddleLeft

GcTextBox1.MaxLength = 60
GcTextBox1.MaxLengthUnit = GrapeCity.Win.Editors.LengthUnit.Char
GcTextBox1.Format = "Ｚ"
GcTextBox1.AllowSpace = GrapeCity.Win.Editors.AllowSpace.None
GcTextBox1.AlternateText.DisplayNull.Text = "全角文字を入力できます。"
GcTextBox1.AlternateText.DisplayNull.ForeColor = Drawing.Color.Gray
GcIme1.SetInputScope(GcTextBox1, InputScopeNameValue.Hiragana)

GcTextBox2.Format = "Ｋ"
GcTextBox2.AlternateText.DisplayNull.Text = "カタカナを入力できます。"
GcTextBox2.AlternateText.DisplayNull.ForeColor = Color.Gray
GcTextBox2.AllowSpace = GrapeCity.Win.Editors.AllowSpace.None
GcIme1.SetReadingStringOutput(GcTextBox1, New ReadingStringOutput(GcTextBox2, ReadingStringOutputMode.Append))
GcIme1.SetInputScope(GcTextBox2, InputScopeNameValue.KatakanaFullWidth)

GcPostal1.Fields.ZipCodePrefix.Text = "〒"
GcPostal1.SplitAreaDetails = True
GcPostal1.AutoCompleteMode = AutoCompleteMode.SuggestAppend

GcAddressBox1.AutoFilter = True
Dim addressOutputSetting1 As AddressOutputSetting = New AddressOutputSetting With {
    .AddressOutput = GcAddressBox1
}
GcAddress1.SetAddressOutputSetting(GcPostal1, addressOutputSetting1)

GcMask1.Fields.AddRange(New MaskField() {
        New MaskLiteralField("�� "),
        New MaskPatternField("\D", 3, 4),
        New MaskLiteralField("-"),
        New MaskPatternField("\D", 3, 4),
        New MaskLiteralField("-"),
        New MaskPatternField("\D", 4, 4)})

GcDate1.Fields.AddRange(New DateField() {
                           New DateEraField(),
                           New DateLiteralField(),
                           New DateEraYearField(),
                           New DateLiteralField() With {.Text = "年"},
                           New DateMonthField(),
                           New DateLiteralField() With {.Text = "月"},
                           New DateDayField(),
                           New DateLiteralField() With {.Text = "日"}})
GcDate1.DropDownCalendar.HeaderFormat = "ggg e年 M月"
GcDate1.DropDownCalendar.UseHeaderFormat = True
Dim gcDateInvalidRange1 As GcDateValidator.InvalidRange = New GcDateValidator.InvalidRange With {
    .MaxValue = DateTime.Today,
    .MinValue = New DateTime(1926, 1, 1),
    .InvalidMessage = "昭和１年 〜 本日の範囲の日付を入力できます。"
}
GcDateValidator1.GetValidateItems(GcDate1).AddRange(New Object() {gcDateInvalidRange1})
GcDateValidator1.GetValidateActions(GcDate1).AddRange(New ValidateAction() {New IconNotify()})
GcCustomValidator1.SetValidatingMethod(GcDate1, Sub(context)
                                                    If GcDate1.Value.HasValue Then Return
                                                    context.IsValid = False
                                                    context.EnableIconNotify = True
                                                    context.IconNotify.IconTip = "入力必須項目です"
                                                End Sub)
GcCustomValidator1.SetSupportRealTimeValidating(GcDate1, True)

GcComboBox1.ListColumns.AddRange(New ListColumn() {
                                 New ListColumn("部名"),
                                 New ListColumn("課名"),
                                 New ListColumn("部課名"),
                                 New ListColumn("部課名コード")})
GcComboBox1.TextSubItemIndex = 2
GcComboBox1.DropDownStyle = ComboBoxStyle.DropDown
GcComboBox1.IsEditable = False
GcComboBox1.ListColumns(0).AutoWidth = True
GcComboBox1.ListColumns(1).AutoWidth = True
GcComboBox1.ListColumns(2).Visible = False
GcComboBox1.ListColumns(3).Visible = False
Dim list As List(Of ListItem) = New List(Of ListItem)()
For Each item As Department In GetData()
    list.Add(New ListItem(New SubItem() {
                          New SubItem(item.DepartmentName),
                          New SubItem(item.DivisionName),
                          New SubItem(item.Name),
                          New SubItem(item.Code)}))
Next
GcComboBox1.Items.AddRange(list.ToArray())

GcTextBox3.Multiline = True
GcTextBox3.WrapMode = WrapMode.CharWrap
GcTextBox3.LineSpace = 2
GcTextBox3.MaxLineCount = 5

GcTextBox1.ExitOnLastChar = true
GcTextBox1.ExitOnLeftRightKey = ExitOnLeftRightKey.Both
GcShortcut1.SetShortcuts(GcTextBox1, New ShortcutCollection(New Keys() {Keys.Enter, Keys.Enter Or Keys.Shift},
                         New Object() {GcShortcut1, GcShortcut1},
                         New String() {"NextControl", "PreviousControl"}))

''' <summary>
''' 汎用検証（必須入力）の設定
''' </summary>
''' <param name="control"></param>
Private Sub SetCommonValidate(control As EditBase)
    GcCommonValidator1.GetValidateItems(control).AddRange(New Object() {New EmptyText With {.InvalidMessage = "入力必須項目です"}})
    GcCommonValidator1.GetValidateActions(control).AddRange(New ValidateAction() {New IconNotify()})
End Sub

''' <summary>
''' カスタム検証（必須入力）の設定
''' </summary>
''' <param name="control"></param>
Private Sub SetCustomValidate(ByVal control As GcMask)
    GcCustomValidator1.SetValidatingMethod(control, Sub(context)
                                                        If String.IsNullOrEmpty(control.Value) Then
                                                            context.IsValid = False
                                                            context.EnableIconNotify = True
                                                            context.IconNotify.IconTip = "入力必須項目です"
                                                        End If
                                                    End Sub)
    GcCustomValidator1.SetSupportRealTimeValidating(control, True)
End Sub