Windows Forms

Option Explicit On
Option Strict On
Public Class Form1
  Public m_OrderDetails As Generic.List(Of OrderDetail)
  Public m_dgv As New System.Windows.Forms.DataGridView

  Public Enum GridViewColumnType
    TextBox
    InvisibleTextBox
  End Enum

  Public Sub New()
    MyBase.New()
    InitializeComponent()
    ' fake the usual load procedures with minimum so this screen can stand alone
    m_OrderDetails = New Generic.List(Of OrderDetail)
    Dim LineCounter As Int32 = 0
    Dim ItemCounter As Int32 = 0
    GenerateSetOfLines(LineCounter, ItemCounter, OrderDetail.ProductItemDealerSplitType.Percent)
    GenerateSetOfLines(LineCounter, ItemCounter, OrderDetail.ProductItemDealerSplitType.ItemCodes)
    GenerateSetOfLines(LineCounter, ItemCounter, OrderDetail.ProductItemDealerSplitType.Percent)
    GenerateSetOfLines(LineCounter, ItemCounter, OrderDetail.ProductItemDealerSplitType.Dollars)
    GenerateSetOfLines(LineCounter, ItemCounter, OrderDetail.ProductItemDealerSplitType.Percent)
    GenerateSetOfLines(LineCounter, ItemCounter, OrderDetail.ProductItemDealerSplitType.ItemCodes)
    GenerateSetOfLines(LineCounter, ItemCounter, OrderDetail.ProductItemDealerSplitType.Percent)
  End Sub

  Private Sub GenerateSetOfLines(ByRef linecount As Int32, ByRef itemcount As Int32, ByVal splittype As OrderDetail.ProductItemDealerSplitType)
    itemcount += 1
    linecount += 100
    Dim od As New OrderDetail(linecount, "ITEM" & itemcount.ToString, splittype)
    m_OrderDetails.Add(od)
    linecount += 100
    od = New OrderDetail(linecount, String.Empty, splittype)
    m_OrderDetails.Add(od)
    linecount += 100
    od = New OrderDetail(linecount, String.Empty, splittype)
    m_OrderDetails.Add(od)
  End Sub

  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Me.Size = New Size(350, 175)
    With m_dgv
      .Name = "DataGridView1"
      .Location = New Point(0, 0)
      .Dock = DockStyle.Fill
      .AutoGenerateColumns = False
      .AllowUserToAddRows = False
      .AllowUserToDeleteRows = False
      AddCol(m_dgv, "Line#", GridViewColumnType.TextBox, "DisplayLineNumberColumn", "DisplayLineNumber", True, DataGridViewContentAlignment.MiddleLeft, "00000")
      AddCol(m_dgv, "Item", GridViewColumnType.TextBox, "ItemCodeColumn", "ItemCode", True, DataGridViewContentAlignment.MiddleLeft, "")
      AddCol(m_dgv, "Split Type", GridViewColumnType.InvisibleTextBox, "SplitTypeColumn", "DealerSplitType", True, DataGridViewContentAlignment.MiddleLeft, "")
      .DataSource = m_OrderDetails
    End With
    Me.Controls.Add(m_dgv)
    m_dgv.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.DisplayedCells)
    AddHandler m_dgv.CellFormatting, AddressOf DataGridView1_CellFormatting
  End Sub

  Private Sub AddCol(ByVal grid As DataGridView, ByVal headertext As String, ByVal columntype As GridViewColumnType, ByVal name As String, ByVal propertyname As String, ByVal protect As Boolean, ByVal align As Windows.Forms.DataGridViewContentAlignment, ByVal format As String)
    Dim newcol As DataGridViewColumn
    Select Case columntype
      Case GridViewColumnType.InvisibleTextBox
        newcol = New InvisibleTextBoxColumn
      Case Else
        newcol = New DataGridViewTextBoxColumn
    End Select
    newcol.Name = name
    newcol.DataPropertyName = propertyname
    newcol.HeaderText = headertext
    newcol.ReadOnly = protect
    newcol.DefaultCellStyle.Alignment = align
    newcol.DefaultCellStyle.Format = format
    grid.Columns.Add(newcol)
  End Sub

  Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs)
    If e.ColumnIndex <> m_dgv.Columns.Item("SplitTypeColumn").Index Then
      Exit Sub
    End If
    Dim invtextbox As InvisibleTextBoxCell = CType(m_dgv.Item(e.ColumnIndex, e.RowIndex), InvisibleTextBoxCell)
    invtextbox.Invisible = (m_dgv.Item("ItemCodeColumn", e.RowIndex).Value.ToString = String.Empty)
    Dim sb As New System.Text.StringBuilder
    sb.Append("CellFormat: ")
    sb.Append(m_dgv.Item("DisplayLineNumberColumn", e.RowIndex).Value.ToString)
    sb.Append(" ")
    sb.Append(m_dgv.Item("ItemCodeColumn", e.RowIndex).Value.ToString)
    sb.Append(" ")
    sb.Append(invtextbox.Instance.ToString)
    sb.Append(" ")
    sb.Append(invtextbox.Invisible.ToString)
    Debug.Print(sb.ToString)
  End Sub
End Class

Public Class OrderDetail
  Private m_DisplayLineNumber As Int32
  Private m_ItemCode As String
  Private m_DealerSplitType As ProductItemDealerSplitType

  Public Enum ProductItemDealerSplitType
    Percent = 0
    Dollars = 1
    ItemCodes = 2
  End Enum

  Public Sub New(ByVal displaylinenumber As Int32, ByVal itemcode As String, ByVal dealersplittype As ProductItemDealerSplitType)
    m_DisplayLineNumber = displaylinenumber
    m_ItemCode = itemcode
    m_DealerSplitType = dealersplittype
  End Sub

  Public ReadOnly Property DealerSplitType() As ProductItemDealerSplitType
    Get
      Return m_DealerSplitType
    End Get
  End Property

  Public ReadOnly Property DisplayLineNumber() As Int32
    Get
      Return m_DisplayLineNumber
    End Get
  End Property

  Public ReadOnly Property ItemCode() As String
    Get
      Return m_ItemCode
    End Get
  End Property
End Class

Public Class InvisibleTextBoxCell
  Inherits Windows.Forms.DataGridViewTextBoxCell

  Private InvisibleValue As Boolean
  Private InstanceValue As Int32

  Public Property Instance() As Int32
    Get
      Return Me.InstanceValue
    End Get
    Set(ByVal value As Int32)
      Me.InstanceValue = value
    End Set
  End Property

  Public Property Invisible() As Boolean
    Get
      Return Me.InvisibleValue
    End Get
    Set(ByVal value As Boolean)
      Me.InvisibleValue = value
      If Me.DataGridView IsNot Nothing Then
        If Me.DataGridView.ReadOnly OrElse _
          Me.DataGridView.Rows.Item(Me.RowIndex).ReadOnly OrElse _
          Me.DataGridView.Columns.Item(Me.ColumnIndex).ReadOnly Then
        Else
          Me.ReadOnly = value
        End If
      End If
    End Set
  End Property

  Public Overrides Function Clone() As Object
    Dim Cell As InvisibleTextBoxCell = CType(MyBase.Clone(), InvisibleTextBoxCell)
    Cell.Invisible = Me.Invisible
    LastInstanceId += 1
    Cell.Instance = LastInstanceId
    Return Cell
  End Function

  Public Sub New()
    MyBase.New()
    Me.InvisibleValue = False
    LastInstanceId += 1
    Me.InstanceValue = LastInstanceId
  End Sub

  Protected Overrides Sub Paint(ByVal graphics As Drawing.Graphics, ByVal clipBounds As Drawing.Rectangle, ByVal cellBounds As Drawing.Rectangle, ByVal rowIndex As Integer, ByVal elementState As Windows.Forms.DataGridViewElementStates, ByVal value As Object, ByVal formattedValue As Object, ByVal errorText As String, ByVal cellStyle As Windows.Forms.DataGridViewCellStyle, ByVal advancedBorderStyle As Windows.Forms.DataGridViewAdvancedBorderStyle, ByVal paintParts As Windows.Forms.DataGridViewPaintParts)
    Dim sb As New System.Text.StringBuilder
    sb.Append("InvTxtPaint: ")
    sb.Append(MyBase.DataGridView.Rows.Item(rowIndex).Cells.Item("DisplayLineNumberColumn").Value.ToString())
    sb.Append(" ")
    sb.Append(MyBase.DataGridView.Rows.Item(rowIndex).Cells.Item("ItemCodeColumn").Value.ToString())
    sb.Append(" ")
    sb.Append(Me.InstanceValue.ToString)
    sb.Append(" ")
    sb.Append(Me.InvisibleValue.ToString.ToUpper)
    Debug.Print(sb.ToString)
    If Me.InvisibleValue Then
      ' The textbox cell is invisible, so paint the border and background
      ' Draw the background of the cell, if specified.
      If (paintParts And Windows.Forms.DataGridViewPaintParts.Background) = Windows.Forms.DataGridViewPaintParts.Background Then
        Dim cellBackground As New Drawing.SolidBrush(cellStyle.BackColor)
        graphics.FillRectangle(cellBackground, cellBounds)
        cellBackground.Dispose()
      End If
      ' Draw the cell borders, if specified.
      If (paintParts And Windows.Forms.DataGridViewPaintParts.Border) = Windows.Forms.DataGridViewPaintParts.Border Then
        PaintBorder(graphics, clipBounds, cellBounds, cellStyle, advancedBorderStyle)
      End If
    Else
      ' The textbox cell is not invisible, so let the base class handle the painting.
      MyBase.Paint(graphics, clipBounds, cellBounds, rowIndex, elementState, value, formattedValue, errorText, cellStyle, advancedBorderStyle, paintParts)
    End If
  End Sub
End Class

Public Class InvisibleTextBoxColumn
  Inherits Windows.Forms.DataGridViewTextBoxColumn

  Public Sub New()
    Me.CellTemplate = New InvisibleTextBoxCell()
  End Sub
End Class