标题：图片旋转

狐表能做到把图片旋转90度吗？

此主题相关图片如下：1.jpg

狐狸应该不行吧。

这个很常用，专业报表中打印图片现在只能正常方向，旋转方向后就打印不出来了吗？或者狐表能做到旋转图片，这个问题就解决了。

GDI+

旋转是可以的，不过要用GDI+

我看了GDI+快速入门，没有介绍图片怎么旋转。我能做到在专业报表中把图片旋转就行

不用gdi+也可以，旋转90度：

 

Dim doc As New PrintDoc
Dim rm As New prt.RenderImage
Dim img As Image = GetImage("c:\abc.bmp")
img.RotateFlip(system.drawing.RotateFlipType.Rotate90FlipNone)
rm.image = img
doc.Body.Children.Add(rm)
Doc.Preview()

 

 

 Rotate180FlipNone 指定不进行翻转的 180 度旋转。 
 Rotate180FlipX 指定后接水平翻转的 180 度旋转。 
 Rotate180FlipXY 指定后接水平翻转和垂直翻转的 180 度旋转。 
 Rotate180FlipY 指定后接垂直翻转的 180 度旋转。 
 Rotate270FlipNone 指定不进行翻转的 270 度旋转。 
 Rotate270FlipX 指定后接水平翻转的 270 度旋转。 
 Rotate270FlipXY 指定后接水平翻转和垂直翻转的 270 度旋转。 
 Rotate270FlipY 指定后接垂直翻转的 270 度旋转。 
 Rotate90FlipNone 指定不进行翻转的 90 度旋转。 
 Rotate90FlipX 指定后接水平翻转的 90 度旋转。 
 Rotate90FlipXY 指定后接水平翻转和垂直翻转的 90 度旋转。 

再问个问题：图片先翻转后再送到图片列中,代码怎样写？

dim dr as row = currenttable.current
Dim img As Image = GetImage("d:\1.jpg")
img.RotateFlip(system.drawing.RotateFlipType.Rotate90FlipNone)
dr("图片列")= "旋转后的图片"

dim dr as row = currenttable.current
Dim img As Image = GetImage("d:\1.jpg")
img.RotateFlip(system.drawing.RotateFlipType.Rotate90FlipNone)

img.Save("文件名")
dr("图片列")= "文件名"