Asp.Net > Code Snippets

A drawing example

A drawing example

<%@ Page Language="VB" ContentType="image/gif" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<Script Runat = "Server">
Sub Page_Load
Dim objBitmap As Bitmap
Dim objGraphics As Graphics
objBitmap = New Bitmap(480, 60)
objGraphics = Graphics.FromImage(objBitmap)
objGraphics.Drawline(new Pen(Color.Blue), 480, 60, 0, 0)
gs.DrawString(Text, font, new SolidBrush(ForeColor), 0, 0); 
objBitmap.Save(Response.OutputStream, ImageFormat.Gif)
objBitmap.Dispose()
objGraphics.Dispose()
End Sub
</Script>