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 GcNumberCell1 As New InputManCell.GcNumberCell()

    ' 最大値と最小値を設定します。  
    GcNumberCell1.MaxValue = 100
    GcNumberCell1.MinValue = 0

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

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

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

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

        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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim GcNumberCell1 = New InputManCell.GcNumberCell()

    ' セルに値を設定します。  
    GcNumberCell1.Fields.SignPrefix.PositivePattern = "\"
    GcNumberCell1.Fields.SignPrefix.NegativePattern = "\-"
    GcNumberCell1.Value = 10000
    GcNumberCell1.ClipContent = GrapeCity.Win.Editors.ClipContent.ExcludeLiterals

    Dim TextBoxCell1 As New TextBoxCell()

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

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

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

    Dim cell As Cell = GcMultiRow1.CurrentCell

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

        ' クリップボードにコピーします。      
        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