T
ThatsIT.net.au
I have this code that writes a pie chart in a asp.net page, but I want to
use it in a server control.
When I try I get a error on the last line "Response.OutputStream"
Obviously there is no response object but how do I write it to screen?
Dim objBitmap As New System.Drawing.Bitmap(400, 440)
Dim objGraphics As System.Drawing.Graphics
objGraphics = System.Drawing.Graphics.FromImage(objBitmap)
objGraphics.Clear(Drawing.Color.White)
Dim p As New Drawing.Pen(Drawing.Color.Yellow, 0)
Dim rect As New Drawing.Rectangle(10, 10, 280, 280)
'objGraphics.DrawEllipse(p, rect)
Dim b1 As New Drawing.SolidBrush(Drawing.Color.Red)
Dim b2 As New Drawing.SolidBrush(Drawing.Color.Green)
Dim b3 As New Drawing.SolidBrush(Drawing.Color.Blue)
objGraphics.FillPie(b1, rect, 0.0, 90.0)
objGraphics.FillPie(b2, rect, 90.0, 60.0)
objGraphics.FillPie(b3, rect, 150.0, 210.0)
Dim fontfml As New
Drawing.FontFamily(Drawing.Text.GenericFontFamilies.Serif)
Dim font As New Drawing.Font(fontfml, 14)
Dim brush As New Drawing.SolidBrush(Drawing.Color.Black)
objGraphics.DrawString("Missy Mosley", font, brush, 100, 300)
Dim i As Image = New Image
Dim mStream As MemoryStream = New MemoryStream
Dim httpApp As HttpApplication = New HttpApplication
objBitmap.Save(Response.OutputStream,
Drawing.Imaging.ImageFormat.Gif)
use it in a server control.
When I try I get a error on the last line "Response.OutputStream"
Obviously there is no response object but how do I write it to screen?
Dim objBitmap As New System.Drawing.Bitmap(400, 440)
Dim objGraphics As System.Drawing.Graphics
objGraphics = System.Drawing.Graphics.FromImage(objBitmap)
objGraphics.Clear(Drawing.Color.White)
Dim p As New Drawing.Pen(Drawing.Color.Yellow, 0)
Dim rect As New Drawing.Rectangle(10, 10, 280, 280)
'objGraphics.DrawEllipse(p, rect)
Dim b1 As New Drawing.SolidBrush(Drawing.Color.Red)
Dim b2 As New Drawing.SolidBrush(Drawing.Color.Green)
Dim b3 As New Drawing.SolidBrush(Drawing.Color.Blue)
objGraphics.FillPie(b1, rect, 0.0, 90.0)
objGraphics.FillPie(b2, rect, 90.0, 60.0)
objGraphics.FillPie(b3, rect, 150.0, 210.0)
Dim fontfml As New
Drawing.FontFamily(Drawing.Text.GenericFontFamilies.Serif)
Dim font As New Drawing.Font(fontfml, 14)
Dim brush As New Drawing.SolidBrush(Drawing.Color.Black)
objGraphics.DrawString("Missy Mosley", font, brush, 100, 300)
Dim i As Image = New Image
Dim mStream As MemoryStream = New MemoryStream
Dim httpApp As HttpApplication = New HttpApplication
objBitmap.Save(Response.OutputStream,
Drawing.Imaging.ImageFormat.Gif)