xmldoc.Load(Server.MapPath(“xml路径”)),之后对立面的数据进行绘图,首先定义一个画布 Dim bmp As Bitmap = New Bitmap(1600, 800) 是一个1600*800的画布
Dim g As Graphics = Graphics.FromImage(bmp) ‘定义graphics类,把图绘制在bmp上
Dim prush As New SolidBrush(Color.Green)
Dim p As New Pen(Color.Blue, 1) ’定义画笔颜色和粗细
绘制线 g.DrawLine(mypen, 0, 450, 1600, 450) ‘mypen也是定义的画笔其实点(0,450)终点(1600.450)
这里只是把线绘制出了,那么要在网页中显示出来就需要下面的语句:
bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Gif) ’保存图片
Response.ContentType = "image/Gif"
Response.BinaryWrite(ms.ToArray()) ‘网页中绘制图片
绘制完成的图片如下图