62,025
社区成员
发帖
与我相关
我的任务
分享
Dim ms As MemoryStream
Dim gwith As Integer = 450
Dim gheight As Integer = 600
Dim img As New Bitmap(gwith, gheight)
Dim g As Graphics = Graphics.FromImage(img)
g.Clear(Color.White)
g.DrawEllipse(Pens.Black, New RectangleF(0, 0, 10, 10))
g.DrawEllipse(Pens.Black, New RectangleF(0, gheight - 10, 10, 10))
g.DrawEllipse(Pens.Black, New RectangleF(gwith - 10, 0, 10, 10))
g.DrawEllipse(Pens.Black, New RectangleF(gwith - 10, gheight - 10, 10, 10))
Dim x As Integer = 50
Dim y As Integer = 50
g.DrawString("*", New Font("宋体 ", 12), New SolidBrush(Color.Black), x, y)
ms = New MemoryStream()
img.Save(ms, ImageFormat.Bmp)
Response.ClearContent() '需要输出图象信息 要修改HTTP头
Response.ContentType = "image/bmp "
Response.BinaryWrite(ms.ToArray())
g.Dispose()
img.Dispose()
Response.End()