inserire una immagine da codice in una cella

[burrett]

con questa sub creo una immagine con una scritta e dovrei posizionare il tutto in una cella di una tabella esistente titolo come posso fare?

 

 Private Sub CreaImmagine(ByVal drawString As String)
        ' Importo il file di sfondo
        Dim objBitmap As System.Drawing.Image = System.Drawing.Image.FromFile(Server.MapPath("foto.jpg"))
        Dim objGraphic As Graphics = Graphics.FromImage(objBitmap)
        ' Formatto il testo da inserire
        Dim drawFont As Font = New Font("Tahoma", 12)
        Dim drawBrush As SolidBrush = New SolidBrush(Color.Yellow)
        ' La posizione del testo
        Dim drawPoint As PointF = New PointF(50.0F, 80.0F)
        ' Disegno la stringa di testo sull'immagine
        objGraphic.DrawString(drawString, drawFont, drawBrush, drawPoint)
        ' Imposto la tipologia di output
        Response.ContentType = "image/jpeg"
        ' Salvo in output l'immagine
        objBitmap.Save(Response.OutputStream, ImageFormat.Jpeg)
        objBitmap.Dispose()

    End Sub

grazie!!!!!!!!!

[pietro09]

nella pagina si potrebbe mettere per esempio:
[img]<%=Request.CurrentExecutionFilePath%>?testo=Prov a di scrittura[/img]

e nel codice sottostante:

        Dim a$ = Trim(Request.QueryString("testo"))
        If a.Length > 0 Then CreaImmagine(a)

[burrett]

il problema che dovrei fare tutto da codice ho provato con un tag image con un PlaceHolder ma mi da sempre errore di conversione tipo

[pietro09]

        Dim a$ = Trim(Request.QueryString("testo"))
        If a.Length > 0 Then CreaImmagine(a)

        Dim img As New System.Web.UI.WebControls.Image
        img.ImageUrl = Request.CurrentExecutionFilePath & "?testo=Prova di scrittura"
        img.Width = Unit.Pixel(300)
        Me.PlaceHolder1.Controls.Add(img)

a me funziona, pure in questo modo, da codice

[pietro09]

Beh! in effetti funziona con IE6, con Mozilla Firefox e con NN7, con altri non ho provato