DataGridView CodeSample - Feeding DataGridViewImageColumn in CellFormatting

Imports Gizmox.WebGUI.Common.Resources
 
Public Class Form1
    Friend WithEvents DataGridView1 As Gizmox.WebGUI.Forms.DataGridView
    Friend WithEvents DataGridViewTextBoxColumn1 As Gizmox.WebGUI.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewImageColumn1 As Gizmox.WebGUI.Forms.DataGridViewImageColumn
 
    Sub New()
 
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
 
        ' Add any initialization after the InitializeComponent() call.
        Me.DataGridView1 = New Gizmox.WebGUI.Forms.DataGridView
        Me.DataGridViewTextBoxColumn1 = New Gizmox.WebGUI.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewImageColumn1 = New Gizmox.WebGUI.Forms.DataGridViewImageColumn
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
 
        '
        'DataGridView1
        '
        Me.DataGridView1.BorderStyle = Gizmox.WebGUI.Forms.BorderStyle.FixedSingle
        Me.DataGridView1.Columns.AddRange(New Gizmox.WebGUI.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewImageColumn1})
        Me.DataGridView1.Location = New System.Drawing.Point(53, 53)
        Me.DataGridView1.Name = "DataGridView1"
        Me.DataGridView1.RowHeadersWidth = 50
        Me.DataGridView1.Size = New System.Drawing.Size(551, 150)
        Me.DataGridView1.TabIndex = 0
        Me.DataGridView1.TotalItems = 1
        '
        'DataGridViewTextBoxColumn1
        '
        Me.DataGridViewTextBoxColumn1.AutoSizeMode = Gizmox.WebGUI.Forms.DataGridViewAutoSizeColumnMode.NotSet
        Me.DataGridViewTextBoxColumn1.DefaultHeaderCellType = GetType(Gizmox.WebGUI.Forms.DataGridViewColumnHeaderCell)
        Me.DataGridViewTextBoxColumn1.MaxInputLength = -1
        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        Me.DataGridViewTextBoxColumn1.Resizable = Gizmox.WebGUI.Forms.DataGridViewTriState.[True]
        Me.DataGridViewTextBoxColumn1.SortMode = Gizmox.WebGUI.Forms.DataGridViewColumnSortMode.Automatic
        Me.DataGridViewTextBoxColumn1.Width = 100
        '
        'DataGridViewImageColumn1
        '
        Me.DataGridViewImageColumn1.AutoSizeMode = Gizmox.WebGUI.Forms.DataGridViewAutoSizeColumnMode.NotSet
        Me.DataGridViewImageColumn1.DefaultHeaderCellType = GetType(Gizmox.WebGUI.Forms.DataGridViewColumnHeaderCell)
        Me.DataGridViewImageColumn1.ImageLayout = Gizmox.WebGUI.Forms.DataGridViewImageCellLayout.Normal
        Me.DataGridViewImageColumn1.Name = "DataGridViewImageColumn1"
        Me.DataGridViewImageColumn1.Resizable = Gizmox.WebGUI.Forms.DataGridViewTriState.[True]
        Me.DataGridViewImageColumn1.SortMode = Gizmox.WebGUI.Forms.DataGridViewColumnSortMode.NotSortable
        Me.DataGridViewImageColumn1.Width = 200
 
        Me.Controls.Add(Me.DataGridView1)
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.Rows.Add(New Object() {0, ""})
        DataGridView1.Rows.Add(New Object() {1, ""})
        DataGridView1.Rows.Add(New Object() {2, ""})
        DataGridView1.Rows.Add(New Object() {3, ""})
 
    End Sub
 
    Private Sub DataGridView1_CellFormatting(ByVal sender As System.Object, ByVal e As Gizmox.WebGUI.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        e.Value = New ImageResourceHandle("AboutVWGLogo.jpg")
    End Sub
End Class