drawpic.aspx

来自「asp做的新闻系统」· ASPX 代码 · 共 48 行

<%@ Page Language="vb" Debug="True" %>  
<%@ import namespace="system.drawing" %>  
<%@ import namespace="system.drawing.imaging" %>  
<%@ import namespace="system.drawing.drawing2d" %>  
<%  
dim strFilename as string  
dim i as System.Drawing.Image  
strFilename = server.mappath("./chris-fsck.jpg")  
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) 

'旋转图片 
i.RotateFlip(System.Drawing.RotateFlipType.Rotate90FlipX)  
g.drawimage(i,New point(0,0))  
i.RotateFlip(System.Drawing.RotateFlipType.Rotate270FlipY)  
g.RotateTransform(10)  
g.drawimage(i,New point(0,0))  
g.RotateTransform(10)  
g.drawimage(i,New point(20,20))  
g.RotateTransform(10)  
g.drawimage(i,New point(40,40))  
g.RotateTransform(10)  
g.drawimage(i,New point(40,40))  
g.RotateTransform(-40)  
g.RotateTransform(90)  
g.drawimage(i,New rectangle(100,-400,100,50),New rectangle(20,20,i.width-20,i.height-20), GraphicsUnit.Pixel)  
g.RotateTransform(-90)  

‘拉伸图片 
g.drawimage(i,New rectangle(10,10,50,50),New rectangle(20,20,i.width-20,i.height-20), GraphicsUnit.Pixel)  
g.drawimage(i,New rectangle(50,10,90,50),New rectangle(20,20,i.width-20,i.height-20), GraphicsUnit.Pixel)  
g.drawimage(i,New rectangle(110,10,150,50),New rectangle(20,20,i.width-20,i.height-20), GraphicsUnit.Pixel)   

'切割图片 
g.drawimage(i,50,100,New rectangle(180,80,60,110),GraphicsUnit.Pixel)  
g.drawimage(i,140,100,New rectangle(180,80,60,110),GraphicsUnit.Pixel)  

'旋转图片 
i.RotateFlip(System.Drawing.RotateFlipType.Rotate180FlipX)  
g.drawimage(i,230,100,New rectangle(180,110,60,110),GraphicsUnit.Pixel)  
response.contenttype="image/jpeg"  
b.save(response.outputstream, imageformat.jpeg)  

b.dispose()  
%>