Code:
' copy this code in a new proyect
Public Class Form1
WithEvents DataGridView1 As DataGridView, PBX As PictureBox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
DataGridView1 = New DataGridView
DataGridView1.Location = New Point(100, 100)
DataGridView1.Size = New Point(300, 200)
DataGridView1.Visible = True
Me.Controls.Add(DataGridView1)
PBX = New PictureBox
PBX.Location = New Point(420, 100)
PBX.Size = New Point(200, 200)
PBX.BorderStyle = BorderStyle.FixedSingle
PBX.SizeMode = PictureBoxSizeMode.StretchImage
PBX.Visible = True
Me.Controls.Add(PBX)
Dim DT(1) As DataTable
DT(1) = New DataTable
Dim DC As DataColumn
DC = New DataColumn("Column1", GetType(Object))
DT(1).Columns.Add(DC)
DC.ColumnName = "A"
DC = New DataColumn("Column2")
DT(1).Columns.Add(DC)
DC.ColumnName = "B"
Dim IMG1 As Image = Image.FromFile("C:\MMS FILES\RESOURCES\SCR1.jpg")
Dim IMG2 As Image = Image.FromFile("C:\MMS FILES\RESOURCES\Perfx.jpg")
DT(1).Rows.Add(IMG1, "222")
DT(1).Rows.Add(IMG2, "YYY")
DataGridView1.DataSource = DT(1)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub DataGridView2_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.RowEnter
On Error Resume Next
PBX.Image = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
End Sub
End Class
Comment