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

最新推荐文章于 2025-05-25 01:30:00 发布

原创最新推荐文章于 2025-05-25 01:30:00 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp.net #integer #import #random #vb

[My ASP/ASP.net(C#)] 专栏收录该内容

58 篇文章

订阅专栏

此博客展示了一段VB语言代码，用于生成图片。代码中导入了多个命名空间，定义了图片的宽高，使用随机数设置相关参数，创建位图对象并进行图片设置，最后将生成的图片保存到输出流。

<%@ 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()
%>