Visual Basic

Public Class AcColorCell
  Inherits DataGridViewTextBoxCell

  <DebuggerNonUserCode()> _
  Protected Overrides Sub Paint(ByVal graphics As Graphics, ByVal clipBounds As Rectangle, ByVal cellBounds As Rectangle, ByVal rowIndex As Integer, ByVal elementState As DataGridViewElementStates, ByVal value As Object, _
    ByVal formattedValue As Object, ByVal errorText As String, ByVal cellStyle As DataGridViewCellStyle, ByVal advancedBorderStyle As DataGridViewAdvancedBorderStyle, ByVal paintParts As DataGridViewPaintParts)
      'formattedValue = Nothing

      MyBase.Paint(graphics, clipBounds, cellBounds, rowIndex, elementState, value, formattedValue, errorText, cellStyle, advancedBorderStyle, paintParts)

      If Me.RowIndex < 0 Then Exit Sub

      Dim ColorBoxRect As New Rectangle(cellBounds.X, cellBounds.Y, cellBounds.Width - 1, cellBounds.Height - 3)
      ColorBoxRect.Inflate(-1, -1)
      ColorBoxRect.Width = 18
      ColorBoxRect.Offset(1, 0)

      Dim TextBoxRect As New RectangleF(cellBounds.X + ColorBoxRect.Width + 4, _
                                        cellBounds.Y, cellBounds.Width - 1, cellBounds.Height - 1)

          Dim cellBackground As SolidBrush

          If Not Me.Value Is DBNull.Value Then
            If Me.Value <> 0 Then
              Dim AcColor As Autodesk.AutoCAD.Colors.Color
              Dim ColorValue As Short = CShort(Me.Value)

              AcColor = Autodesk.AutoCAD.Colors.Color.FromColorIndex(Autodesk.AutoCAD.Colors.ColorMethod.ByAci, ColorValue)

              Dim r As Byte = AcColor.ColorValue.R
              Dim g As Byte = AcColor.ColorValue.G
              Dim b As Byte = AcColor.ColorValue.B
              Dim Color As Drawing.Color = Drawing.Color.FromArgb(r, g, b)

              cellBackground = New SolidBrush(Color)

              graphics.FillRectangle(cellBackground, ColorBoxRect)
              graphics.DrawRectangle(Pens.Black, ColorBoxRect)
              graphics.DrawString(AcColor.ToString, cellStyle.Font, System.Drawing.Brushes.Black, TextBoxRect)

              cellBackground.Dispose()


            End If
          End If
  End Sub

End Class

Public Class AcColorColumn
  Inherits DataGridViewColumn

  Public Sub New()
    MyBase.CellTemplate = New AcColorCell
  End Sub

End Class

Public Class AcLineweightCell
  Inherits Windows.Forms.DataGridViewTextBoxCell

  'skip the following while debugging
  <DebuggerNonUserCode()> _
  Protected Overrides Sub Paint(ByVal graphics As System.Drawing.Graphics, ByVal clipBounds As System.Drawing.Rectangle, ByVal cellBounds As System.Drawing.Rectangle, ByVal rowIndex As Integer, ByVal cellState As System.Windows.Forms.DataGridViewElementStates, ByVal value As Object, ByVal formattedValue As Object, ByVal errorText As String, ByVal cellStyle As System.Windows.Forms.DataGridViewCellStyle, ByVal advancedBorderStyle As System.Windows.Forms.DataGridViewAdvancedBorderStyle, ByVal paintParts As System.Windows.Forms.DataGridViewPaintParts)
    MyBase.Paint(graphics, clipBounds, cellBounds, rowIndex, cellState, value, formattedValue, errorText, cellStyle, advancedBorderStyle, paintParts)

    If Me.RowIndex < 0 Then Exit Sub

    If Not Me.Value Is DBNull.Value Then
      If Me.Value <> "" Then
        'Get value of cell
        Dim cellvalue As String = Me.Value

        'Get AutoCAD lineweight of value
        Dim lwconv As AcDb.LineWeightConverter = New AcDb.LineWeightConverter()
        Dim lw As AcDb.LineWeight = Nothing

        'Get the number of pixels that represent the lineweight
        Dim px As Integer = GetLineweightPixel(cellvalue)

        'Get rectangle where we can draw the lineweight
        Dim lwrect As New Rectangle(cellBounds.X, cellBounds.Y, cellBounds.Width - 1, px)
        lwrect.Width = 70
        lwrect.Height = px

        'Offset the rectangle from the top of the cell to center the lineweight display
        lwrect.Offset(0, Math.Round(cellBounds.Height / 2) - CInt(Math.Round(px / 2)))
        'Get rectangle where we can draw the cell value
        'Dim txrect As New RectangleF(cellBounds.X, lwrect.Width + 4, cellBounds.Width - 1, cellBounds.Height - 1)

        Dim newfont As New Font("Tahoma", 8.25, FontStyle.Regular, GraphicsUnit.Pixel)


        Dim cellBackground As New SolidBrush(Color.Black)
        graphics.FillRectangle(cellBackground, lwrect)

        cellBackground.Dispose()

      End If

    End If

  End Sub

Public Class MultiLineListview
    Inherits System.Windows.Forms.ListView
    Dim _Font As Font = MyBase.Font
    Sub New()
      Me.OwnerDraw = True
      Me.View = Windows.Forms.View.Details
      Me.FullRowSelect = True
      Me.HoverSelection = False
    End Sub

    Protected Overrides Sub OnDrawColumnHeader(ByVal e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs)
      e.DrawDefault = True
      MyBase.OnDrawColumnHeader(e)
    End Sub
    Protected Overrides Sub OnDrawSubItem(ByVal e As System.Windows.Forms.DrawListViewSubItemEventArgs)
      On Error Resume Next

      If e.ItemIndex > -1 And e.ItemIndex < Me.Items.Count Then
        Dim sText As String = e.SubItem.Text
        Dim sLines() As String = Split(sText, vbCrLf)
        If InStr(1, e.ItemState.ToString.ToLower, "selected") > 0 Then
          e.Graphics.FillRectangle(SystemBrushes.Highlight, e.Bounds)
        Else
          e.Graphics.FillRectangle(SystemBrushes.Window, e.Bounds)
        End If
        e.Graphics.DrawRectangle(SystemPens.Control, e.Bounds)
        e.Graphics.DrawString(sText, Me.Font, SystemBrushes.WindowText, e.Bounds.Left, e.Bounds.Top)
      End If
      MyBase.OnDrawSubItem(e)
    End Sub


    Protected Overrides Sub OnCreateControl()
      On Error Resume Next
      Me.Items.Clear()
    End Sub
  End Class

Protected Overrides Sub OnMeasureItem(ByVal e As System.Windows.Forms.MeasureItemEventArgs)
      On Error Resume Next
      If e.Index > -1 And e.Index < Me.Items.Count Then
        Dim sSize As SizeF

        Dim sText As String = Me.Items(e.Index).ToString()
        'Dim sLines() As String = Split(sText, vbCrLf)

        sSize = e.Graphics.MeasureString(sText, Me.Font)
        e.ItemHeight = sSize.Height '* (sLines.GetUpperBound(0))
      End If
      MyBase.OnMeasureItem(e)
    End Sub