Imports GrapeCity.Win.MultiRow
Imports InputManCell = GrapeCity.Win.MultiRow.InputMan

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Dim GcDateTimeCell1 As New InputManCell.GcDateTimeCell()

    ' 最大日付と最小日付を設定します。 
    GcDateTimeCell1.MaxDate = DateTime.Parse("2100/12/31 23:59:59")
    GcDateTimeCell1.MinDate = DateTime.Parse("2000/1/1 0:00:00")

    ' 範囲外の場合に値をどのように制御するかを設定します。 
    GcDateTimeCell1.MaxMinBehavior = GrapeCity.Win.Editors.MaxMinBehavior.CancelInput

    GcMultiRow1.Template = Template.CreateGridTemplate(New Cell() {GcDateTimeCell1})
End Sub

Private Sub GcMultiRow1_EditingControlShowing(sender As Object, e As EditingControlShowingEventArgs) Handles GcMultiRow1.EditingControlShowing
    If (TypeOf (e.Control) Is InputManCell.GcDateTimeEditingControl) Then

        Dim editor As InputManCell.GcDateTimeEditingControl = DirectCast(e.Control, InputManCell.GcDateTimeEditingControl)

        RemoveHandler editor.InvalidInput, AddressOf editor_InvalidInput
        AddHandler editor.InvalidInput, AddressOf editor_InvalidInput
    End If
End Sub

Private Sub editor_InvalidInput(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim InvalidInputEventArgs As GrapeCity.Win.Editors.InvalidInputEventArgs = TryCast(e, GrapeCity.Win.Editors.InvalidInputEventArgs)
    If InvalidInputEventArgs Is Nothing Then
        Exit Sub
    End If

    ' 値が範囲外の場合には、メッセージを表示します。 
    If InvalidInputEventArgs.ValueOutOfRange Then
        MessageBox.Show("範囲外の値です。")
    End If
End Sub

Imports GrapeCity.Win.MultiRow
Imports InputManCell = GrapeCity.Win.MultiRow.InputMan

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Dim GcDateTimeCell1 = New InputManCell.GcDateTimeCell()

    ' セルに値を設定して、クリップボードにコピーします。 
    GcDateTimeCell1.Fields.Clear()
    GcDateTimeCell1.Fields.AddRange("ggg ee年 MM月 dd日 hh時 mm分 ss秒")
    GcDateTimeCell1.ClipContent = GrapeCity.Win.Editors.ClipContent.ExcludeLiterals

    Dim TextBoxCell1 As New TextBoxCell()

    ' MultiRowのテンプレートを設定します。   
    GcMultiRow1.Template = Template.CreateGridTemplate(New Cell() {GcDateTimeCell1, TextBoxCell1})
    GcMultiRow1.RowCount = 5
End Sub

Private Sub GcMultiRow1_EditingControlShowing(sender As Object, e As EditingControlShowingEventArgs) Handles GcMultiRow1.EditingControlShowing
    If TypeOf e.Control Is InputManCell.GcDateTimeEditingControl Then
        ' GcCharMaskCellの編集用コントロールが表示された場合にKeyDownイベントを設定します。   
        RemoveHandler e.Control.KeyDown, AddressOf Editor_KeyDown
        AddHandler e.Control.KeyDown, AddressOf Editor_KeyDown
    End If
End Sub

Private Sub Editor_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs)

    Dim cell As Cell = GcMultiRow1.CurrentCell

    If e.KeyCode = Keys.F8 Then
        Dim editor As InputManCell.GcDateTimeEditingControl = DirectCast(sender, InputManCell.GcDateTimeEditingControl)

        ' Numberプロパティを使用して値を設定します。
        editor.Number = 20091001000000

        ' クリップボードにコピーします。   
        editor.SelectionStart = 0
        editor.SelectionLength = editor.Text.Length
        Clipboard.SetDataObject(editor.SelectedText)

        ' クリップボードのデータを取得して確認します。   
        Dim cbData As IDataObject = Clipboard.GetDataObject()
        GcMultiRow1(cell.RowIndex, cell.CellIndex + 1).Value = cbData.GetData(DataFormats.Text).ToString()
    End If
End Sub

Imports GrapeCity.Win.MultiRow
Imports InputManCell = GrapeCity.Win.MultiRow.InputMan

Dim GcDateTimeCell1 = New InputManCell.GcDateTimeCell()
' フィールドをクリアします。  
GcDateTimeCell1.Fields.Clear()
' キーワードから書式を設定します。  
GcDateTimeCell1.Fields.AddRange("yyyy/MM")
' RecommendedValueプロパティに非表示フィールドのデフォルト値を設定します。 
GcDateTimeCell1.RecommendedValue = New DateTime(2000, 1, 1, 12, 0, 0)
' ValueプロパティにNothingを設定します。 
GcDateTimeCell1.Value = Nothing

GcMultiRow1.Template = Template.CreateGridTemplate(New Cell() {GcDateTimeCell1})
GcMultiRow1.RowCount = 5