Oprettelse af graphics-objekt

Skal bruges til en web-applikation

Her er et eksempel på det:

http://www.123aspx.com/redir.aspx?res=455

/askhoej

<%@ Page Language="vb" %> 
<%@ import namespace="system.drawing" %> 
<%@ import namespace="system.drawing.imaging" %> 
<%@ import namespace="system.drawing.drawing2d" %> 

<script language="vb" runat="server"> 
Public height as Integer = 300
Public width as Integer = 400

Sub Page_load(obj as Object, E as EventArgs)
    Dim b As New system.drawing.bitmap(width, height, pixelformat.Format16bppRgb555) 

  ' Sæt content type 
    response.contenttype="image/Png" 
    dim g as graphics = graphics.fromimage(b) 
    DrawImage(g)
 
    Dim MS as System.IO.MemoryStream = new System.IO.MemoryStream()
    b.save(MS, imageformat.Png) 
    b.dispose() 
    Dim buffer as byte() = MS.ToArray()
    Response.OutputStream.Write(buffer,0,buffer.Length)
    Response.End()
End Sub 

Function DrawImage(g as Graphics)
  Dim pen as New pen(color.black,1) 
  g.clear(color.white) ' rens billedet med en hvid farve
  g.smoothingMode = smoothingMode.antiAlias ' antialias objects
  g.DrawLine(pen,0,0,width,height) 
End Function
</script>

Et andet rigtig godt eksempel:

http://www.4guysfromrolla.com/webtech/090201-1.shtml

/askhoej