[我的ASP.net学习历程]ImageStream图像数据流

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>

<%@ Import Namespace="System.Drawing"%>

<%@ Import Namespace="System.Drawing.Imaging"%>

<%@ Import Namespace="System.Drawing.Drawing2D"%>

<%

Response.Clear() '清空缓冲区

Dim height as integer=100

Dim width as integer=200

Dim r as New Random '建立随机数对像

Dim x as integer =r.Next(75) '产生0-75的随机数

Dim x1 as integer =0

Dim a as integer=r.Next(155) '产生0-155的随机数

Dim x2 as integer=r.Next(100) '产生0-100的随机数

'建立位图对像Bitmap,参数为:宽,高,像素

Dim bmp as New Bitmap(width,height,PixelFormat.Format24BppRgb)

'图片设置

Dim g as Graphics=Graphics.FromImage(bmp)

g.SmoothingMode=SmoothingMode.AntiAlias

g.Clear(Color.LightGray)

g.DrawRectangle(Pens.White,1,1,width-3,height-3)

g.DrawRectangle(Pens.Gray,2,2,width-3,height-3)

g.DrawRectangle(Pens.Black,0,0,width,height)

g.DrawString(" 中国横渡设计",New Font("Arial",10,FontStyle.Bold),SystemBrushes.WindowText,New PointF(10,50))

g.FillRectangle(New SolidBrush(Color.FromArgb(a,255,128,255)),x,20,100,50)

g.FillRectangle(New LinearGradientBrush(New Point(x2,0),New Point(x2+75,50+30),Color.FromArgb(128,0,0,128),Color.FromArgb(255,255,255,240)),x2,50,75,30)

'图像生成

bmp.Save(Response.OutputStream,ImageFormat.Jpeg)

g.Dispose()

bmp.Dispose()

Response.End()

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航