DataGrid: Cómo crear una columna en la que se muestren Images ???

[GeRuNdIo]

Listo, econtré la solución...... Si es que el que no busca no encuentra....

Pego aqui el código para los que tengan este mismo problemilla:

Private Sub LlenaDataGrid(ByVal t As String)
Dim conexion As New SqlConnection("server=(local);database=pruebaPorta lnoticias;user=sa;")

Dim sql As String
sql = "SELECT textonoticia AS [Noticia], imagen FROM noticias WHERE tipo_noticia='"
Dim ds As New DataSet
Dim da As New SqlDataAdapter

conexion.Open()
Select Case t
Case "Deportes"
sql = sql & "Deportes'"
Case "Política"
sql = sql & "Politica'"
Case "General"
sql = sql & "General'"
End Select

da.SelectCommand = New SqlCommand(sql, conexion)
da.Fill(ds)

Me.DataGrid1.DataSource = ds
Me.DataGrid1.DataBind()
conexion.Close()

End Sub

Private Sub MyDataGrid_ItemDataBound(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound

If e.Item.ItemType = ListItemType.Item Or _
e.Item.ItemType = ListItemType.AlternatingItem Then

Dim hgc_control As New HtmlGenericControl

With hgc_control
.TagName = "img"
.Attributes.Add("src", "/webappprueba/" & e.Item.DataItem("imagen"))
.Attributes.Add("border", "0")
End With

e.Item.Cells(1).Controls.Clear() 'Columna a reemplazar

e.Item.Cells(1).Controls.Add(hgc_control)

End If
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LlenaDataGrid(Me.Button1.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
LlenaDataGrid(Me.Button2.Text)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
LlenaDataGrid(Me.Button3.Text)
End Sub