<%@ Page Language="vb" Debug="True" %> <%@ import namespace="system.drawing" %> <%@ import namespace="system.drawing.imaging" %> <%@ import namespace="system.drawing.drawing2d" %> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''让Asp.Net输出图形. ''''欧阳东杰(oydj)原创. ''''QQ:2596812 ''''E-mail:loved@vip.sina.com ''''MSN:xzskyweb@hotmail.com ''''欢迎大家联系我交流技术 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dim strFilename as string ''''声明变量,用于图片路径 dim i as System.Drawing.Image ''''创建.net框架图像处理对象实例 dim imgg1 as Integer =CInt(Int((6 * Rnd()) + 1)) ''''生成1-6的随机数 dim oydj as string=imgg1
strFilename ="d:\o123\"+oydj+".jpg" ''''载入的图片路径,这里的oydj代表随机生成的变量,用于生成随机图片 i = System.Drawing.Image.FromFile(strFilename) dim b as New system.drawing.bitmap(i.width, i.height, pixelformat.format24bpprgb) dim g as graphics = graphics.fromimage(b) g.clear(color.blue) ''''背景色为蓝色
dim sss=Request.ServerVariables("REMOTE_ADDR") g.drawimage(i,New point(0,0)) ''''这里表示生成一个字符,9号宋体加粗白色,pointF(160,50)为在屏幕的坐标 g.drawString(sss, New font("宋体",9,fontstyle.bold),new SolidBrush(Color.White),New pointF(160,50)) g.drawString(sss, New font("宋体",9,fontstyle.bold),new SolidBrush(Color.White),New pointF(161,51))
response.contenttype="image/jpeg" ''''指定输出格式为图形 b.save(response.outputstream, imageformat.jpeg) b.dispose() %>
代码演示
http://www.ift99.com/pic3.aspx
[C语言系列]NET 中C#的switch语句的语法 [系统软件]托拽Explore中的文件到VB.net的窗口 [系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]新配色面板:Paint.Net3.0RC1官方下载 [常用软件]用内建的“Net Meeting”聊天 [VB.NET程序]Henry的VB.NET之旅(三)—共享成员 [VB.NET程序]Henry的VB.NET之旅(二)—构造与析构 [VB.NET程序]Henry的VB.NET之旅(一)—失踪的窗体 [VB.NET程序]在托盘上显示Balloon Tooltip(VB.NET) [VB.NET程序]Henry手记-VB.NET中动态加载Treeview节点(二)
|