Imports System.Collections.Generic
Imports System.Linq
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Text
Imports System.Collections
Imports System.Data
Imports System.Diagnostics

Namespace ProductionSupportLibrary


    Public Class NestedDgvColumn
        Inherits DataGridViewColumn
        Public Sub New()
            MyBase.New(New NestedDgvCell())
        End Sub
        Public Overrides Property CellTemplate() As DataGridViewCell
            Get
                Return MyBase.CellTemplate
            End Get
            Set(value As DataGridViewCell)
                If (value IsNot Nothing) AndAlso Not value.[GetType]().IsAssignableFrom(GetType(NestedDgvCell)) Then
                    Throw New InvalidCastException("Must be a NestedDgvCell")
                End If
                MyBase.CellTemplate = value
            End Set
        End Property
    End Class


    Public Class NestedDgvCell
        Inherits DataGridViewCell
        Private dgv As New DataGridView()
        Private Sub SetupDGVToDraw()
            Try
                dgv.BackgroundColor = SystemColors.Control
                dgv.Size = New Size(400, 100)
                dgv.AllowUserToAddRows = False
                dgv.RowHeadersVisible = False
                dgv.ColumnHeadersVisible = False
                dgv.SelectionMode = DataGridViewSelectionMode.FullRowSelect
                dgv.BorderStyle = BorderStyle.None
                dgv.AutoGenerateColumns = False
                If TypeOf (Value) Is DataTable Then
                    Dim table As DataTable = DirectCast(Value, DataTable)
                    dgv.Columns.Clear()
                    Dim dgvColumn As DataGridViewTextBoxColumn = Nothing
                    For Each column As DataColumn In table.Columns
                        dgvColumn = New DataGridViewTextBoxColumn()
                        dgvColumn.Name = column.ColumnName
                        dgvColumn.HeaderText = column.ColumnName
                        dgvColumn.DefaultCellStyle.Format = "C2"
                        dgvColumn.ValueType = GetType(Decimal)
                        dgv.Columns.Add(dgvColumn)
                    Next
                    For Each datarow As DataRow In DirectCast(Value, DataTable).Rows
                        dgv.Rows.Add(datarow.ItemArray)
                    Next
                End If

            Catch ex As Exception

            End Try
        End Sub
        Protected Overrides Sub Paint(graphics As Graphics, clipBounds As Rectangle, cellBounds As Rectangle, rowIndex As Integer, cellState As DataGridViewElementStates, value As Object, _
         formattedValue As Object, errorText As String, cellStyle As DataGridViewCellStyle, advancedBorderStyle As DataGridViewAdvancedBorderStyle, paintParts As DataGridViewPaintParts)
            MyBase.Paint(graphics, clipBounds, cellBounds, rowIndex, cellState, value, _
             formattedValue, errorText, cellStyle, advancedBorderStyle, paintParts)
            graphics.FillRectangle(New SolidBrush(cellStyle.BackColor), cellBounds)
            SetupDGVToDraw()
            Dim abbreviation As New Bitmap(cellBounds.Width, cellBounds.Height)
            dgv.DrawToBitmap(abbreviation, New Rectangle(0, 0, cellBounds.Width, cellBounds.Height))
            graphics.DrawImage(abbreviation, cellBounds, New Rectangle(0, 0, abbreviation.Width, abbreviation.Height), GraphicsUnit.Pixel)
        End Sub
        Public Overrides Sub InitializeEditingControl(rowIndex As Integer, initialFormattedValue As Object, dataGridViewCellStyle As DataGridViewCellStyle)
            MyBase.InitializeEditingControl(rowIndex, initialFormattedValue, dataGridViewCellStyle)
        End Sub
        Public Overrides ReadOnly Property EditType() As Type
            Get
                Return GetType(DgvEditingControl)
            End Get
        End Property
        Public Overrides Property ValueType() As System.Type
            Get
                Return GetType(Object)
            End Get
            Set(value As System.Type)
            End Set
        End Property
    End Class


    Public Class DgvEditingControl
        Inherits DataGridView
        Implements IDataGridViewEditingControl
        Private dataGridViewControl As DataGridView
        Private valueIsChanged As Boolean = False
        Private rowIndexNum As Integer
        Public Property EditingControlFormattedValue() As Object Implements IDataGridViewEditingControl.EditingControlFormattedValue
            Get
                Return Me.RowCount
            End Get
            Set(value As Object)
            End Set
        End Property
        Public Function GetEditingControlFormattedValue(context As DataGridViewDataErrorContexts) As Object Implements IDataGridViewEditingControl.GetEditingControlFormattedValue
            Return Me.RowCount
        End Function
        Public Sub ApplyCellStyleToEditingControl(dataGridViewCellStyle As DataGridViewCellStyle) Implements IDataGridViewEditingControl.ApplyCellStyleToEditingControl
            Me.Font = dataGridViewCellStyle.Font
            Me.ForeColor = dataGridViewCellStyle.ForeColor
            Me.BackgroundColor = dataGridViewCellStyle.BackColor
        End Sub
        Public Property EditingControlRowIndex() As Integer Implements IDataGridViewEditingControl.EditingControlRowIndex
            Get
                Return rowIndexNum
            End Get
            Set(value As Integer)
                rowIndexNum = value
            End Set
        End Property

        Public Function EditingControlWantsInputKey(key As Keys, dataGridViewWantsInputKey As Boolean) As Boolean Implements IDataGridViewEditingControl.EditingControlWantsInputKey
            Select Case key And Keys.KeyCode
                Case Keys.Left, Keys.Up, Keys.Down, Keys.Right, Keys.Enter, Keys.Escape, _
                 Keys.Tab
                    Return True
                Case Else
                    Return False
            End Select
        End Function
        Public Sub PrepareEditingControlForEdit(selectAll As Boolean) Implements IDataGridViewEditingControl.PrepareEditingControlForEdit
        End Sub
        Public ReadOnly Property RepositionEditingControlOnValueChange() As Boolean Implements IDataGridViewEditingControl.RepositionEditingControlOnValueChange
            Get
                Return False
            End Get
        End Property
        Public Property EditingControlDataGridView() As DataGridView Implements IDataGridViewEditingControl.EditingControlDataGridView
            Get
                Return dataGridViewControl
            End Get
            Set(value As DataGridView)
                dataGridViewControl = value
            End Set
        End Property
        Public Property EditingControlValueChanged() As Boolean Implements IDataGridViewEditingControl.EditingControlValueChanged
            Get
                Return valueIsChanged
            End Get
            Set(value As Boolean)
                valueIsChanged = value
            End Set
        End Property
        Public ReadOnly Property EditingControlCursor() As Cursor
            Get
                Return MyBase.Cursor
            End Get
        End Property
        Private ReadOnly Property IDataGridViewEditingControl_EditingPanelCursor() As Cursor Implements IDataGridViewEditingControl.EditingPanelCursor
            Get
                Return EditingControlCursor
            End Get
        End Property
    End Class


End Namespace