[求助]在DataGrid中添加图片列的代码何解
在网上找到一段代码，主要功能在DataGrid中添加图片列，但我不知代码的意思，不知那位兄弟姐妹帮忙解释一下，先谢谢了。

Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Data
Imports System.Collections

Public Class DataGridImageCell
Inherits DataGridTextBoxColumn
Private theImages1 As ArrayList
Private _bRect As Boolean
Private _rowNumber As Integer = 0

Property RowNumber() As Integer
Get
Return _rowNumber
End Get
Set(ByVal Value As Integer)
_rowNumber = Value
End Set
End Property

Property bRect() As Boolean
Get
Return _bRect
End Get
Set(ByVal Value As Boolean)
_bRect = Value
End Set
End Property

Public Sub New()
bRect = False
End Sub

Public Property theImages() As ArrayList
Get
Return theImages1
End Get
Set(ByVal Value As ArrayList)
theImages1 = Value
End Set
End Property

Public Sub PaintRect()
Me.Invalidate()
End Sub

Protected Overloads Overrides Sub Paint(ByVal g As System.Drawing.Graphics, ByVal bounds As System.Drawing.Rectangle, ByVal [source] As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal backBrush As System.Drawing.Brush, ByVal foreBrush As System.Drawing.Brush, ByVal alignToRight As Boolean)

Dim o As Object = Me.GetColumnValueAtRow([source], rowNum)

If Not (o Is Nothing) Then
Dim i As Integer = Fix(o)
g.FillRectangle(backBrush, bounds)

Dim bmp As Bitmap = CType(theImages(i), Bitmap)
Dim cellDrawOption As GridImageCellDrawOption = GridImageCellDrawOption.FitToCell

Dim gu As System.Drawing.GraphicsUnit = System.Drawing.GraphicsUnit.Point

Dim srcRect As RectangleF = bmp.GetBounds(gu)
Dim destRect As Rectangle = Rectangle.Empty
Dim saveRegion As [Region] = g.Clip

Select Case cellDrawOption
Case GridImageCellDrawOption.FitToCell
destRect = bounds
Case GridImageCellDrawOption.NoResize
destRect = New Rectangle(bounds.X, bounds.Y, Fix(srcRect.Width), Fix(srcRect.Height))
g.Clip = New [Region](bounds)
Case GridImageCellDrawOption.FitProportionally
If (True) Then
Dim srcRatio As Single = srcRect.Width / srcRect.Height
Dim tarRatio As Single = System.Convert.ToSingle(bounds.Width) / bounds.Height
destRect = bounds

If tarRatio < srcRatio Then
destRect.Height = Fix(destRect.Width * srcRatio)
Else
destRect.Width = Fix(destRect.Height * srcRatio)
End If
End If
Case Else
End Select

If Not destRect.IsEmpty Then
Dim destRectF As New RectangleF(destRect.X, destRect.Y, destRect.Width, destRect.Height)
Dim srcRectF As New RectangleF(srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height)

g.DrawImage(bmp, destRectF, srcRectF, gu)

End If
g.Clip = saveRegion
End If
If bRect = True And rowNum = RowNumber Then
g.DrawRectangle(System.Drawing.Pens.Black, bounds)
bRect = False
End If
End Sub 'Paint

Protected Overloads Overrides Sub Edit(ByVal [source] As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal bounds As System.Drawing.Rectangle, ByVal [readOnly] As Boolean, ByVal instantText As String, ByVal cellIsVisible As Boolean)

'overriden to avoid editing
End Sub

Public Enum GridImageCellDrawOption
FitToCell = 0
NoResize = 1
FitProportionally = 2
End Enum 'GridImageCellDrawOption
End Class


[解决办法]
在winform页面上添加调用，在DataGridImageCell内设置DataGrid的图片添加属性，同时可以动态的加入。