生成缩略图，切割，旋转图片，图象处理详代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】生成缩略图，切割，旋转图片，图象处理详

作者:Dezai.CN / 发布于2012/12/12/ 1248

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

%＞

试试其它关键字

　图象处理　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)