Tralasciando il fatto che l'argomento sia OT per questo forum, che è proibito fare crossposting, che non ho letto il regolamento e che non uso la ricerca... Buon Natale a tutti!
L'immagine l'ho ottenuta con questo codice
codice:<%@ Page Language="VB" %> <%@ Import Namespace="l=gdi.img" %> <%@ Import Namespace="g=System.Drawing" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <script runat="server"> Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) 'leggo una immagine da remoto, tempo max 30 secondi Dim bmp As g.Bitmap = l.ImgLoad("http://web.tiscali.it/archivio_esempi/immagini/Natale.jpg", 30000) 'è una immagine a pixel indicizati a scala di grigi, non è possibile scriverci sopra 'la converto nel formato 32bppARGB l.imgToFormat32bppARGB(bmp) 'la ridimensiono lato max = 400px l.ImgResize(bmp, 400) 'ci scrivo sopra Buon Natale, colore rosso Dim f As New g.Font("vivaldi", 36, Drawing.FontStyle.Italic Or Drawing.FontStyle.Bold, Drawing.GraphicsUnit.Pixel) l.ImgWriteText(bmp, "Buon Natale", Drawing.Brushes.Red, f, 0, 0) 'gli metto un bordo nero di 4 pixel l.ImgBorder(bmp, 4, Drawing.Color.Black) 'la ruoto in senso antiorario di 25 ° l.ImgRotate(bmp, 25, Drawing.Color.Transparent) 'la trasformo in gif, mantenendo la trasparenza l.MakeTransparentGif(bmp) 'la salvo su file l.ImgSaveToFile(bmp, "c:\tmp\Natale2007.gif", gdi.img.FormatoOutput.gif) 'la salvo nel flusso di uscita: il dispose è automatico l.ImgSaveToResponseOutputStream(bmp, gdi.img.FormatoOutput.gif) End Sub </script> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server"> <title>Pagina senza titolo</title> </head> <body> <form id="form1" runat="server"> <div> </div> </form> </body> </html>
Rispondi quotando
