日期:2014-05-19  浏览次数:20420 次

水印上的文字如何实现 从左下到右上的倾斜?急。
Public   Sub   BuildWater(ByVal   sourcepath   As   String,   ByVal   outpath   As   String)

                Dim   image   As   Image   =   image.FromFile(sourcepath)
                Dim   bitWaterMark   As   New   Bitmap(image.Width,   image.Height)
                Dim   g   As   Graphics   =   Graphics.FromImage(bitWaterMark)
                g.DrawImage(image,   0,   0,   image.Width,   image.Height)

                Dim   f   As   New   Font( "华文琥珀 ",   10)
                Dim   b   As   Brush   =   New   SolidBrush(Color.Orange)
                Dim   addtext   As   String   =   "CRM "
                g.DrawString(addtext,   f,   b,   CSng(image.Width   -   image.Width   /   4),   CSng(image.Height   -   image.Height   /   10))
                g.Dispose()
                image.Dispose()
                bitWaterMark.Save(outpath)
                bitWaterMark.Dispose()

        End   Sub

想实现CRM三个字母的倾斜(左下到右上),如何实现?

------解决方案--------------------
好象有个控制角度的,以前用过